Visual Basic程序设计课程期末综合练习（2013年12月）

Unload Me End Sub

五、编写程序题

某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在300元以上者，按九五折优惠；（2）在500元以上者，按九折优惠；（3）700元以上者，按八折优惠；（4）1000元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。程序运行结果如图5所示。

图 5

2.编写一工资调整程序。若基本工资大于等于3000元，工资增加15%，若小于3000元大于2000元，则工资增加20%；若小于2000元则增加工资25%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图6所示。

图6

期末综合练习二答案

21

一、单项选择题

1.C2.C3.C 4.D5.D 6.B7.C8.B9.D 10.C11.B12.B 13.A 14.D15.B16.B17.A 18.A19.C 20.D21.B 22.B23.C 24.D 25.B26.B 27.C 28.C29.C 30.D

二、填空题

1．选择结构循环结构 2．1

3．Timer Interval 4．Load 5．16

6．Form1.print \7．Public 8．true

9．Name Index 10．Name Index

11．变体型（Variant） 12．For While \ 13．abcdef 14．1234567

15．实时错误逻辑错误 16．1

17．本地数据库远程数据库18．F1 F9 19．右 上

20．TCP/IP UDP

三、阅读程序题 1.

2和72 2.

2100 3.

4 9 4.

s =5 s =20 s =60 5.

30 6

6. 18

22

7.

40 30 40 30 8.

16 22` 28

四、完善程序题 1.

[1] New Connection [2]ADOrs

[3] ADOrs.Open strSQL [4] Not [5] End If 2.

[1]ADOcn.Open [2]ADOcn [3] Text1

[4]Not ADOrs.EOF [5] ADOcn

五、编写程序题 1.参考答案：

Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 300 Then y = x Else

If x < 500 Then y = 0.95 * x Else

If x < 700 Then y = 0.9 * x Else

If x < 1000 Then y = 0.8 * x Else

y = 0.7 * x End If

23

End If End If End If

Label3.Caption = y End Sub

2.

参考答案：

Private Sub Command1_Click() Dim x As Integer, y As Single x = Val(Text1.Text) Select Case x

Case Is >= 3000 y = x * 1.15 Case Is >= 2000 y = x * 1.2 Case Else y = x * 1.25 End Select

Label3.Caption = y End Sub

Private Sub Command2_Click() Unload Me End Sub

期末综合练习三

一、单项选择题

1．Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（ ）。 A.从主程序开始执行 B.按过程顺序执行 C.按模块顺序执行 D.事件驱动

2．以下不属于Visual Basic6.0的特点的选项是（）。 A．可视化编程 B．算法设计 C．面向对象程序设计 D．事件驱动

3．在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（ ）。 A．窗体设计 B．代码 C．属性 D．工程资源管理器窗口 4．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（）。

24