. . . .. .
循环结构程序设计
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
c. .. .. .
. . . .. .
End Sub
此程序计算并输出一个表达式的值，该表达式是___________。 A、9！ B、10！
C、1！+2！+…+9！ D、1！+2！+…+10！
c. .. .. .
. . . .. .
数组
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
c. .. .. .
. . . .. .
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
c. .. .. .
. . . .. .
Next i
ReDim Preserve a(3, 4） For j = 3 To 4
a(3, j） = j + 9 Next j
Print a(3, 2）; a(3, 4） End Sub
程序运行后，单击窗体，输出结果是___________。 A、 8 13 B、 0 13 C、 7 12 D、 0 0 13、下面的数组声明语句中__________是正确的。 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 14、设有数组声明语句： Option Base 1
Dim A(2) As Integer
则数组A的下界为__________。
A、0 B、1 C、2 D、不能确定 15、以下说法不正确的是__________。
A、使用ReDim语句可以改变动态数组的维数
B、若用Dim语句定义了动态数组的类型，可以用ReDim更改为其它类型 C、使用ReDim语句可以改变动态数组每一维的大小
D、使用ReDim语句可以对动态数组中的所有元素进行初始化 16、用Array函数给某X赋值时，X必须是__________。 A、已经声明的静态数组 B、已经声明的动态数组 C、Variant类型的变量 D、整型变量
17、设有数组声明语句： Option Base 1
Dim A(-1 To 2) As Long
则函数UBound(A)的值为__________。
A、0 B、－1 C、1 D、2
18、设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法中错误的是__________。
A、命令按钮的Caption属性都是Command1
B、在代码中访问任意一个命令按钮只需使用名称Command1 C、命令按钮的大小都相同
D、命令按钮共享相同的事件过程
19、在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Commandl Click() Dim a(3,3) For m=1 To 3
c. .. .. .