第11章：VBA实验八.ppt

文档介绍：授课教师:林旭东
联系电话:88373835
电子邮箱:hunanlxd@
课件公共共享电子邮箱: ess@
(密码:123456)
第11章
VBA编程
实验八指导
本章要点
了解什么是标准模块,掌握VBA程序设计相关内容,掌握程序基本结构,能够利用VBA程序设计主窗体、查询窗体、登录窗体等。
第11章VBA编程
标准模块
标准模块(P222)(实验八P63)
实验八操作过程:
(1)新建模块
(2)新件窗体,并在窗体上设置10个命令按钮和1个标签按钮
(3)窗体命令按钮的Click事件中调用模块中的过程
(4)运行窗体
第11章VBA编程
标准模块
标准模块(P222)(实验八P63)
(1)新建模块(实验8_1)
第11章VBA编程
标准模块
标准模块(P222)(实验八P63)
(1)新建模块(实验8_1)
Sub P8_1()
Dim firstnum As Integer
Dim seconum%
firstnum = InputBox("请输入第一个比较数:", "输入", 1)
seconum = InputBox ("请输入第二个比较数:", "输入", 1)
If firstnum > seconum Then
MsgBox "最大数是" & Str(firstnum), vbOKOnly + vbInformation, "提示"
Else
MsgBox "最大数是" & Str(seconum), vbOKOnly + vbInformation, "提示"
End If
End Sub
第11章VBA编程
标准模块
标准模块(P222)(实验八P63)
(1)新建模块(实验8_2)
第11章VBA编程
标准模块
标准模块(P222)(实验八P63)
(1)新建模块(实验8_3)
第11章VBA编程
标准模块
标准模块(P222)(实验八P63)
(1)新建模块(实验8_4)