VB期末考试试题及答案 (1)

第一部分：客观题

一、单项选择题

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

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

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

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

页脚内容4

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

页脚内容5