第9章模块和VBA程序设计(2).pptVIP

9.5 VBA程序语句;9.5.1 VBA 程序语句编写规则;9.5.2 VBA 注释语句;图9-22 “编辑”工具栏 ;9.5.3 VBA 声明语句;9.5.4 VBA 赋值语句;9.5.5 输入/输出的语句;⑴ InputBox 函数的作用 是打开一个对话框，等待用户键入文本或选择一个按钮。当用户单击“确定”按钮或按 Enter 键，函数返回文本框中的输入的值。 例：a = InputBox(请输入自然数： , 输入提示);⑵ 函数格式 InputBox(提示 [, 标题] [, 缺省值] [, x 坐标位置] [, y 坐标位置]) 例：InputBox(输入自然数,输入提示,10,1000, 200) 参数说明： ① “提示”：唯一不能省略的选项，是字符串表达式，在对话框中作为提示信息显示。 ② “标题”：字符串表达式，在对话框的标题栏显示。可省略。 ③ “缺省”：当无输入新值时，则该缺省值作为输入的内容。 ④ “x坐标位置”和“y坐标位置”：确定对话框在屏幕上的位置。 注：若用户单击“取消”，该函数返回长度为零的字符串 ();2．MsgBox;MsgBox 的参数说明;;MsgBox 函数的返回值;例如;;例9-3中的部分代码说明如下;9.5.6 选择结构;1．If…Then 条件语句;;2．If...Then...Else条件语句;例9-4 飞机场托运行李的收费标准是30公斤以内（包括30公斤）0.30元/公斤，超过部分0.50元/公斤。编写一个事件过程，要求根据输入的任意重量，计算出应付的行李费。 根据题意计算公式如下：; 创建一个“VBA 编程”的数据库，新建一个名为 “例9-4-计算行李费”窗体。;程序代码如下： 计算按钮代码 Private Sub cmd1_Click（） Dim W as single 行李重量 Dim P as single 应付行李费 W = Txt1.Value If W 30 Then P =（W - 30）* 0.5 + 30 * 0.3 Else P = W * 0.3 End If Txt2.Value = P End Sub; “清除按钮代码 Private Sub cmd2_Click（） Txt1.Value = Txt2.Value = End Sub “退出按钮代码 Private Sub cmd3_Click（） Docmd.Close End Sub;3．If条件语句的嵌套;例9-5 输入某考生的成绩 x（百分制），当x≥90时，输出“优秀”；当75≤x＜90 时，输出“良好”；当60≤x＜75 时，输出“合格”，当 x＜60 时，输出“不合格”。 创建一个名为“例9-5-成绩监定”窗体，如下图所示。该窗体有2个命令按钮，第一个命令按钮名称为cmd1，标题为“成绩监定”；另一个命令按钮名称为cmd2，标题为“退出”。;;4．If...Then...ElseIf... 语句; 可以重复使用 ElseIf 的方式来表达更多的可能性，语句格式是： If 条件表达式1 Then 语句组１ ElseIf条件表达式2 Then 语句组2 ElseIf条件表达式3 Then 语句组3 …… …… 语句组n [Else 语句组n+1 ] End If;例9-6 创建一个名为：“例9-6成绩If-Then-ElseIf分类”的窗体。输入某门课分数 x（百分制），当x≥90时，输出“优秀”；当80≤x＜90 时，输出“良好”；当 70≤x＜80 时，输出“中”；当60≤x＜70 时，输出“及格”，当 x＜60 时，输出“不及格”。要求用文本框输入成绩和判定分类的输出。;例9-6：“分类”按钮的单击事件过程代码;5．Select Case 语句;Select Case 表达式 Case 表达式1 表达式与表达式1 的值相等时执行的语句组1 [Case 表达式2 To 表达式3] [表达式的值介于与表达式2和表达式