国家二级（VB）机试模拟试卷258
选择题
1.在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。(A)
A. Private Sub Text1_Change()
Label1.Caption＝Str(Len(Text1.Text))
End Sub
B. Private Sub Text1_Click()
Label1.Caption＝Str(Len(Text1.Text))
End Sub
C. Private Sub Text1_Change()
Label1.Caption＝Text1.Text
End Sub
D. Private Sub Label1_Change()
Label1.Caption＝Str(Len(Text1.Text))
End Sub
解析：根据题意可知，在文本框中输入字符这个动作使标签上显示的内容发生变化，说明是文本框触发了某事件，排除D选项；文本框中每输入一个字符，标签中立即就会发生变化，故是Change事件，排除B选项；标签中显示的是文本框中字符的个数，不是输入的内容，排除C选项。故A选项正确。
2.以下关于过程及过程参数的描述中，错误的足( )。(C)
A. 调用过程时可以用控件名称作为实际参数
B. 用数组作为过程的参数时，使用的是“传地址”方式
C. 只有函数过程能够将过程中处理的信息传回到调用的程序中
D. 窗体(Form)可以作为过程的参数
解析：过程定义时，形参除了可以是整型、单精度、双精度等数据类型外，还可以是控件或窗口等对象型。相对应的调用过程时实参也可以是一般数据类型、控件名或窗体，故A、D选项正确。
调用过程时，如果过程的参数是数组，则实参传给形参的是地址，这个地址是用数组名表示的一个符号地址，是数组的起始地址，形参和实参用的是同一个地址，在过程中形参的改变会引起实参的改变。故B选项正确。
在过程调用时，不只是函数过程能把过程中处理的信息传回到调用程序中，Sub过程也可以。Sub过程中形参声明时前面有关键字ByRef或省略ByRef(默认)时，实参和形参之间传递的是地址，Sub过程中形参的变化也会引起实参的变化，这样Sub过程中处理的信息也可以传回调用程序中。故C选项说法错误。
3.在窗体上画一个命令按钮，名称为Commandl，然后编写如下程序：
Private Sub Command 1 _Click()
For i=l To 2
Forj=1 To i
Print String(i，“Hello”)
Nextj
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。(A)
A. H
HH
HH
B. H
C. HHHHH
HHHH
D. H
HH
HHHH
解析：本题考查循环嵌套程序分析。外层循环共执行2次，第一次执行外循环，内层循环变量为1到1，执行一次；第二次执行外循环，内层循环变量为1到2，执行2次。String函数产生i个“Hello”中的第一个字符H。
4.在窗体上画一个名称为Combo1的组合框，名称为Text1的文本框，以及名称为Command1的命令按钮，如图所示。
(C)
A. Combo1.AddItem Text1.Text
B. Combo1.AddItem Text1.SelStart
C. Combo1.AddItem Text1.SelText
D. Combo1.AddItem Text1.SelLength
解析：根据题意可知，横线处应该是将文本框中选中文本添加到组合框中。文本框Text属性返回整个文本框中的文本，故A选项错误；SelStart属性返回选中文本的起始位置，故B选项错误；SelLength属性返回选中文本的长度，故D选项错误；SelText属性返回选中的文本，故C选项正确。
5.下列程序的执行结果是( )。
Private Sub Form_Activate()
Dim score(3)As Integer，total As Integer
Dim aa_score As Variant
score(1)=50：score(2)=14：score(3)=36
total=0：i=0
For Each aa_score In score
i=i+1
total=total+aa_score
Print i，aa_score，total
Next
End Sub(A)
A. 1 0 0
2 50 50
3 14 64
4 36 100
B. 1 50 50
2 14 64
3 36 100
C. 0 50 50
1 14 64
2 36 100
3 36 100
D. 0 0 0
1 50 50
2 14 64
3 36 100
解析：本题考查For Each In语句。该语句的使用形式为：For Each 成员 In数组 …Next，适用于不关心数组中的元素个数或者不清楚有多少个元素，使用时要求成员为变体类型变量。当激活窗体时，对score数组中的每个元素进行求和，同时i记下当前计算数组元素的个数。默认数组下标从0开始，题中score数组中含有4个元素，输出4行。
6.有如下程序：
Private Sub Form_Click()
Dim s As Integer， p As Integer
p＝1
For i＝1 To 4
For j＝1 To i
s＝s＋j
Next j
p＝p * s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是( )。(D)
A. 90
B. 180
C. 400
D. 800
解析：
7.执行以下程序后，在窗体上输出的是( )。
Private Sub Command l Click()
Dim a(20)
For{=1 T0 20 Step 2
a(j)=j
Next i
Print a(1)+a(2)+a(3)
End Sub(A)
A. 4
B. 5
C. 6
D. 7
解析：本题考查数组元素的赋值。利用循环对数组a中所有的元素赋值
本文档预览：3600字符，共19038字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
