2016计算机应用技术-Access（邮电版）教案：实验10模块与VBA程序设计.docVIP

课程教案 课题： 第10章 模块与VBA程序设计（2） 实验10 模块与VBA程序设计 课时： 2+2 授课类型 理论课 授课时间 第15周第1-4节 教学目标：掌握VBA程序设计中的流程控制方法。 教学要点：VBA程序设计中的流程控制方法。 教学重点：VBA程序设计中的流程控制方法。 教学难点：VBA程序设计中的流程控制方法。 教学手段与方法：讲解法，操作演示法 教学过程： 第10章 模块与VBA程序设计（2） 10.3 VBA程序流程控制 10.3.1 顺序控制 顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的语句序列。在程序中经常使用的顺序结构语句有注释语句、赋值语句、输入输出语句等。 1．程序语句书写规则 VBA程序是由语句组成的，程序语句有严格的书写规则。 （1）注释语句：rem—行注释、’—行内注释 （2）语句连写“：”分隔, 换行 “_” （3）采用缩进格式书写程序 2．输入输出 VBA程序的输入输出是通过相应的函数所提供的图形化界面实现的，其中输入函数是InputBox，输出函数是MsgBox，另外Print方法也可以实现输出，在窗体中利用文本框等控件也可以实现输入输出。 （1）InputBox函数 InpubBox函数的作用是显示一个输入对话框，对话框中有一些提示信息及文本框，等待用户输入信息或按下按钮。在按钮事件发生后返回文本框的内容，返回值的类型为文本类型。语句格式为： InputBox(Prompt,[Title],[Default],[XPos],[YPos]) 其中，Prompt指定要在对话框中显示的信息；Title指定对话框标题栏显示的信息，如果省略，则在标题栏中显示应用程序名；Default设置显示在文本框中的信息，如果用户没有输入数据，它就是默认值；Xpos和Ypos为整型表达式，指定对话框左上角在屏幕上的坐标位置（屏幕左上角为坐标原点）。Prompt参数是必须的，其他参数可以省略。 （2）MsgBox函数 MsgBox函数的作用是打开一个对话框，等待用户单击按钮，并返回一个整数告诉用户单击哪一个按钮。MsgBox函数的调用格式如下： 变量名=MsgBox(Prompt,[Buttons],[Title]) MsgBox在VBA程序中也可作为语句使用，其格式为： MsgBox Prompt,[Buttons],[Title] 类似于InputBox函数，Prompt参数是不可以省略的，而其他两个参数可以省略。其中，Prompt参数用于设置提示信息，是字符串表达式；Buttons是整型表达式，决定对话框中显示的按钮数目、图标类型、默认按钮以及模式等，Buttons的设置值如表10-9所示；Title用于设置对话框标题，也是字符串表达式，如果省略，则将应用程序名作为标题。 第一组值（0~5）描述了对话框中显示的按钮的类型与数目，第二组值（16，32，48，64）描述了图标的样式，第三组值（0，256，512，768）说明哪一个按钮是默认值，而第四组值（0，4096）则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候，只能由每组值取用一个数字。MsgBox函数返回值如表10-10所示，例如，如果函数值为6，表示用户单击了Yes按钮。 例10-3 以下代码使用InputBox函数和MsgBox函数接收用户的输入并显示。 Sub InputFunc() Dim str As String Str=InputBox(请输入您的姓名：,登录) MsgBox 欢迎您： str 同学, vbInformation, 欢迎 End Sub 程序在调用子过程InputFunc时，弹出输入对话框，要求用户输入数据，如图10-5所示，单击“确定”按钮后，弹出输出对话框，如图10-6所示。 图10-6 输出信息对话框 图10-5 输入数据对话框 3．赋值语句 赋值语句是最简单而又最常使用的语句。语句格式是： 变量名=表达式 该语句的功能是计算右边表达式的值，再将其赋值给左边的变量。 例10-4 设备管理部门对已购入的设备登帐时，为了减少人工输入，当输入“设备单价”和“采购数量”时，单击“总金额”文本框，系统就会自动计算出结果，同时给出“金额累计”，程序的运行界面如图10-7所示。 图10-7 求矩形的面积运行界面 创建一个数据库（只是为了进入数据库窗口），在其中新建一个窗体，窗体上包括3个标签控件（Label1、Label2和Label3）、3个文本框控件（Text1、Text2和Text3），标签控件Label1的标题属性（Caption）为“设备单价”，Label2的标题属性（Caption）为“采购数量”，Lab