2012-2013第二学期VB期末考试卷（A卷）终极版

贵州大学2012-2013学年第二学期期末考试（A卷）

高级程序设计语言

VB

（考试时间：100分钟，试卷总分：100分）

一、选择题。（共35题，1-20题每题1分，后21-35题每题2分，共50分） 1、下面哪一个不是Visual Basic保留的关键字？（ ）

（A）Function （B）Else （C）Righ （D）Left 2、修改窗体的标题栏内容通过设置窗体的（ ）属性

（A）Backcolor （B）Caption （C）Forecolor （D）Appearance 3、以下不属于Visual Basic的工作模式是 模式。

（A）编译 （B）设计 （C）运行 （D）中断 4、下面4项中合法的字符常数是：（ ）

（A） 'ABC' （B）ABC （C）ABC$ （D）\ 5、以下语句的输出结果是

a=Sqr(3)

print Format(a, \ $ $####.0000\ )

（A）$1.7321 （C)）$$1.7321 （B）$0001.7321 （D） $$0001.7321 6、下面 是合法的变量名。

(A) integer （B）123abc （C）X_yz （D）X-Y 7、下列程序段的执行结果是（ ）。

J1= 10 2=30： J1=J2+J1 J If J1

Print J2; J1

（A）30 40 （B）30 30 10 （C）30 10 （D）10 30 8、下列程序段的运行结果是：（ ）

Dim A As Integer , B As Integer A = -15 B = - 4

PRINT 4 + A mod B

A、5 B、 7 C、1 D、出错

9、下面 是不合法的单精度常数。

（A）100！ （B）100.0D+2 （C）1E+2 (D)100.0 10、执行以下语句后的显示结果为（ ） Dim x As Integer ：x=1

x If x - 1 then Print x Else Print - 1

（A）1 （B）-1 （C）0 （D）不确定 11、数学关系3≤

X<10表示成正确的VB表达式为 。

（A）abs(X)＞=3 or abs(X)＜10 （B）sqr(X)＞=3 or sqr(X)＜10 （C）abs(X)＞=3 and abs(X)＜10 （D）sqr(X)＞=3 and sqr(X)＜10 12、假定Pic1和Lab1分别是图片框和标签框的名称，下列不正确的语句是

(A) Pic1.Print 25 (B) Print 25 (C) Lab1.Print 25 (D) debug.Print 25

13、下列语句正确的是（ ）

（A）If A≥B Then T=A :A=B :B=T （B）If A≥B Then T=A; A=B; B=t （C）If A>=B Then T=A; A=B; B=T （D）If A>=B Then T=A : A=B : B=T

10 0 的值是 14、 下面表达式 Int （ 198.555*100+0.5 ）/

（A）198 （B）198.6 （C）198.56 （D）200

15、为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置成 d

（A） 0 （B） 1 （C） 2 （D）3 16、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是

(A) Value (B) Default (C) Enabled (D)Cancel 17、已知A$=”1234123456789”，则表达式Val(Mid$(a$, 9)) 的值为

（A）123456 （B）123445 （C）00-2-30 （D）56789 18、下列程序段的运行结果是（ ）

Dim A As Integer , B As Integer , X As Integer A = 1 ：B = 2

IF A < B THEN X = A - B ELSE X = B + A:x=1 PRINT X

(A)-1 (B) 1 (C) 2 (D) 3

19、假定在图片框Pictrue1中装入了一个图形，为了清除该图形（注意，不是删除图片框），应该采用的正确方法是（ ） A) 选择图片框，然后按Del键

B) 在程序中执行语句Pictrue1. Picture = \

C) 选择图片框，在属性窗口中选择Picture属性条，然后按回车键 D) 在程序中执行语句Pictrue1. Picture =LoadPicture(\

20、为了使文本框具有水平滚动条，应先把 属性设置为True

（A）Caption （B）Text （C）ScrollBars （D）MultiLine 21、下列程序段的执行结果为（ ）。 X=int(rnd*21+20)+10 Select Case X Case Is>=10 Print “A” Case Is>=20 Print “B” Case Is>=30 Print “C” Case Is>=40 Print “D” End Select

（A）A （B）B （C）C （D）D 22、下列程序段的执行结果为（ ）。

X= 6

For K=10 To 1 Step 2 X=X+K

Next K

Print K; X

（A）-1 6（B）-1 16 （C）10 6（D）11 31 23、下列程序段的执行结果为（ ）。 X=5 Y=20

If Not X>Y Then X=Y+X Else Y=X+3 Print X;Y-X

（A）-3 3 （B）5 -8 （C）3 -3 （D）25 -5

24、下列程序段的执行结果为（ ）。 Private Sub Form_click() A = \ B = \

A = Val(A + B)

B = Val(A) + Val(B)

If A <> B Then Print A - B Else Print B - A End Sub

（A）-9 （B）9 （C）-2 （D）14

25、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click()

Dim Arr1(10), arr2(10) As Integer n=3

For i = 1 To 5

Arr1(i) = i

arr2(n) = 2 * n + i Next i

Print arr2(n+1); Arr1(n) End Sub

程序运行后，单击命令按钮，输出结果是

A）11 3 B）3 11 C）0 3 D）3 13

26、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4, 5) For i = 1 To LBound(a)

a(i) = a(i) + i - 1 Next

Print a(4)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是 （A）4 （B） 5 （C） 6 （D） 7 27、为了清除列表框中所有的项目，应使用的方法为( )

(A)Cls (B)Clear (C)Remove (D)RemoveItem

28、以下定义数组或给数组元素赋值的语句中，正确的是 D（A ） im a(10) As Integer

a = Array(1, 2, 3, 4, 5)

D（B ） im a As Variant

a = Array(1, 2, 3, 4, 5)

D（C ） im a%(10)

a(1) = \

D（D ） im a(3),b(3) As Integer

a(0) = 0

a(1) = 1

a(2) = 2

b = a

29、在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码：

运行上面的程序，单击窗体，其输出结果是

Option Base 1

Private Sub form_Click()

Dim a s = 0

a = Array(1, 2, 3, 4) j = 1000

For i = 4 To 1 Step - 1 s = s + a(i) * j

j = j / 10

Next i Print s End Sub

（A）4321 （B）1234 （ C）34 （D）12

30、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4, 5) For i = 1 To UBound(a)

a(i) = a(i) + i - 1

Next i

Print a(4)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是 （A）4 （B） 5 （C） 6 （D） 7

31、假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是______。

A) 数组中每个命令按钮的名称（Name属性）均为Command1 B) 数组中每个命令按钮的标题（Caption属性）都一样 C) 数组中所有命令按钮可以使用同一个事件过程

D) 用名称Command1(下标)可以访问数组中的每个命令按钮

32、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load()

List1.AddItem \

List1.AddItem \

List1.AddItem \

List1.AddItem \

Text1.Text = \

End Sub Private Sub List1_DblClick()

M = List1.Text

Print M+Text1.Text

End Sub

本文来源：https://www.bwwdw.com/article/6iof.html