vb循环结构选择题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、选择题
1、无条件转移GoTo语句后面是（A）
A、标号或行号
B、输出语句
C、输入语句
D、子过程
2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）
A、冒号
B、分号
C、逗号
D、空格
3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）
A、必须唯一
B、可以重复
C、以数字开头
D、以汉字开头
4、while循环结构中的条件表达式取值为（A）
A、True
B、False
C、True或False
D、0
5、while循环结构中的条件表达式取值为（A）时执行语句组
A、True
B、False
C、True或False
D、0
6、while循环结构中与（A）匹配使用，不能单独出现
A、Wend
B、end
C、loop
D、next
7、Do…、、loop循环结构中的循环体执行的最少次数为（A）
A、0
B、1
C、2
D、3
8、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）
A、0
B、1
C、2
D、3
9、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）
A、0
B、1
C、2
D、3
10、Do…loop循环结构中的Exit Do语句的功能是（B）
A、退出整个程序
B、退出当层循环
C、退出最外层循环
D、退出所在子程序
11、Do…loop中使用while关键字时，条件为（B）执行循环体
A、False
B、True
C、0
D、假或真
12、Do…loop中使用until关键字时，条件为（A）执行循环体
A、False
B、True
C、0
D、假或真
13、Do…loop中使用while关键字时，条件为（A）终止循环
A、False
B、True
C、0
D、假或真
14、Do…loop中使用until关键字时，条件为（B）终止循环
A、False
B、True
C、0
D、假或真
15、For…Next循环结构中（C）用来控制循环变量
A、for
B、step
C、next
D、to
16、For…Next循环结构中step用来控制（D）
A、循环变量
B、循环变量初值
C、循环变量终值
D、循环变量增量
17、For…Next循环结构中循环变量初值大于终值时,步长为（A）
A、负数
B、非负数
C、正整数
D、正数
18、For…Next循环结构中循环变量初值小于终值时,步长为（A）
A、负数
B、负整数
C、正整数
D、正数
19、For…Next循环结构中next后的循环变量（A）
A、可以省略
B、不可以省略
C、与for后的变量名可以不同
D、与for后的变量不是同一变量
20、For…Next中循环变量初值与终值间使用的关键字是（A）
A、To
B、In
C、goto
D、private
21、For…Next中循环变量初值与终值间使用的关键字是（A）
A、To
B、In
C、goto
D、private
22、执行下面的程序段后，s的值为（C）
Private Sub Form_Click()
Static s As Integer
s = 5
For i = 1.4 To 2.1 Step 0.6
s = s + 1
Next i
Print s
End Sub
A、5
B、6
C、7
D、1
23、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）
Private Sub Command1_Click()
For m = 1 To 10
x = Int(Rnd * 101+100)
If（）Then
Print x;
End If
Next m
End Sub
A、x mod 5=0
B、x mod 5==0
C、x/5=0
D、x\5=0
24、设有如下程序：
Option Base 1
Private Sub Form_Click()
Dim a(10), P(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
P(i) = a(i * i)
Next i
For i = 1 To 3
k = k + P(i) * 2
Next i
Print k
End Sub
程序运行后，单击窗体，则在窗体上显示的是（A）
A、33
B、35
C、37
D、38
25、在窗体上画一个命令按纽Command1，然后编写如下事件过程：
Private Sub Command1__Click()
X=0