VB程序设计考试题库（9)
一、单选题（每题1分，共50题）
1。以下不属于Visual basic的工作模式的是（ ）模式。正确答案:A
A。编译 B。设计 C.运行 D。中断
2。VB集成开发环境有三种工作状态,不属于其中之一的是( )。正确答案：B
A.设计状态B。写代码状态C.运行状态D。中断状态
3.下列属性中，文本框控件不具有的属性是（ )。 正确答案：B
A.Backcolor B.Caption C。Passwordchar D.Enabled
4.以下能够触发文本框Change事件的操作是（ )。正确答案：D
A.文本框失去焦点 B。文本框获得焦点
C。设置文本框的焦点 D.改变文本框的内容
5。函数Int(Rnd＊6+1)的取值范围是( )。正确答案:C
A.从1到7共7个整数B。从0到7共8个整数
C。从1到6共6个整数D。从0到6共7个整数
6。可以同时删除字符串前导和尾部空白的函数是（ ） .正确答案：C
A。Ltrim B。Rtrim C.Trim D。Mid
7。有如下程序：
a＄=”Flying”:b$=”IS”：c＄=”funny！"
Print a$+” "+Lcase＄（b＄)+” "+Ucase＄(c$）
End
运行后,输出结果是（ )。正确答案：B
a＄=”Flying”:b$=”IS”：c＄=”funny！"
Print a$+” "+Lcase＄（b＄)+” "+Ucase＄(c$）
End
运行后,输出结果是（ )。正确答案：B
A.Flying Is funny! B.Flying is FUNNY！
C。Flying IS FUNNY! D。FLYING IS FUNNY!
8.表示学习成绩(score)在75分和90分之间的逻辑表达式是（ ）.正确答案：A
A．score>=75 And score〈=90
B．score>=75 0r score〈=90
C．score<=75 And score>=90
D．score<=75 0r score〉=90
9.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（ ). 正确答案：B
A。4 B。5 C。6 D.7
10。函数rnd用于产生随机数，其结果范围是( ） 。正确答案：B
A。 （0,1） B. ［0,1） C. （0,1］ D。 ［0,1]
11.有如下程序：
a=3：b=4
a=3：b=4
Print b〉a
End
运行后,输出结果是（ ）.正确答案：A
End
运行后,输出结果是（ ）.正确答案：A
A.Ture B.FALSE C.4〉3 D.显示出错信息
12.能清除文本框Text1中内容的语句是（ ）正确答案：B
A. Text = "” B. Text1.Text = ”" C. Text1。clear D。 Text1.Cls
13.在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click(）
Dim I As Integer，n As Integer
For j=0 To 50
I=I+3
n=n+1
Private Sub Command1_Click(）
Dim I As Integer，n As Integer
For j=0 To 50
I=I+3
n=n+1
If I〉10 Then Exit For
Next
Text1。Text=Str（n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）。正确答案：C
Next
Text1。Text=Str（n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）。正确答案：C
A。2 B.3 C.4 D.5
14。下面的程序段运行后，text1 显示的内容是（ )。 正确答案：D
x = 0
Do While x 〈 10
x = x + 1 : x = x ＊ x
Loop
text1.Text = x
x = 0
Do While x 〈 10
x = x + 1 : x = x ＊ x
Loop
text1.Text = x
A. 16 B. 19 C. 20 D. 25
15。阅读下面的程序段:
For I=1 To 3
For j=1 To I
For k=j To 3
a=a+1
Next k
Next j
Next I
执行上面的三重循环后，a 的值为（ ）。正确答案：C
For I=1 To 3
For j=1 To I
For k=j To 3
a=a+1
Next k
Next j
Next I
执行上面的三重循环后，a 的值为（ ）。正确答案：C
A.3 B。9 C.14 D.21
16.当用户将焦点移到另一个应用程序时,当前应用程序的活动窗体将 ( ） 。
正确答案：D
正确答案：D
A。 发生DeActivate事件
B. 发生LostFocus事件
C. 发生DeActivate和LostFocus事件
D。 DeActivate和LostFocus事件都不发生
17.为了描述x〉y和y>z同时成立，则下述选项中，正确的是( )。
正确答案：D
正确答案：D
A.x〉y 。And。 Y>z B.x〉y〉z
C。x>y And >z D.x>y And y〉z
18.InputBox函数返回值的类型为( ）.正确答案：B
A。数值 B。字符串
C。变体 D。数值或字符串(视输入的数据而定)
19.有 如下程序:
Dim a As String，b As String
Dim a As String，b As String
a=”12345"，b="abcde”
For I=1 To 5
c=c+Left(a,I）+Right(b，I）
Next I
Print c
运行后输出的结果是（ ).正确答案：D
For I=1 To 5
c=c+Left(a,I）+Right(b，I）
Next I
Print c
运行后输出的结果是（ ).正确答案：D
A。alb2c3d4e5 B。la2b3c4de5
C.eld2c4b5ed2c3b4a5 D。1e12del23cdel234bcdel2345abcde
20.窗体上有文本框Text1和命令按钮Command1,对Command1编写如下事件过程：
Private Sub Command1_Click（）
Text1.Text = ”12345”
Text1。SelStart = 1
Text1。SelLength = 3
MsgBox Text1。SelText
Private Sub Command1_Click（）
Text1.Text = ”12345”
Text1。SelStart = 1
Text1。SelLength = 3
MsgBox Text1。SelText
End Sub 运行时，单击命令按钮，出现的信息框显示（ ）正确答案：B
A. 12345 B. 234 C. 123 D. "345"
21。下面是一个窗体的单击事件过程:
Privme Sub Form_Click()
If Commandl.Enabled Then
Label1。Caption="命令按钮可以使用!”
Else
Label1.Caption=”命令按钮不可以使用!"
End If
End Sub
该窗体事件的功能是（ )。正确答案：B
Privme Sub Form_Click()
If Commandl.Enabled Then
Label1。Caption="命令按钮可以使用!”
Else
Label1.Caption=”命令按钮不可以使用!"
End If
End Sub
该窗体事件的功能是（ )。正确答案：B
A.判断命令按钮是否可见,以便在标签上显示不同的信息
B。判断命令按钮是否可用，以便在标签上显示不同的信息
C。判断命令按钮是否设置了默认按钮，以便在标签上显示不同的信息
D。If语句中的条件不合法,事件过程错误，不能执行.
22.下列程序运行时，消息框显示的内容是（ ） 正确答案：A
Private Sub Command1_Click（)
MsgBox CStr（123 + 321）
End SubA. 444 B。 123321 C. 123+321 D. 显示出错信息
Private Sub Command1_Click（)
MsgBox CStr（123 + 321）
End SubA. 444 B。 123321 C. 123+321 D. 显示出错信息
textbox控件边框设置23.下列关于InputBox函数的叙述，错误的是（ ）正确答案：A
A. 可以省略任何参数
B. 可以在屏幕指定位置显示输入框
C。 可以指定默认值
D。 返回值为String类型
24.当文本框的TabStop属性设为False时，下列叙述正确的是（ ）正确答案:D
A。 该文本框无法获得焦点
B. 无法在该文本框中输入文本
C. 焦点将始终停留在该文本框上
D。 该文本框无法通过使用Tab键获得焦点
25.阅读程序
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum = 0
arr = Array（1， 3， 5, 7, 9, 11, 13, 15, 17， 19）
For i = 1 To 10
If arr（i） / 3 = arr(i） \ 3 Then
Sum = Sum + arr(i）
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum = 0
arr = Array（1， 3， 5, 7, 9, 11, 13, 15, 17， 19）
For i = 1 To 10
If arr（i） / 3 = arr(i） \ 3 Then
Sum = Sum + arr(i）
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体,输出结果为（ ）。正确答案：C
Next i
Print Sum
End Sub
程序运行后，单击窗体,输出结果为（ ）。正确答案：C
A.13 B.14 C。27 D。15
26。若定义一维数组为：Dim a(N To M），则该数组的元素为（ )个.正确答案：D
A. M—N B. M-N+1 C. M＊N D。 M+N
27。设有数组声明语句：
Option Base 1
Dim A(2 To 4，3)
以上语句所定义的数组A中共有（ ）个元素。正确答案：B
Option Base 1
Dim A(2 To 4，3)
以上语句所定义的数组A中共有（ ）个元素。正确答案：B
A。 12 B. 9 C。 16 D. 6
28。要分配存放如下方阵的数据，可使用（ ）数组声明语句来实现（不能浪费空间）。正确答案:C
A。 Dim x（9) As Single
B. Dim x(3，3) As Single
C. Dim x(—1 to 1， —5 to —3） As Single
D。 Dim x(—3 to —1， 5 to 7) As Integer
29。以下是窗体的Click事件过程Form_Click 的程序代码：
Option Base 1
Private Sub Form_Click(）
Dim a As Variant
Dim I As Integer, m As Integer， index As Integer
a=Array(345，—54,200，356，65,23）
m=a（LBound（a））
Option Base 1
Private Sub Form_Click(）
Dim a As Variant
Dim I As Integer, m As Integer， index As Integer
a=Array(345，—54,200，356，65,23）
m=a（LBound（a））
Index=Lbound（a)
For I=Lbound（a） To Ubound(a）
If a（i)〉m Then
m=a（i）
Index=I
End if
Next I
Print m; index
End Sub
在程序运行过程中,单击窗体时，程序的输出结果为( ）。正确答案：B
For I=Lbound（a） To Ubound(a）
If a（i)〉m Then
m=a（i）
Index=I
End if
Next I
Print m; index
End Sub
在程序运行过程中,单击窗体时，程序的输出结果为( ）。正确答案：B
A。–24 2 B.356 4 C.345 1 D。356 3
30。Dim A(-3 To 0，3）声明的数组有（ )个元素.正确答案：A
A．16 B．9 C．12 D．10
31.在过程中定义的变量,若希望在离开该过程后，还能保存过程中局部变量的值，则应使用( )关键字在过程中定义局部变量。正确答案：D
A.Dim B.Private C.Public D.Static
32.设有如下过程：
Sub ff(x，y，z）
x=y+z
EndSub
以下所有参数的虚实结合都是传址方式的调用语句是（ ）.
正确答案：B
Sub ff(x，y，z）
x=y+z
EndSub
以下所有参数的虚实结合都是传址方式的调用语句是（ ）.
正确答案：B
A。Call ff（5，7,z）
B。Call ff(x，y，z）
C。Call ff(3+x,5+y，z）
发表评论