Visual Basic程序设计综合练习题一及答案

Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）
1．无论何种控件，共同具有的属性是（）。

A．Text 属性B．Caption属性
C．Name属性D．Autosize属性
2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。

A．Help B．F10 C．F1 D．Esc
3．为了保存一个Visual Basic应用程序，下列说法正确的是（）。

A．只保存窗体文件（.frm）
B．只保存工程文件（.vbp）
C．分别保存工程文件和标准模块文件(.bas)
D．分别保存工程文件、窗体文件和标准模块文件
4．在Visual Basic中，变量的默认类型是（）。

A．Integer B．Variant
C．Double D．Currency
5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）。

A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False
6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（
）属性设置就有效。

A．MaxButton B．BorderSyle
C．Width D．MinButton
7．有程序代码如下：Text1.Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表（）。

A．对象，值，属性B．对象，方法，属性
C．对象，属性，值D．属性，对象，值
8．要设置命令按钮的背景图形，必须设置的两个属性是（）。

A．Value和Icon B．Style和Icon
C．Caption和Picture D．Style和Picture
9．在VB中，下列合法的变量名是（）。

A．4ab B．a-b C．a_4 D．integer
10．如下数组声明语句，正确的是（ ）。

A．Dim a[3,4] As Integer B．Dim a(3 4) As Integer
C．Dim a(n,n) As Integer D．Dim a(3,4) As Integer
11．要在窗体Form1内显示“欢迎您！”，使用的语句是（）。

A．Form.caption="欢迎您!" B．Form1.caption="欢迎您!"
C．Form1.print "欢迎您!" D．Form. print "欢迎您!"
12．不属于VB数据库引擎的是（ ）。

A．ODBC B．BDE
C．Jet引擎 D．OLE DB
13．数学式子Sin25°写成VB表达式是（）。

A．Sin25 B．Sin（25）C．SIN（25 ）D．Sin（25*3.14/180）
14．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（）。

A．Execute B．CommandType
C．Open D．ActiveConnection
15．要以读方式打开D盘的一个顺序文件Test.doc，应使用的语句是（）。

A．Open " Test.doc " For Output As #1
B．Open "D:\ Test.doc " For Input As #1
C．Open "D:\ Test.doc " For Output As #1
D．Open " Test.doc " For Input As #1
二、填空题（每空2分共20分）
16．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置。

17．Visual Basic程序开发有三种模式，即设计模式、中断模式和模式。

18．全局变量在整个应用程序中有效，一般在标准模块中使用语句声明。

19．在Visual Basic语言中有三种形式的循环结构。

其中，若循环的次数可以适先确定，可使用循环。

20．Dim i As Integer，则运行时变量i的初始值是。

21．在VB中，将Access称为本地数据库，SQL Server称为。

22．Winsock控件主要用来编制或协议的通话程序。

23．在VB中想要设置断点需要按键。

三、阅读程序题（每题10分，共20分）
24. Function F(a As Integer)
b =3
Static c
b = b + 1
c = c + 1
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 To 3
Print F(a)
Next i
End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。

25. Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
k = 3
c = 4
For j = 1 To 5
If j > 3 Then
c = c + 5
Exit For
Else
k = k + 1
End If
Next j
Print c, k
End Sub
写出程序运行时单击窗体后，c,k的值分别是：
四、应用题（15分）
26. 请根据以下描述编写购物优惠程序。

某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者，按七折优惠。

在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品的总金额，单击命令按钮，在Text2输出优惠价。

程序运行结果如图所示。

参考答案
一、单项选择（每小题3分，共45分）
1.C
2.C
3.D
4.B
5.A
6.B
7.C
8.D
9.C 10.D
11．C 12．B 13．D 14．D 15．B
二、填空题（在空格内填写正确的答案，每空2分，共20分）
16．Timer Interval
17．执行
18．Public
19．For Next
20．0
21．远程数据库
22．TCP/IP UDP
23. F9
三、简答题（每题10分，共20分）
24.答案：
7
8
9
25.答案：
9 6
四、应用题（15分）
26.参考答案
答案1：
Private Sub Command1_Click()
x = Val(Text1.Text)
Select Case x
Case Is >= 500
Text2.Text = x * 0.7
Case Is >= 300
Text2.Text = x * 0.8
Case Is >= 200
Text2.Text = x * 0.9
Case Is >= 100
Text2.Text = x * 0.95
Case Is < 100
Text2.Text = x
End Select
End Sub
答案2：
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 100 Then
y = x
Else
If x < 200 Then
y = 0.95 * x
Else
If x < 300 Then
y = 0.9 * x
Else
If x < 500 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If End If
Text2.Text = y End Sub。