国家二级VB机试（Visual Basic控制结构）模拟试卷3
选择题
1.在下面语句或函数中，不能描述选择结构的是( )。(D)
A. If语句
B. IIf函数
C. Select Case语句
D. While语句
解析：While语句不能描述选择结构。
2.编写如下程序：
Private Sub Command1_Click()
Dim a As Integer，b As Integer
a=3
b=2
If a*b＜10Then b=b+1Else b=b-
1
Print b-a＞0
End Sub
程序运行后，单击命令按钮Command1，输出结果为( )。(B)
A. True
B. False
C. 1
D. -1
解析：If…Else语句对b进行操作。a*b=6，＜10，所以执行b=b+1=3。Print语句中，b-a=0，条件为假。选B)。
3.编写如下程序：
Private Sub Command1_Click()
Dim score As Integer
score=86
If score＞85Then
r=1
ElseIf score＞60Then
r=2
Else
r=0
End If
Print r
End Sub
程序运行后，单击命令按钮Command1，输出结果为( )。(B)
A. 0
B. 1
C. 2
D. 86
解析：本题考查If…Else If…Else…End If语句。条件判断成立则执行对应分支的语句。86＞85，所以r=1。选B)。
4.窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Commandl_Click()
Dim Bum As Integer，x As Integer
num=Val(InputBox(\\(B)
A. 0 0 0
B. 0 0 60
C. 0 90 0
D. 100 0 60
解析：按钮事件中变量x为过程局部变量，第1次输入100时，Select语句执行Case Else分支x=x*num=0*100=0。第二次输入90时，Select语句执行Case Else分支x=x*num=0*90=0。第三次输入60时Select语句执行Case Is＜90分支x=num=60。因此窗体上显示为0 0 60。
5.有如下程序：
Private Sub Form_Click()
Dim i As Integer，n As Integer
For i=1To20
i=i+4
n=n+i
If＞10Then Exit For
Next
Print n
End Sub
程序运行后，单击窗体，则输出结果是( )。(D)
A. 14
B. 15
C. 29
D. 30
解析：程序中For循环中的If语句判断循环变量i值如果大于10则退出循环。各次循环变量值变化如下：
i=1时，i=i+4=1+4=5，n=n+i_O+5=5，此时i=5，i＞10不成立，i加1转入下次循环。
i=6时，i=i+4=6+4=10，n=n+i=5+10=15，此时，i=10，i＞10不成立，i加1转入下次循环。
i=11时，i=i+4=11+4=15，n=n+i=15+15=30，此时，i=15，i＞10成立，退出循环。此时n=30。
6.窗体上有一个名称为Command1的命令按钮，编写如下事件过程：
Private Sub Command1_Click()
i=0
Do Whlie i＜6
For j=1Toi
n=n+1
Next
i=i+1
Loop
Print n
End Sub
运行程序，单击命令按钮时，窗体上显示的是( )。(B)
A. 10
B. 15
C. 16
D. 21
解析：For循环中，i大于等于1时执行循环n=+1，共执行5次，即i从1累加至5，n的值从1最终累加到15。
7.在窗体上画一个文本框，其名称为Text1，然后编写如下程序：
Option Base1
Private Sub Form_Click()
Dim Arr(10)As Integer
For i=6To10
Arr(i)=i-3
Next i
Text1．Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)))
End Sub
程序运行后，单击窗体，在文本框中显示的内容是( )。(D)
A. 7
B. 8
C. 9
D. 10
解析：For循环对数组Arr的第6个到第10个元素赋值。Arr(6)=3；Arr(10)=7；因此，输出结果是10。选D)。
8.阅读程序：
Option Base1
Private Sub Form_Click()
Dim Arr(3，3)As Integer
For i=1To3
For j=1To3
If j=i Or j=3-i+1Then
Arr(i，j)=1
Else
Arr(i，j)=0
End If
Next j
Next i
For i=1To3
For j=1To3
Print Arr(i，j)；
Next j
Next i
End Sub
程序运行后，如果单击窗体，则输出结果为( )。
(D)
A.
B.
C.
D.
解析：第一个：For循环给数组Arr赋值。第二个。For循环打印数组各元素的值。在第一个For循环中，数组的下标用变量i表示，上标用变量j表示。If…Else语句对两种情况进行判断，在i等于j的时候或者i和j满足j=3-i+1关系的时候，Arr数组元素被赋值为1，其他情况被赋值为0。可以根据循环语句的执行，代入各变量值算得各元素的值。选D)。
9.以下Visual Basic不支持的循环结构是( )。(D)
A. For…Next
B. For Each…Next
C. Do…Loop
D. Do…End Do
解析：Visual Basic支持的循环结构不包括Do…End Do。
10.在窗体上画一个组合框，其名称为Combo1，然后编写如下事件过程：
P
本文档预览：3600字符，共10385字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
