第一部分：客观题
一、单项选择题
1、在窗体模块的通用段中声明变量时，不能使用的关键字是（）
A、 Dim
B、 Public
C、Private
D、 Static
2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）
A、工程资源管理器窗口
B、工具箱窗口
C、属性窗口
D、代码窗口
3、若要使某可见控件获得焦点，可使用（）方法来实现。
Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value
4、下列不可作为VB变量名的是（）
A、ABT1
B、Alpha
C、ABC
D、4*Delta
5、表达式 5 Mod 3+3\5*2的值是（）
A、 0
B、 6
C、4
D、 2
6、下列语句中，正确的赋值语句是（）
A、 i + j = 10
B、 2i = j
C、 j = i + j
D、 i * j = 0
7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1
Do
x = x * i
i = i + 1
Loop While i < n
A、 2
B、 6
C、 10
D、 14
8、当用户在窗体上单击鼠标时，不会触发的事件是（）
Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick
9、下列为整型变量的是（）
A、 x!
B、 x#
C、x$
D、 x%
10、要从For循环中直接退出循环，可使用的语句( )。
A、Exit Do
B、Exit Loop
C、Exit For
D、Stop
11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（）
A、x Mod 2 =1 Or y Mod 2 =1
B、x Mod 2 =0 Or y Mod 2=0
C、x Mod 2 =0 And y Mod 2=0
D、x Mod 2 =1 And y Mod 2 =1
12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。
Dim a(3, -2 To 1, 5) As Integer
A、60
B、75
C、120
D、13
13、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案（）
A、=0
B、=0
C、=False
D、=False
14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（）
A、Picture属性中的图形
B、DownPicture属性中的图形
C、DisablePicture 属性中的图形
D、不显示图形
15、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10：y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是（）
A、 10 5
B、 12 5
C、 10 7
D、 12 7
16、执行以下程序段，输出结果为（）
Private Sub Command1_Click()
a$="abbacddcba"
For i=6 To 2 Step -2
X=Mid(a,i,i)
Y=Left(a,i)
z=Right(a,i)
z= UCase(x & y & z)
Next i
Print z
End Sub
A、 ABA
B、ABBABA
C、 BBABBA
D、AABAAB
17、以下（）语句可表示[50,100]之间的随机数。
A、Int(Rnd * 51) + 49
B、Int(Rnd * 51 +50)
C、Int(Rnd * 50) + 5
D、Int(Rnd * 50 + 50)
18、执行x = InputBox("请输入半径",0,"求面积") ，在输入框中输入3后回车,则下列叙述正确的是（）
A、x的值是数值3
B、 x的值是字符"3"
C、0是默认值
D、对话框标题是"求面积"
19、设置图像框的（）可使框内的图片按图像框大小自动调整。
A、 AutoSize属性为True
B、 Stretch属性为True
C、 AutoSize属性为False
D、 Stretch属性为False
20、有如下事件过程
Private Sub Command1_Click()
x = 1
For i = 1 To 3
If i <= 1 Then a = x * x
If i <= 2 Then a = x * x + 1
If i >= 3 Then a = x * x + 2
Print a;
