文档介绍：第九章程序设计基础
教学目的：
理解什么是程序
掌握程序设计的基本方法
编写并调试简单的VBA应用程序
编写简单的事件驱动程序
会在VBA应用程序中接见数据最后加下划线“_”，系统就会把上下两行连在一同做为
一个语句。
3、封闭程序编写窗口，切换到窗体视图，我们输入5，单击“计算”按钮，则会显示120，
（实际上，5！=1×2×3×4×5,计算结果是120）
二、程序的输入输入出语句
（1）InputBox函数
格式：InputBox字符串1，[字符串2]，[字符串3]
功能：显示一个输入对话框，等待用户输入信息或按下按钮。在按钮事件发生后返回键盘输
入到文本框中的内容，返回值的种类为文本种类，
说明：对话框中的提示信息是字符串1，对话框的标题栏是字符串2，字符串3是输入对话
框中的默认值。后两个字符串是可选项，可不选。
例9-3在窗体的命令按钮中分别加入以下代码，单击按钮后即可看出输入对话框的不同。
PrivateSubCommand0_Click( )
InputBox"请输入学号","学号输入框","2009"
EndSub
改成下面程序后的输入对话框：
PrivateSubCommand0_Click( )
InputBox"请输入学号","学号输入框"
EndSub
改成下面程序后的输入对话框：
PrivateSubCommand0_Click( )
InputBox"请输入学号"
EndSub
2）MsgBox函数
格式：MsgBox字符串1，[按钮参数]，[字符串2]
功能：出现一个消息框，字符串1为消息框中的提示信息，按钮参数则决定了消息框中按
钮的种类（见下面按钮参数表），字符串2为消息框的标题栏上信息。
按钮参数表：
常数

值

按钮种类
vbOKOnly
0
只显示OK按钮
vbOKCancel
1
显示OK及Cancel
按钮
vbYesNoCancel
3
显示Yes、No、Cancel
按钮
vbQuestion
32
显示WarningQuery
图标
vbExclamation
48
显示WaringMessage
图标
vbInformation
64
显示InformationMessage
图标
vbDefaultButton1
0
第一个按钮是缺省值
vbDefaultButton2
256
第二个按钮是缺省值
vbDefaultButton3
512
第三个按钮是缺省值
例9-4在窗体上增添一个命令按钮，当单击该按钮后，显示一个对话框：（1）提示消息为“您确定要退出吗？”。（2）包含“确定”和“取消”两个命令按钮以及一个询问图标，默认选择“确定”按钮，（3）对话框的标题栏为“确认退出”
剖析：生成对话框需要用MsgBox函数，包含“确定”和“取消”按钮对，应参数为1（见上表）；包含一个询问图标，对应参数为32；默认选择是“确定”按钮（这里的第一个就是“确定”按钮），对应参数是0，根据题目要求对应的语句应为：
MsgBox“您确定要退出吗？”，1+32+0，“确认退出”
步骤：
1、新建一个窗体，增添一个命令按钮，
2、在命令按钮的属性窗口中切换到“事件”选项下，在“单击”一栏中选“事件过程”，单击这一
栏后边的按钮，出现VBA编程窗口，