第8章 创建宏与模块对象
- 格式:ppt
- 大小:1.39 MB
- 文档页数:77
第五次上机操作指导——宏和模块第一部分——宏一、建立单个宏1、建立一个名为“宏1”的宏对象,用宏中的操作完成“成绩表”中的“总评成绩”字段的更新。
二、建立宏组(1)建立“按钮选择窗体”,窗体中的4个命令按钮在建立时,使工具箱中的“控件向导”处于无效状态,即不用向导创建。
(2)建立名为“选择”的宏组,操作如下。
(3)在“按钮选择窗体”的设计视图中,分别将4个命令按钮的“单击”属性连接到宏组中的4个单个宏。
(4)对于宏中所用到的“课程窗1”,“学生信息表窗”,“学生信息分页窗体”分别增加一个命令按钮“返回”,是命令按钮“单击”事件连接到宏组中的“返回”宏。
三、建立一个自启动宏(1)建立一个“开始窗体”,如图(2)为了能自动自动加载“开始窗体”界面,建立一个名为Autoexec的自启动宏。
四、条件宏建立一个名为条件宏的宏,当在“开始窗体”中输入密码为“123”的时候,执行宏,通过条件宏打开“按钮选择窗体”。
第二部分——模块一、建立标准模块(1)编一个名为“模块1”的标准模块。
用InputBox函数输入半径r,MsgBox语句显示体积V。
Public Sub bulk()Const pi As Double = 3.14159Dim v As Double, r As Doubler = InputBox("请输入半径")v = pi * r ^ 3 * 4 / 3MsgBox v, , "球的体积:"End Sub(2)将上题改为用函数实现,在“立即窗口”中输入体积V,命名为“模块2”Public Function v(r As Single) As Singler = InputBox("请输入半径")v = 3.14159 * r ^ 3 * 4 / 3Debug.Print vEnd Function二、建立类模块(1)建立一个名为“计算”的窗体,当单击“求球的体积”命令按钮时,调用模块1中的bulk子过程;单击“求阶乘”命令按钮时,调用模块6中的jc函数。