Dim a(x)
For m = 4 To 0 Step -1 a(m) = m + 1 Next m
出错的原因是（ ）。
(A) 第四行，数组元素a(m)下标越界
(B) 第四行，不能用循环变量m进行运算 (C) 第二行，不能用变量定义数组下标 (D) 以上原因都不对 (答案：C)
31801. 窗体上有两个文本框（Text1、Text2）和一个命令按钮（Command1），阅读如下程序： Private Sub func(T As TextBox, a As Integer) T.Text = \a = a * a End Sub
Private Sub Form_Load() Text1.Text = \Text2.Text = 10 End Sub
Private Sub Command1_Click() Dim temp As Integer temp = Val(Text2.Text) Call func(Text1, temp) Text2.Text = temp End Sub
运行后，单击按钮，Text1和Text2将分别显示（ ）。 (A) ABCD和10 (B) 1234和100 (C) ABCD和100 (D) 1234和10 (答案：B)
31802. 窗体上有命令按钮Command1和Command2，请阅读下列程序： Dim a As Integer
Private Sub Command1_Click() a = a + 3 : Print a End Sub
Private Sub Command2_Click() a = a + 2 : Print a End Sub
运行时，分别单击Command1和Command2按钠 ?，输出的结果为（ ）。 (A) 3 5
(B) 3 2
(C) 2 5 (D) 2 3
(答案：A)
31803. 运行下列程序，单击窗体后输出的结果是（ ）。 Function F(ByVal x As Integer) Static z
z = z + 1: x = x + z F = x + z End Function
Private Sub Form_Click() Dim a As Integer Dim i As Integer a = 2
For i = 1 To 3 Next i End Sub (A) 4 7 11 (B) 4 6 8 (C) 4 4 4 (D) 4 5 6 (答案：B)
31804. 阅读下列程序： Sub Med(x%, ByVal y%) x = 3 * x: y = x + y End Sub
Private Sub Form_Click() Dim a%, b% a = 3: b = 8 Med a, b Print a, b End Sub
运行后，单击窗体，输出结果为（ ）。 (A) 3 8 (B) 3 17 (C) 9 8 (D) 9 17 (答案：C)
31805. 阅读下列程序： Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3
n = n + i
m = m + i ^ 2 Next
Print m, n End Sub
运行时，两次单击窗体，输出结果为（ ）。 (A) 14 6 14 6
(B) 14 6 14 12 (C) 14 6 28 6
(D) 14 6 28 12
(答案：B)
31806. 窗体上有一个命令按钮Command1，编写如下事件过程： Private Su b Command1_Click() Dim i%, j%, x%, n% x = 0
n = InputBox(\For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub
运行时，单击命令按钮，如果在输入对话框中输入3，则窗体上显示的内容是（ ）。 (A) 6 (B) 10 (C) 14 (D) 18
(答案：B)
31807. 阅读如下程序，
Dim S As Single, a As Single, b As Single a = 1: b = 2 plus S, a, b Print S
不能使其输出结果为3的plus过程为（ ）。
(A) Sub plus(sum As Single, a As Single, b As Single) sum = a + b End Sub
(B) Sub plus(ByVal sum As Single, a As Single, b As Single) sum = a + b
End Sub
(C) Sub plus(ByRef sum As Single, ByVal a As Single, ByVal b As Single) sum = a + b End Sub
(D) Sub plus(sum As Single, ByRef a As Single, ByRef b As Single) sum = a + b End Sub (答案：B)
31808. 窗体上有命令按钮Command1和Command2，阅读下列程序： Dim a As Integer
Private Sub Form_Load() a = 0: a = a + 1 End Sub
Private Sub Command1_Click() Dim a As Integer a = a + 2 Print a， End Sub
Private Sub Command 2_Click() Print a End Sub
运行时，先后单击Command1和Command2按钮，输出的结果为（ ）。 (A) 3 1 (B) 3 3 (C) 2 2 (D) 2 1 (答案：D)
31809. 窗体上有命令按钮Command1和Command2，阅读下列程序： Private Sub Command1_Click() a = a + 1 : Print a， End Sub
Private Sub Command2_Click() a = a + 1 : Print a End Sub
运行时，先后单击Command1和Command2按钮，输出的结果为（ ）。 (A) 1 1 (B) 2 2 (C) 1 2 (D) 2 1 (答案：A)
31901. 下列叙述正确的是（ ）。
(A) 菜单是一个控件，也具有属性和事件 (B) “菜单编辑器”中设计的菜单不是控件 (C) 菜单的属性可以在\属性窗口\中设置
(D) 菜单是一个控件，它可以保存在\工具箱\中 (答案：A)
31902. 显示弹出菜单要用（ ）方法实现。 (A) Popup
(B) PopupMenu (C) ShowMenu (D) DrawMenu (答案：B)
31903. 下列叙述错误的是（ ）。
(A) 菜单项的Caption属性为“&File”，则它的热键为Alt+F (B) 程序运行过程中，可以重新蠠 ??置菜单的Visible属性 (C) 在同一窗体的菜单项中，不允许出现标题相同的菜单项 (D) 菜单项与其它控件一样有自己的属性和事件 (答案：C)
31904. 以下叙述错误的是（ ）。 (A) 一个工程中只能有一个Sub Main过程 (B) 窗体的Show方法将指定的窗体装入内存并显示 (C) 窗体的Hide和Unload方法作用完全相同
(D) 若工程文件中有多个窗体，可以根据需要指定一个启动窗体 (答案：C)
31905. 用通用对话框建立\打开\文件对话框时，指定文件列表框所列出的文件类型是文本文件的正确描述符是（ ）。 (A) \
(B) \文本文件(.txt)|(.txt)\(C) \(D) \(答案：A)
31906. 在菜单编辑器中定义一个名称为Edi的菜单项。执行（ ）语句可以在运行时隐藏该菜单项。
(A) Edi.Enabled = True (B) Edi.Visible = True (C) Edi.Enabled = False (D) Edi.Visible = False (答案：D)
31907. 下列叙述错误的是（ ＠ ?。 (A) 运行时，通用对话框控件是不可见的
(B) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框 (C) 在同一个程序中，用不同的方法打开的通用对话框具有不同的作用
(D) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 (答案：D)
31908. 窗体上有一个通用对话框CommonDialog1，语句CommonDialog1.Action = 1表示（ ）。 (A) 显示\打开\对话框 (B) 显示\字体\对话框 (C) 显示\颜色\对话框 (D) 显示\另存为\对话框