2014年12月计算机等级考试二级VB全真模拟卷二_第2页

11.下列叙述不正确的是（C）
A)InputBox函数返回值为字符型
B)MsgBox函数返回值为所单击按钮的整数值
C)MsgBox语句返回值为所单击按钮的键值
D)Shell函数返回值为所执行文件的工作代码
12.下列叙述不正确的是（A）
A)命令按钮的默认属性为Caption
B)标签的默认主属性为Caption
C)复选框的默认属性为value
D)滚动条的默认属性为value
13.下列各程序段中，正确的是（C）
A)If 10 < 10 Then a=a+10
B)If a> 10 Then a= a+1 Else a= a+ 5 End If
C)If a <=10 Then
a=a + 1
Else
End If
D)If a <=10 Then
a=a + 1
Else If a <=20 Then
a=a + 10
End If
14.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I= 1 to 2
For J=1 to I
Print String (I,"Hello");
Next J
Print 
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（B）
A)H
HH
HHH
B)H
HHHH
C)HHHHH
D)H
HH
HHHH
15.为了使图像框与图片框的大小适应图片的大小 ，下边属性组设置正确的是（B）
A)Autosize= Ture Stretch= True
B)Autosize= Ture Stretch= False
C)Autosize= False Stretch= True
D)Autosize= False Stretch= False
16.假设 x的值为5，则在执行以下语句时，其输出结果为“OK”的Select case语句是（C）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select
17.有如下程序：
Private Sub Form_Click()
Dim check As Boolean, n As Integer
check=False
n= 0
Do
Do While n< 10
n=n + 1
If n= 5 Then 
check=True
Exit Do
End If
Print n；
Loop
Loop Until check=True
End Sub
程序运行后，输出的结果是（B）
A)1 2 3
B)1 2 3 4
C)1 2 3 4 5
D)1 2 3 4 5 6
18.在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（A）
A)Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
B)Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
C)Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
D)Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
19.有如下程序（D）
Private Sub From_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i)
End Sub 
A)4 0 4 25
B)5 0 4 25
C)不确定
D)程序出错
20.在窗体上画一个水平滚动条，名称为HScroll1;再画一个文本框，名称为Text1。要想使用滚动条滑块的变化量来调用文本框中文字的大小，则可满足的语句是（C）
A)Text1.FontName= HScroll1.Max
B)Text1.FontSize= HScroll1.Min
C)Text1.FontSize= HScroll1.value
D)Text1.FontBold= HScroll1.value