《VB程序设计》期末试卷
一、判断题（每题１分，共10分）
（）１、设置属性的语句格式为：“对象名．属性名＝属性值”。

（）２、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。

（）３、ＶＢ的赋值语句只能给变量赋值。

（）４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。

（）５、窗体大小只能通过鼠标拖动窗体边框来设置。

（）６、VB的Double类型数据，可以精确表示其数值范围内的所有实数。

（）７、若用户在键盘上按下一个键，则会产生一个Click事件。

（）８、罗马数制是进位计数制。

（）９、事件过程可以由用户事件触发执行，也可以由其他过程所调用。

（）１０、Do While条件.....Loop和DO Until Not条件.....Loop 两条循环语句，实现循环控制是等效的。

二、单项选择题。

（每小题2分，共50分）
（）1．设a=“Visual Basic”，下面使b=“Visual”的语句是
A. b=Left(a,6)
B. b=Mid(a,1)
C. b=Rigth(a,5,5)
D. b=Left(a,1,6)
（）2．在立即窗口中执行？9>=9，输出结果是
A．0 B．True C．False D. －1
（）3．语句Dim var1 As Boolean作用是:将var1定义为什么类型变量
A.单精度型
B. 整型
C. 布尔型
D.字符型
（）4．Int(—0.618*10)/10的值是
A.—0.7
B.—0.6
C. —1
D. —0.1
（）5．表达式2 + 8 * 6 / 4 Mod 2的值是
A.5
B.2
C.6
D.9
（）6．在VB中快捷键F4打开哪个窗口？
A. 资源管理器窗口
B. 属性窗口
C. 代码窗口
D. 立即窗口
（）7．函数Int( 64 * RND() )的值是在哪个范围内的整数？
A. [0,63]
B. [0,64]
C. [1,63]
D. [1,64]
（）8.下列叙述中正确的是
A. 只有窗体才是Visual Basic中的对象
B. 只有控件才是Visual Basic中的对象
C. 窗体和控件都是Visual Basic中的对象
D. 窗体和控件都不是Visual Basic中的对象
（）9.用于Visual Basic程序设计的控件在
A. 工具箱中
B.工具菜单中
C. 工程窗口中
D.工具栏上
（）10．Visual Basic程序中表示续行的字符是
A. ：
B. _
C. \
D. ’
（）11．决定按钮显示内容的属性是
A. Text
C. Caption
D.BackStyle
（）12．下列可以把图形文件c:\地鼠1.jpg装入窗体FORM1中的语句为
A. Form1.Picture= LoadPicture("c:\ 地鼠1.jpg")
B. Form1.Handle = " c:\ 地鼠1 .jpg"
C. Form1 = LoadPicture("c:\ 地鼠1.jpg")
D. Form1 = " c:\ 地鼠1.jpg"
（）13．设a、b、c为整型变量，执行以下程序后a、b、c的值是
a=1:b=2:c=3
a=b:b=c:c=a
A.2 3 1
B.2 3 2
C.3 2 1
D.1 3 2
（）14．将数学表达式2
2*
5
)
(
cos e
b
a+
+写成Visual Basic的表达式，其正确的形式是
A.Cos (a+b) ^2+5*exp(2)
B.Cos^2(a+b)+ 5*exp(2)
C.Cos (a+b) ^2+5*ln(2)
D.Cos^2(a+b)+ 5*ln(2)
（）15．下列描述图片框和图像框区别，那条是错误的
A．图像框中显示图片一般用作背景
B．图片框有拉伸属性
C．图片框是容器控件
D．图像框没有AutoSize属性
（）16．下列哪个符号可以作为VB中的变量名？
A. abc+
B. then
C. m&m
D. p4
（）17．从键盘上输入两个字符串，分别保存在变量str1、str2中。

确定第二个字符串在第一个字符串中起始位置的函数是
A. Left
B. Mid
C. Instr
D. String
（）18．以下叙述中正确的是
A. 窗体的Caption属性指定窗体的名称，用来标识一个窗体
B. 窗体的Name属性的值是显示在窗体标题栏中的文本
C. 窗体的Name属性值不能为空
D. 可以在运行期间改变窗体的Name属性的值
（）19．更改窗体的图标是哪个属性
A. MousePoint
B. MouseIcon
C. Point
D. Icon
（）20．Right ( “china”, 4 )的值是
A. chin
B. china
C. hina
D. chna
（）21．表达式sgn(－2) ＋abs(－2)的结果是
A．2 B．－1 C．0 D．1
（）22．VB算术运算符*或\ 、/、mod的优先级，从高到低依次为
A、*或/、mod、\
B、\、mod、*或/
C、*或/ 、\ 、mod
D、\ 、*或/、mod
（）23．12345678#这个数是
A．单精度数B．双精度数C．整型数D．长整型数
（）24．执行下面的语句后，所产生的信息框的标题是
a = MsgBox("AAAA", vbOKOnly, "BBBB")
A. AAAA
B.空
C. BBBB
D.出错，不能产生信息框
（）25．设a=2，b=3，c=4，d=5，下列表达式的值是
3>2*b OR a=c AND b<>c OR c>d
A.－1
B. 0
C. True
D. False
三、填空题。

(每空1分，共15分）
1．在VB中，对象的三要素分别是属性、___________和___________。

2．第一代电子计算机的元件使用电子管，第二代电子计算机的元件使用__________。

3．“Y”的ASCII码是89，那么“B”的ASCII码是______________。

4．二进制数110，用十进制表示是多少______________。

八进制数12，用十进制表示是多少______________。

十六进制数20，用十进制表示是多少______________。

5．在VB中长整型数据占_______个字节的内存空间。

单精度浮点型数据占______个字节的内存空间。

6．若用户单击了按钮ABC，则此时将被执行的事件过程名应为：_________________________。

7．在VB中将red声明为常量255，使用的语句是_____________________________。

8．假定一个窗体的Name属性为form2，为了在窗体标题中显示“你好”，所使用的语句为____________________________。

9．表达式Fix(-3.2)+Int(-2.4)的值为______________。

10．表达式Len(“Visual” )－Len(“BASIC”)的值是_____________。

11．ＶＢ中若要产生一消息框，可用________________函数来实现。

四、写出程序的输出结果。

（每小题5分，共10分）
1.Private Sub Form_Click( )
Dim A as integer
A=200
If A<＝100 Then
A=A*10
If A>1000 Then
A=A－10
Else
A=A＋10
Endif
Else
A=A / 10
If A=10 Then
A=A－10
Else
A=A＋10
Endif
Endif
Msgbox Str(A)
End Sub运行程序，单击窗体Form1，消息框中显示: 2.Private Sub Form_Click( )
Dim S As Integer
Dim N As Integer
m = 1
S = 2
Do
m = m + 3
S = S + m
Loop Until m = 4
Label1.Caption=Str(S)
End Sub
运行程序，单击窗体，在下面的Label1中显示
Label1
五、写VB表达式。

（每小题5分，共10分）
1．
3
x
-
2
3
-
y
x
2．标签abc的文字颜色不是红色
六、编程题。

（5分）
有如下数学灯谜：AB－BA＝A。

其中A，B均为正整数请用VB编程序求解。