VB语言12月试题（V34班）
一、选择题：
1. 在下列表达式中，非法的是______。

A.a=b+c
B.a>b+c
C.a≠b>c
D.a<b+c
2. 下面语句语法正确的是______。

A.a=1 b=2 c=3
B.a=1:b=2:c=3
C.a=1,b=2,c=3
D.a=1;b=2;c=3
3. 表达式3>4 And 7=5的返回值为______。

A.0
B.True
C.-1
D.False
4. 假如列表框（List1）有4个数据项，那么把数据项“China”添加到列表框的最后，应使用＿＿＿语句。

A. List1.AddItem3，”China”
B.List1.AddItem”China”，List1.ListCount-1
C.List1.AddItem”China”，3
D.List1.AddItem”China”，List1.ListCount
5. Integer类型的数据由______字节组成。

A.1
B.2
C.3
D.4
6. 在Visual Basic中，用于获得字符串S最左边4个字符的函数是______。

A.Left(S,4)
B.Left(1,4)
C.LeftStr(S)
D.LeftStr(S,4)
7. 以下______不能作为VB中的变量名。

A.Abx45
B.P1234
C.89TasFF
D.xy
8. 使用Public x声明一个全局的变量时，该语句应放在______。

A.过程中
B.窗体模块的通用声明段
C.标准模块的通用声明段
D.窗体模块或标准模块的通用声明段
9. 表达式a+b=c是______。

A.赋值表达式
B.字符表达式
C.算术表达式
D.关系表达式
10. InputBox函数的返回值的类型为______。

A.数值
B.字符串
C.逻辑值
D.日期值
11. 在Visual Basic中，语句Print 3>9的输出结果为______。

A.0
B.1
C.-1
D.False
12. 在VB中，变量的默认类型是______。

A.Integer
B.Double
C.Variant
D.Currency
13. 数学表达式x>y>z的正确VB逻辑表达式是______。

A.x>y And <z
B.x>y>z
C.x>y And >z
D.x>y And y>z
14. 函数Int(Rnd*11)+10产生的数值的范围是______。

A.（0,10）
B.[10,10]
C.[10,20]
D.(0,20)
15. 下列逻辑表达式中，其值为真的是______。

A."b">"ABC"
B."THAT">"THE"
C.9>"H"
D."A">"a"
16. 如果每0.5秒产生一个计时器事件，那么Interval属性值应设为＿＿＿。

A.5
B.50
C.500
D.0.5
17. 复选框的Value属性为1时，表示＿＿＿。

A．选框未被选中 B.复选框被选中
C.复选框内有灰色的勾
D.复选框操作方式“错误”
18. 不论何种控件，共同具有的是______属性。

A.Text
C.BackColor
D.Caption
19. 计时器的时间间隔是＿＿＿。

A.以毫秒计
B.以分计
C.以秒计
D.以小时计
20. 框架内的所有控件是＿＿＿。

A.随框架一起移动、显示、消失和屏蔽
B.不随框架一起移动、显示、消失和屏蔽
C.仅随框架一起移动
D.仅随框架一起显示和消失
21. 以下程序的输出结果是______。

Private Sub Command1_Click()
Dim sum As Integer
sum%=19
sum=2.32
Print sum%,sum
End Sub
A.19 2.32
B.19 19
C.2.32 2.32
D.2 2
22. 执行下面程序段后，变量c$的值为______。

a$= "Visual Basic Programming"
b$= "Quick"
c$=b$ & Ucase(Mid$(a$,7,6)) & Right$(a$,12)
A.Visual BASIC Programming
B.Quick Basic Programming
C.QUICK Basic Programming
D.Quick BASIC Programming
23. 以下程序的循环次数是______。

Private Sub Command1_Click()
For j=8 To 35 Step 3
Print j;
Next j
End Sub
A.10
B.9
C.27
D.28
24. 执行下面程序段后，变量a的值为______。

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.3
B.9
C.14
D.21
25. 运行下面程序后，在弹出的消息窗口中显示的是______。

Private Sub Form_Click()
Dim counter
counter=0
While counter<20
counter=counter+1
Wend
MsgBox counter
End Sub
A.0
B.21
C.20
D.19
二、判断题：
1. 在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。

2. 在VB中，运算符“/”与“\”都是除法运算符，所以表达式5/2与5\2的结果一样。

3 框架好比一个容器。

4. 当窗体上有多个控件时，一般只有一个控件是当前控件，对控件的所有操作都是针对当前控件进行的。

5. 窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。

6. 显示和隐藏窗体比载入和卸载窗体要快得多。

7. Timer是时钟控件的唯一事件。

8. Style为0时组合框称为简单组合框。

9. 数组作为过程参数时，使用的是地址传送方式。

10. " "是一个字符串，而""不是一个字符串。

三、程序填空：
1. 请用正确的内容填空。

以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。

Private Sub Form_Click()
a$="ABCDEHGABCDEFABCDEABCDABCABA"
b$="AB"
c=InStr(a$, b$)
x=0
While c<>0
x=x+1
a$=Mid$(a$, c+2)
c=InStr(a$,b$)
Wend
( )
End Sub
2. 请用正确的内容填空。

下面程序的作用是利用随机函数产生10个(1～200)之间的随机整数，打印其中7的整数倍的数并求其和。

Private Sub Form_Click()
For I=1 To 10
x=Int(Rnd*200+1)
If ( ) Then
k1=k1+x
Print x
End If
Next I
Print
Print "k1=";k1
End Sub
3. 以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。

请填空。

Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
( )= arr1(1)
For I = 1 To 8
If arr1(I) > Max Then ( )
Next I
Print "最大值是: "; Max
End Sub
答题卡
一、选择题：
1-5 6-10
11-15 16-20
21-25
二、判断题：
1-5 6-10
三、程序填空：
1、
2、
3、。