循环结构程序设计
1、在程序中有语句For i = n1 To n2 Step n3，则在循环体中有下列__________语句会影响循环执行的次数。 A、n1 = n1 + 1 B、n2 = n2 + n3 C、n3 = 2 * n3 D、i=i+n3
2、循环结构For I = 1 to 15 step 2 的执行次数是__________。
A、6 B、7 C、8 D、9 3、下列循环结构中，窗体上打印出来的循环变量i的值为___________。 sum = 0
For i = 1 To 100 sum= sum + i Next i
Print i；sum
A、1 B、2 C、100 D、101 4、下列循环结构中，循环体x = x + k的执行次数为___________。 x = 0
For k = 1 To 10 Step 2 x = x + k Next k print k；x
A、0 B、1 C、5 D、10 5、以下循环语句中在任何情况下都至少执行一次循环体的是___________。 A、Do While <条件> B、While <条件> 循环体 循环体 Loop Wend
C、Do D、Do Until <条件> 循环体 循环体 Loop Until <条件> Loop
6、在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click(） Dim n% ,b ,t
t = 1 : b = 1 : n = 2 Do
b = b * n t = t + b n = n +1 Loop Until n>9 Print t
11
End Sub
此程序计算并输出一个表达式的值，该表达式是___________。 A、9！ B、10！
C、1！+2！+?+9！ D、1！+2！+?+10！
12
数组
1、某过程的说明语句中，正确的数组说明语句是__________。 Const n As Integer = 3 Dim L As Integer
① Dim x(L) As Integer ② Dim a(k) As Integer Const k As Integer = 3 ③ Dim b(n) As Integer
④ Dim y(2000 to 2008) as Integer A、①②④ B、①③④ C、③④ D、②③
2、下列有关数组的说法中，错误的是__________。 A、数组必须先定义后使用
B、数组形参可以是定长字符串类型
C、Erase语句的作用是对已定义数组的值重新初始化 D、定义数组时，数组维界值可以不是整数
3、在窗体的通用声明处有语句“Dim a() As Single”，以下在某事件过程中重定义此数组的一组正确语句是__________。 A、ReDim a(3, 3)
ReDim a(4, 4) As Integer B、ReDim a(3, 3)
ReDim preserve a(4, 4) C、ReDim a(3)
ReDim a(3, 3) as Integer D、ReDim a(3, 3)
ReDim preserve a(3, 4)
4、以下___________是Visual Basic合法的数组元素表示法。
A、x_9 B、x[9] C、x{9} D、x(9) 5、下面的数组声明语句中___________是正确的。
A、Dim a[3,4] As Integer B、Dim a(3, 4) As Integer C、Dim a(3;4) As Integer D、Dim a(3:4) As Integer 6、设有数组声明语句： Option Base 1
Dim b(-1 To 1, 2 ) As Integer
则数组b中共有___________个元素。
A、2 B、4 C、6 D、9
7、使用语句Dim a(1 To 15) As String声明数组a之后，以下说法正确的是___________。 A、A数组中的所有元素值为0
13
B、A数组中的所有元素值不确定 C、A数组中的所有元素值为空串 D、A数组中的所有元素值为True
8、关于ReDim语句，以下说法错误的是___________。 A、ReDim语句可以改变数组的维数
B、ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用 C、ReDim语句可保留动态数组中原有的内容
D、在ReDim语句中，可使用变量说明动态数组的大小 9、设有数组声明语句： Option Base 1
Dim a(-1 To 2，8) As Long
则，函数LBound(a，2) 的值为___________。
A、0 B、－1 C、1 D、2 10、下列关于控件数组的说法错误的是___________。
A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每一个控件共享同样的事件过程
C、控件数组中的每个元素的下标由控件的Index属性指定 D、同一控件数组中的元素只能有相同的属性值
11、设有命令按钮Command1单击事件过程，代码如下： Private Sub Command1_Click(） Dim a(30）As Integer For i=1 To 30
a(i）=Int(Rnd*100） Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem； If arrItem>90 Then Exit For Next End Sub
对于该事件过程，以下叙述中错误的是___________。 A、a数组中的数据是30个100以内的整数 B、语句For Each arrItem In a有语法错误
C、If arrItem Mod 7=0??语句的功能是输出数组中能够被7整除的数
D、If arrItem>90??语句的作用是当数组元素的值大于90时退出For循环 12、有以下程序： Option Base 1
Dim a(） As Integer
Private Sub Form_Click(） Dim i As Integer, j As Integer ReDim a(3, 2） For i = 1 To 3
For j = 1 To 2
a(i, j） = i * 2 + j Next j
14