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