For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print a
End Sub
运行时，单击命令按钮，窗体上将显示（ C ）。
A 3 B 4 C 5 D 6 31619 设有以下程序段： For i = 1 To 4
For j = 6 To 1 Step -1 Print i * j Next j, i
则语句Print i * j的执行次数是（ C ）
A 12 B 13 C 24 D 25
31620 窗体上有命令按钮Command1，编写下列事件过程： Private Sub Command1_Click()
x = 0
Do While x < 10
x = (x - 2) * (x + 3) n = n + 1 Loop End Sub
运行时，单击按钮，n和x的值分别时（ B ）。
A 1和0 B 2和24 C 3和50 D 4和68 31621 下列程序段的执行结果是（B）。 For i = 3 To 1 Step -1 Print Spc(5 - i);
For j = 1 To 2 * i - 1 Print \ Next j Print Next i
A) * *** ***** B) ***** *** * C) ***** *** *
D) ***** *** *
31622 下列程序段的执行结果是（B）。 n = 1 J = 1
37
Do While J <= 4 n = n * J Print n; J = J + 1 Loop
A) 1 2 3 4 B) 1 2 6 24 C) 2 4 6 8 D) 1 4 7 11
31701 在通用声明中给出Option Base 1语句，则数组a包含（ C）个元素。 Dim a(3, -2 To 1, 5)
A 120 B 75 C 60 D 13
31702 下列叙述中，错误的是（C ）。
A 控件数组的每一个元素共享同样的事件过程 B 控件数组的每一个元素都有与之相关联的下标值
C 控件数组的每一个元素都有不同的Name属性作为标识 D 可在运行过程中删除控件数组的某个元素
31703 运行下列程序，单击窗体后输出的结果是（ B）。 Private Sub Form_Click() Dim a
Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub
A 13 B 14 C 不确定 D 程序出错
31704 如下数组声明语句中数组a包含的元素个数为（A ）。 Dim a(3, -2 To 1, 5)
A 96 B 75 C 60 D 13 31705 下列语句错误的是（ B）。 A Private a(-10 To 5) B Dim a(N) 'N为变量 C Dim a() As Integer D Dim a%(10,-10 To -10)
31706 运行下列程序，单击窗体后输出的结果是（B ）。 Private Sub Form_Click() Dim a
Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1
For i = 5 To 1 Step -2 s = s * a(i)
38
Next i Print s End Sub
A 15 B 48 C 120 D 720
31707 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim a(10) For j = 6 To 10 a(j) = j - 5 Next j
Text1.Text = a(0) + a(a(10) / a(6)) End Sub
运行时，单击按钮，Text1中显示（A ）。 A 0 B 1 C 2 D 3
31708 能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（B A ReDim arr(7) B ReDim Preserve arr(7) C Public arr(1 To 7) D Static arr(7) 31709 如下程序段中包含一个错误。 x = 4 Dim a(x)
For m = 4 To 0 Step -1 a(m) = m + 1 Next m
出错的原因是（C ）。
A 第四行，数组元素a(m)下标越界
B 第四行，不能用循环变量m进行运算 C 第二行，不能用变量定义数组下标 D 以上原因都不对
31710 有声明Dim a(-3 To 1，3) As Integer，则下列叙述中正确的是（B ）。 A 数组a是二维动态数组 B 数组a共有20个元素 C a(0，0)不是该数组的元素
D a(1，1)是该数组的第十个元素
31711 对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 2 To 4 For j = 3 To 5
array1(i, j) = i * j Next j Next i
。39
） Print array1(2, 4) + array1(3, 4) End Sub
运行时，单击命令按钮后输出的结果是（C ）。 A 9 B 13 C 20
D 程序出错
31712 运行下列程序，单击窗体后输出结果是（ C）。 Option Base 0
Private Sub Form_Click() Dim a
Dim i As Integer
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 1 To 3 Print a(5 - i); Next i End Sub
A 3 2 1 B 4 3 2 C 5 4 3 D 6 5 4
31713 对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To 10
arr(i, j) = i + 2 * j Next j Next i
Print arr(0, 1) + arr(2, 3) End Sub
运行时，单击命令按钮后输出的结果是（ ）。 A A 8 B 10 C 20 D 下标越界
31714 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim s%, i%, j%
Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To i a(i, j) = j s = s + a(i, j) Next j, i Print s End Sub
运行时，单击按钮，则窗体上显示的内容是（ ）。 C
40