End Sub
B）Private Sub Form_Click()
x = InputBox(\请输入数据\输入界面\End Sub
C）Private Sub Form_Click()
x = InputBox(\输入界面\请输入数据\End Sub
D）Private Sub Form_Click()
x = InputBox(\请输入数据\输入界面\End Sub
16）（新）下列说法中，错误的是（ D ） （★★★★）
A）变量名不能使用保留字
B）变量名只能由字母、数字和下划线组成 C）变量名的第一个字符必须是字母 D）变量名长度不能超过127个字符
17）（新）为了读取数据，需打开顺序文件”D:\\data5.txt”,以下正确的命令是（ B ） （★★★★）
A）Open D:\\data5.txt For Input As #1 B）Open \C）Open \D）Open D:\\data5.txt For Output As #1
18）（新）双精度浮点数的类型说明符为（ A ） （★★★） A）# B）% C）@ D）&
19）（新）下列关于菜单项的描述中，错误的是（ A ） （★★★★）
A）通过Visible属性设置菜单项的有效性 B）菜单项不能响应Click事件以外的其他事件 C）菜单项的索引号可以不连续
D）每个菜单项都可以被看作一个控件，具有相应的属性和事件 20）（新）下面能够将某个变量声明为局部变量的是（ C ） （★★★★）
A）在窗体模块的声明部分，用关键字Static声明这个变量
B）在需要使用这个变量的过程中，用关键字Public声明这个变量 C）在需要使用这个变量的过程中，用关键字Private声明这个变量 D）在窗体模块的声明部分，用关键字Dim声明这个变量 21）（新）以下关于通用对话框的叙述中，错误的是（ B ） （★）
A）在程序运行状态下，通用对话框控件是不显示的 B）通用对话框控件是Visual Basic的标准控件
C）在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框 D）设计时，通用对话框控件的大小是固定的，不能改变 31）（新）编写如下程序： （★★）
Private Sub Form_Click()
Dim a(5) As Integer, b(3) As Integer Dim k As Integer k = 1
For i = 1 To 5 a(i) = i Next i
For i = 1 To 3 b(i) = 2 * a(i) Next i
For i = 1 To 3 k = k + b(i) * 2 Next i Print k End Sub
运行程序，单击窗体，输出结果是（ C ） A）30 B）31 C）25 D）32 34）（新）有如下程序： （★★）
Private Sub Form_Click() Dim x As String Dim n As Integer
x = InputBox(\输入一个英文单词（全部大写）\ n = Len(x) For i = 2 To n
c = Asc(Mid(x)) + 32 Mid(x, i, 1) = Chr(c) Next i Print x End Sub
以上程序的功能是，从键盘上输入一个由大写字母组成的英文单词，保留第一个字母为大写，把后面的字母全变成小写。程序中有错误，应做的修改是（ C ） A）把Mid(x)改为：Mid(x,1) B）把Mid(x)改为：Mid(x,i-1,1) C）把Mid(x)改为：Mid(x,i,1) D）把Mid(x)改为：Mid(x,i+1,1) 11）（新）下面关于VB数据文件的叙述中错误的是（ C ） （★）
A）VB应用程序可以用随机方式读写数据文件 B）VB数据文件不包括VB的窗体文件
C）VB应用程序不能把一个二维表格中的数据存入文件
D）VB应用程序在读写数据文件之前，必须用Open语句打开该文件 12）（新）下面为单精度实型（即单精度浮点型）变量的是（ D ） （★） A）x$
B）x& C）x# D）x! 13）（新）在下面语句或函数中，不能描述选择结构的是（ A ） （★）
A）While语句 B）If语句 C）IIf函数
D）Select Case语句 14）（新）设变量x中的值是845，则下面语句的输出是（ A ）
（★）
Print x \\ 100 +(x Mod 100) \\ 10)+x Mod 10
A) 17 B) 548 C) 485 D) 845
15）（新）有下面的程序段： （★）
x=InputBox(“字符串”,”输入”,”请输入”) Print x
如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键，则输出内容是（ C ） A）字符串
B）空白（即未输出任何内容） C）请输入 D）输入 16）（新）设有以下定义语句： （★）
Private Type point x As Integer y As Integer End Type
下面语句中正确的是（ B ） A）point=12 B）a.x=12 C）point.x=12 D）a=12 17）（新）语句：Print Int(Rnd * 5+20)的输出不可能是（ C ） （★） A）24 B）20 C）25 D）22 18）（新）下面操作中，不能正确保存正在编辑的工程的是（ A ） （★）
A）单击“工程”菜单，在下拉菜单中选“保存工程”
B）鼠标右键单击“工程资源管理器窗口”中该工程的图标，在弹出的菜单中选“保存工程” C）直接单击工具栏上的“保存工程”按钮
D）单击“文件”菜单，在下拉菜单中选“保存工程” 19）（新）在VB中，函数过程与子程序过程的区别之一是（ B ） （★）
A）函数过程的参数传递只采用值传递，而子程序过程只采用地址传递 B）函数过程有返回值，而子程序过程没有
C）在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能 D）函数过程必须有参数，而子程序过程可以没有 20）（新）如果要在语句：a=Array(1，2，3，4，5)的前面声明变量a，则正确的声明是（ C ） （★）
A）Dim a(1 to 5) As Integer B）Dim a(4) As Integer C）Dim a As Variant D）Dim a(5) As Variant 21）（新）有人在属性窗口中通过设置Picture属性为命令按钮装入了图片，但没有显示，其原因是（ A ） （★）
A）命令按钮的Style属性为0-Standard
B）没有用DisabledPicture属性为命令按钮装入图片 C）命令按钮的Default属性为False D）命令按钮的Enabled属性为False 25）（新）如果将文本框的一个属性设置为True，则运行时不能对该文本框中的内容进行编辑，这个属性是（ C ） （★）
A）MultiLine B）Visible C）Locked D）TabStop 27）（新）当执行循环的时间较长时，为了避免被误认为是死机，通常应在循环体中放置一个语句，这个语句是（ C ） （★）
A）Exit Sub B）DoEvents C）Exit For D）Exit Do 28）（新）以下关于文本框Text1的叙述中，错误的是（ C ） （★）
Ａ）Text1.PasswordChar=”@”表示在文本框中输入的字符都显示为”@” Ｂ）Text1.Enabled=False表示把文本框设置为禁用
Ｃ）a=Text1.Caption表示把在文本框中输入的内容赋给变量a Ｄ）Text1.MaxLength=20表示文本框允许输入的最大字符数为20 29）（新）如果列表框List1中有一个项目被用户选定，则执行 （★）
Debug.Print List1.Selected(List1.ListIndex) 语句后的输出结果是（ A ） A）在立即窗口中输出True B）在窗体上输出True
C）在窗体上输出被选定项目的索引值
D）在立即窗口中输出被选定项目的索引值 30）（新）为了使命令按钮显示为图形形式，要设置一些属性，下列与这些属性无关的是（ B ） （★）
A）DownPicture B）Default
C）DisabledPicture D）Style 31）（新）有如下程序代码：
（★★）
Private Sub Form_Click()
Dim a(10) As Integer, b(5) As Integer For i = 1 To 10 a(i) = i Next i
For j = 1 To 5 b(j) = j * 20 Next j a(5) = b(2) Print a(5) End Sub
运行程序，单击窗体，输出结果是（ D ） A）5 B）10 C）20 D）40 32）（新）有如下程序代码： （★）
运行程序，单击窗体，输出结果是（ B ） A）0 1 B）3 21 C）3 7 D）3 13 33）（新）有如下通用过程： （★★）
Function fs(ByVal n As Long) As Long Dim k As Long k = 1
n = Abs(n) Do While n
k = k * (n Mod 10) n = n \\ 10 Loop fs = k
End Function
编写如下事件过程： Private Sub Form_Click() Dim a As Long Dim b As Long
a = InputBox(\请输入一个数\ a = cInt(a) b = fs(a) Print b End Sub
程序运行后，单击窗体，在输入对话框中输入567，输出结果为（ C ） A）67 B）18