第五次上机操作指导——宏和模块

《第五次上机操作指导——宏和模块》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第五次上机操作指导一一宏和模块第一部分一一宏一、建立单个宏1、建立一个名为“宏1”的宏对象，用宏中的操作完成“成绩表”中的“总评成绩”字段的更新。声嘟息哪型题消发类标7宏1:宏操作►MsgBoxOpenQuery—二、建立宏组（1）建立“按钮选择窗体”，窗体中的4个命令按钮在建立时，使工具箱中的“控件向导”处于无效状态，即不用向导创建。成绩查询输出成绩报表请选择:课程查询学生信息查询(2)建立名为“选择”的宏组，操作如下。宏名操作课程Close►OpenForm成绩CloseOpenForm学生信息CloseOpenForm输出报表OpenRepor

2、t返回CloseOpenForm窗体名称视51筛选名称Where条件数据模式窗口模式(3)在“按钮选择窗体”的设计视图中，分别将4个命令按钮的“单击”属性连接到宏组中的4个单个宏。（4）对于宏中所用到的“课程窗1”，“学生信息表窗”，“学生信息分页窗体”分别增加一个命令按钮“返回”，是命令按钮“单击”事件连接到宏组中的“返回”宏。三、建立一个自启动宏（1）建立一个“开始窗体”，如图E开始窗体:窗体ITJB.x欢迎进入学籍管理系统诘输入密码:记录：回ZiIrICEDE*I共有记录数：i（2）为了能自动自动加载“开始窗体”界面，建立一个名为Autoexe

3、c的自启动宏。XAutoexec:宏操作I打开“开始窗体汀窗体名称开始窗体1视图窗体筛选名称1Where条件数据模式編辑窗口複式普通四、条件宏建立一个名为条件宏的宏，当在“开始窗体”中输入密码为“123”的时候，执行宏，通过条件宏打开“按钮选择窗体”。第二部分一一模块一、建立标准模块（1）编一个名为“模块1”的标准模块。用InputBox函数输入半径r,MsgBox语句显示体积V。PublicSubbulk（）ConstpiAsDouble=3.14159DimvAsDouble,rAsDoubler=InputBox（"请输入半径”）v=pi*“3

4、*4/3MsgBoxv,,u球的体积：”EndSub區在責系统-原始-模块1(代码)G廈用)OptionCompareDatabasePublicSubbulk()Cori^tpiAsDouble=3.14159DimvAsDouble,rAsDoubler=InputBoxCif半径")v=pi*r'3*4/3MsgBox巧丿"球的往积："EndSub(2)将上题改为用函数实现，在“立即窗口”中输入体积V,命名为“模块2”PublicFunctionv(rAsSingle)AsSingler=InputBox(u请输入半径”)v=3」4159*i•

5、人3*4/3Debug.PrintvEndFunction寓学籍管理系统-原始-模块2(代码)(£用)OptionCompareDatabasePublicFutlctionv(rAsSingle)AsSingler=InputBox("洁输入*径")v=3.14159*rA3*4/3Debug.PrintvEndFutlction二、建立类模块(1)建立一个名为“计算”的窗体，当单击“求球的体积”命令按钮时，调用模块1中的bulk子过程；单击"求阶乘”命令按钮时，调用模块6中的jc函数。(2)将“求球的体积”及“求阶乘”命令按钮的名称分别为comm

6、and1,command2.(3)“求球的体积”命令按钮的单击事件过程如下：Privatesubcommandl_click()CallbulkEndsub(4)“求阶乘”命令按钮的单击事件过程如下：Privatesubcommand2_click()Dimresultaslong,naslongn=Inputbox(<4请输入：")result=jc(n)msgbox("阶乘为“&result)endsub