国家二级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版点下载