(A) If x < y ^ 2 Then \
(B) If x < y ^ 2 Then Show \(C) If x < y ^ 2 Then Print \(D) If x < y ^ 2 Then Put \(答案：C)
31601. 已知字母D的ASCII码是68。在窗体上添加命令按钮Command1，并编写如下事件过程：
Private Sub Command1_Click() m = 68: a = \Print a
For i = ()'循环次数的控制 m = m + 1
a = Chr(m) + a + Chr(m) Print a Next i End Sub
运行时，要使单击按钮后输出如下结果，程序中的空缺部分应为（ ）。 D EDE FEDEF GFEDEFG (A) 1 To 4 (B) 1 To 3
(C) 1 To 4 step 2 (D) 1 To 3 step 2 (答案：B)
31602. 阅读下列程序段： x = 0
For i = 1 To 4 For j = 1 To i x = x + 1 Next j, i
执行以上循环后，x 的值为（ ）。 (A) 6 (B) 9 (C) 10 (D) 16
(答案：C)
31603. 运行下列程序，单击窗体后输出的结果是（ ）。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2
Print \Next
End Sub (A) 31 31 32 32 (B) 4 31 5 32
(C) 31 31 32 32 (D) 4 31 5 32 (答案：D)
31604. 执行下列程序段后输出的结果是（ ）。 s = 1
For i = 1 To 3 For j = 0 To i-1 s = s + s * j Next j ? s; Next I (A) 1 2 (B) 2 1 (C) 2 2 12 (D) 1 2 12 (答案：D)
31605. 阅读下列程序段： m = 0
For i = 1 To 3 For j = 1 To i m = m + j Next j, i
执行以上的循环后，i和m的值分别为（ ）。 (A) 3 6 (B) 3 10 (C) 4 6 (D) 4 10 (答案：D)
31606. 运行下列程序段，其中“n=n+1”语句被执行的次数是（ ）。 Dim m%, n% For m = 1 To 3
For n = 1 To 6 Step 2 n = n + 1 Print n Next Next (A) 3 (B) 6 (C) 9
(D) 18
(答案：B)
31607. 窗体上有两个文本框（Text1、Text2）和一个命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click() x = 0
Do While x < 50 x = (x + 2)* (x + 4) n = n + 1 Loop
Text1.Text = CStr(n) Text2.Text = CStr(x) End Sub
运行时，单击按钮，Text1和Text2将分别显示（ ）。 (A) 0 和 0 (B) 1 和 8 (C) 2 和 120 (D) 3 和 15180 (答案：C)
31608. 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 For j = 4 To 8 Sum = Sum + 1 Next j Next i Print Sum End Sub
运行时，单击按钮，输出结果是（ ）。 (A) 4 (B) 8 (C) 20 (D) 32
(答案：C)
31609. 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = 0
For m = 1 To 3 a = a + 1 b = 0
For j = 1 To 3 a = a + 1 b = b + 2 Next j
Next m Print a, b End Sub
运行时，单击按钮，输出结果是（ ）。 (A) 6 6 (B) 6 18 (C) 12 6 (D) 12 18 (答案：C)
31701. 在通用声明中给出Option Base 1语句，则数组a包含（ ）个元素。 Dim a(3, -2 To 1, 5) (A) 120 (B) 75 (C) 60 (D) 13
(答案：C)
31702. 下列叙述错误的是（ ）。
(A) 控件数组的每一个元素共享同样的事件过程 (B) 控件数组的每一个元素都有与之相关联的下标值
(C) 控件数组的每一个元素都有不同的Name属性作为标识 (D) 可在运行过程中删除控件数组的某个元素 (答案：C)
31703. 运行下列程序，单击窗体后输出的结果是（ ）。 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) 程序出错 (答案：B)
31704. 如下数组声明语句中数组a包含的元素个数为（ ）。 Dim a(3, -2 To 1, 5) (A) 96 (B) 75 (C) 60 (D) 13
(答案：A)
31705. 下列语句错误的是（ ）。 (A) Private a(-10 To 5) (B) Dim a(N) 'N为变量 (C) Dim a() As Integer (D) Dim a%(10,-10 To -10) (答案：B)
31706. 运行下列程序，单击窗体后输出的结果是（ ）。 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) Next i Print s End Sub (A) 15 (B) 48 (C) 120 (D) 720 (答案：B)
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) 0 (B) 1 (C) 2 (D) 3
(答案：A)
31708. 能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（ ）。 (A) ReDim arr(7)
(B) ReDim Preserve arr(7) (C) Public arr(1 To 7) (D) Static arr(7) (答案：B)
31709. 如下程序段中包含一个错误。 x = 4