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没有caption属性的控件是
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

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。