更多"设有如下程序； Private Sub Form_ Load（ ） "的相关试题:
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（ ） Show
Text1.Text = "" Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Print "程序设计" End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic";
End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是______。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
[单项选择]在窗体上添加文本框Text1，然后编写下列程序：
Private Sub Form_Load（ ）
Text1.Text=" "
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii+1)
KeyAscii=Asc(Ucase(Char))
End Sub
Private Sub Command1_Click（ ）
Print Text1.Text
End Sub
程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是
A. 23BCD
B. ABC
C. !@#ABC
D. 123abc
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
j=0
For i=1 To n
b(i)=CInt(Rnd( )*100)
If b(i)/2=b(i)/2 Then
j=j+1
c(j)=b(i)
End lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[填空题]设有如下程序：
Option Base 1
Pfivme Sub Command1_Click( )
Dim arr1
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54，866，43)
Min= 【12】
For i=2 TO 8
If arr1(i)＜Min Then 【13】
Next i
Print“最小值是：”；Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。
[单项选择]设有如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
n=InputBox(“输入数据”)
If n<10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10) As Integer
j=0
For i=1 To n
bb(i)=CInt(Rnd( )*100)
If b(i)/2=b(i)/2 Then
j=j+1
c(j)=b(i)
End If
Next
Print j
End Sub
以下叙述中错误的是（ ）。
A. 数组b的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[填空题]设有如下程序：
Option Base 1
Pfivme Sub Command1_Click( )
Dim arr1
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54，866，43)
Min= 【12】
For i=2 TO 8
If arr1(i)＜Min Then 【13】
Next i
Print“最小值是：”；Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
j=0
For i=1 To n
b(i)=CInt(Rnd( )*100)
If b(i)/2=b(i)/2 Then
j=j+1
c(j)=b(i)
End lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[单项选择]设有如下程序：
Option Base 1
Private Sub Form Click（ ）
Dim a(5)As String，i As Integer
For i=1 To 5
a(i)=Chr(Asc("A")+i)
Call f(a，i)
Next i
End Sub
Sub f(ta（ ）As String，n As．Integer)
Dim i As Integer
For i=1 To n
Print ta(i)；
Next i
Print
End Sub
对上述程序．以下叙述中正确的是( )。
A. 程序有错，因为在过程f的定义中数组参数格式不正确
B. 程序可正常运行，输出内容的第一行是一个字母“A”
C. 程序可正常运行，输出内容的第一行是一个字母“B”
D. 程序可正常运行，输出内容的第一行是数字65
[单项选择]设有如下程序：
Private Sub Command1_ Click（ ）
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 3
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序通过For循环来计算sum的值，sum值的精确结果是( )。
A. 1+1/2+2/3
B. 1+1/2+1/3+1
C. 1/2+2/3
D. 1/2+1/3
