国家二级VB机试（控制结构）模拟试卷18
选择题
1.在下面语句或函数中，不能描述选择结构的是( )。(D)
A. If语句
B. If函数
C. Select Case语句
D. While语句
解析：While语句不能描述选择结构。
2.编写如下程序：
Private Sub Commandl—Click()
Dim a As Integer，b As Integer
a=3
b=2
If a*b＜10 Then b=b+1 Else b=b—
l
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 Commandl—Click()
Dim score As Integer
score=86
If score>85 Then
r=1
ElseIf score>60 Then
r=2
Else
r=0
End If
Print r
EndSub
程序运行后，单击命令按钮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 Command1—Click()
Dim Hum As Integer，x As Integer
Bum=Val(InputBox(“请输入一个正整数”))
Select Case Bum
Case Is＞100
x=x+num
Case Is＜90
x=num
Case Else
x=x* num
End Select
Print x；
End Sub
运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为( )。(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=1 T0 20
i=i+4
n=n+i
If i＞10 Then 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=0+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=1 1+4=15，n=n+i=15+15=30，此时，i=15，i＞10成立，退出循环。此时n=30。
6.窗体上有一个名称为Commandl的命令按钮，编写如下事件过程：
Private Sub Commandl—Click()
i=0
Do While i<6
For j=1 To i
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 Base 1
Pfivate Sub Form_Click()
Dim Arr(10)As Integer
For i=6 To 10
An-(i)=i一3
Next i
Textl．Text=Str(Arr(6)+An-(An．(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 Base 1
Private Sub Form—Click()
Dim Arr(3，3)As Integer
For i=1 To 3
For j=1 To 3
Ⅱj=i Or j=3一i+1 Then
Arr(i，j)=1
Else
Arr(i，j)=0
End If
Next j
Next i
For i=1 To 3
For j=1 To 3
Print Arr(i，j)；
Next j
Next i
End Sub
程序运行后，如果单击窗体，则输出结果为( )。(D)
A. 1 1 1
1 1 1
1 1 1
B. 0 0 0
0 0 0
0 0 0
C. 1 0 0
0 1 0
0 0 1
D. 1 0 1
0 1 0
1 0 1
解析：第一个For循环给数组Arr赋值。第二个For循环打印数组各元素的值。在第一个For循环中，数组的下标用变量i
本文档预览：3600字符，共12116字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
