一、单选题：
1.在Visual Basic中，表达式3*2\\5的值是（ ）。 A) 1 B) 0 C) 3
D) 出现错误提示
2.以下叙述中错误的是( )。 A) 标准模块文件的扩展名是.bas B) 标准模块文件是纯代码文件
C) 在标准模块中声明的全局变量可以在整个工程中使用 D) 在标准模块中不能定义过程
3.以下选项中，不合法的Visual Basic的变量名是( )。 A) a5b B) _xyz C) a_b D) andif
4.以下数组定义语句中，错误的是( )。 A) Static a(10)As Integer B) Dim c(3， 1 To 4) C) Dim d(－10)
D) Dim b(0 To 5， 1 To 3)As Integer
5.现有语句： y＝IIf(x>0， x Mod 3， 0) 设x＝10，则y的值是( )。 A) 0 B) 1 C) 3
D) 语句有错
6.在设计窗体时双击窗体的任何地方，可以打开的窗口是( )。 A) 代码窗口 B) 属性窗口
C) 工程资源管理器窗口 D) 工具箱窗口
7.若变量a未事先定义而直接使用(例如：a＝0)，则变量a的类型是( )。 A) Integer B) String C) Boolean D) Variant
8.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为( )。 A) Dim pi As Integer B) Dim pi(7)As Integer C) Dim pi As Single
D) Dim pi As Long
9.表达式2*3^2+4*2/2+3^2的值是（ ） A) 30 B) 31 C) 49 D) 48
10.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为( )。 A) 0 B) 1 C) 2 D) 3
11.若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是( )。 A) 用鼠标右键单击此按钮 B) 按键盘上的Esc键 C) 按键盘上的回车键
D) 用鼠标右键双击此按钮
12.要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是( )。 ① 先画一个框架，再在框架中画两个单选按钮
② 先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 ③ 先画两个单选按钮，再画框架将单选按钮框起来 A) ① B) ①、② C) ③
D) ①、②、③
13.窗体上有一个名称为Frame1的框架(如图)，若要把框架上显示的\Frame1\改为汉字\框架\，下面正确的语句是( A) Frame1.Name＝\框架\ B) Frame1.Caption＝\框架\C) Frame1.Text＝\框架\ D) Frame1.Value＝\框架\
14.工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public x As Integer Private y As Integer
窗体文件的程序代码是： Dim a As Integer
Private Sub Form_Load() Dim b As Integer
)。
a＝2：b＝3：x＝10：y＝20 End Sub
Private Sub Command1_Click()
a＝a＋5：b＝b＋5：x＝x＋5：y＝y＋5
Print a； b； x； y End Sub
运行程序，单击窗体上的命令按钮，则在窗体上显示的是( )。 A) 5 5 15 5 B) 7 5 15 25 C) 7 8 15 5 D) 7 5 15 5
15.窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。
程序如下：
Private Sub Command1_Click(Index As Integer) If Index＝1 Then
Print\计算机等级考试\ End If
If Index＝2 Then
Print Command1(2).Caption End If End Sub
运行程序，单击\命令按钮2\，则如下叙述中正确的是( )。 A) Print Command1(2).Caption语句有错 B) 在窗体上显示\命令按钮2\C) 在窗体上显示\命令按钮3\
D) 在窗体上显示\计算机等级考试\
16.下面程序的执行结果是( )。 Private Sub Command1_Click() a＝0 k＝1
Do While k<4 x＝k ^ k ^ a k＝k＋1 Print x； Loop End Sub
A) 1 4 27 B) 1 1 1
C) 1 4 9 D) 0 0 0
17.设有如下Command1的单击事件过程及fun过程： Private Sub Command1_Click() Dim x As Integer
x＝Val(InputBox(\请输入一个整数\ fun(x) End Sub
Private Sub fun(x As Integer)
If x Mod 2＝0 Then fun(x / 2) Print x； End Sub
执行上述程序，输入6，结果是( )。 A) 3 6 B) 6 3 C) 6
D) 程序死循环
18.Print Right(\， 2) 语句的输出结果是( )。 A) VB
B) Programming C) ng D) 2
19.表达式12 / 2\\4的值是( )。 A) 1.5 B) 2 C) 4 D) 1
20.下列数组定义中错误的是( )。 A) Dim a(－5 To－3) B) Dim a(3 To 5)
C) Dim a(－3 To－5) D) Dim a(－3 To 3)
21.在某个事件过程中定义的变量是( )。 A) 局部变量 B) 窗体级变量 C) 全局变量 D) 模块变量
22.如果一个菜单项的Enabled属性被设置为False，则程序运行时，该菜单项(A) 不显示 B) 显示但无效 C) 有效可用
D) 不显示但有效可用
)。
23.要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是( )。 A) AutoSize值为True B) AutoRedraw值为True C) Stretch值为True D) BorderStyle值为0
24.如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是( )。 A) B)
C) D)
25.如果在框架中画了2个复选框，且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True，则下面叙述中正确的是( )。 A) 2个复选框可用 B) 2个复选框不可用 C) 2个复选框不显示 D) 上述都不对
26.设在窗体上有一个名称为Check1的复选框数组，并有以下事件过程：
Private Sub Check1_Click(Index As Integer) ? End Sub
则下面叙述中错误的是( )。
A) 单击数组中任何复选框都会调用此事件过程
B) 参数Index的值等于单击数组中某个复选框的Index属性的值 C) 上面的过程是数组中第1个复选框的事件过程
D) 从过程的首部(即第1行)无法确定数组中复选框的个数
27.如果要在窗体上使用2组单选按钮，每组都可以有一个被选中，则应该做的是( )。 A) 把1组单选按钮画在窗体的左边，另1组画在右边
B) 先画2组单选按钮，再画2个框架控件把2组单选按钮分别框起来 C) 先画2个框架控件，再把2组单选按钮分别画在不同的框架中
D) 因为1个窗体中只有1个单选按钮可以被选中，所以需要使用2个窗体
28.设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：
Private Sub Form_Load() HScroll1.Min＝0 HScroll1.Max＝100 End Sub
Private Sub Command1_Click() HScroll1.Value＝70 End Sub
程序运行时单击命令按钮，则滚动条上滚动块位置的图示是( )。 A) B)