一、单项选择题（共10分）
第一部分：客观题
一、 单项选择题 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
页脚内容1
） 一、单项选择题（共10分）
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
页脚内容2
一、单项选择题（共10分）
13、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案（ ） A、Text1.MaxLength=0 B、Text1.Width=0 C、Text1.Visible=False D、Text1.Enabled=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
页脚内容3
一、单项选择题（共10分）
y1=y1+2 End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是 （ ） A、 10 5 B、 12 5 C、 10 7 D、 12 7
16、执行以下程序段，输出结果为 （ ） Private Sub Command1_Click() a$=\ 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
页脚内容4
一、单项选择题（共10分）
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(\请输入半径\求面积\，在输入框中输入3后回车,则下列叙述正确的是（ ）
A、x的值是数值3 B、 x的值是字符\ 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
页脚内容5
VB期末考试试题及答案(1)
