有哪些信誉好的足球投注网站- 1、本文档共5页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
第五次上机操作指导——宏和模块
第五次上机操作指导——宏和模块
第一部分——宏
建立单个宏
建立一个名为“宏1”的宏对象，用宏中的操作完成“成绩表”中的“总评成绩”字段的更新。
建立宏组
建立“按钮选择窗体”，窗体中的4个命令按钮在建立时，使工具箱中的“控件向导”处于无效状态，即不用向导创建。
建立名为“选择”的宏组，操作如下。
在“按钮选择窗体”的设计视图中，分别将4个命令按钮的“单击”属性连接到宏组中的4个单个宏。
对于宏中所用到的“课程窗1”，“学生信息表窗”，“学生信息分页窗体”分别增加一个命令按钮“返回”，是命令按钮“单击”事件连接到宏组中的“返回”宏。
建立一个自启动宏
（1）建立一个“开始窗体”，如图
（2）为了能自动自动加载“开始窗体”界面，建立一个名为Autoexec的自启动宏。
条件宏
建立一个名为条件宏的宏，当在“开始窗体”中输入密码为“123”的时候，执行宏，通过条件宏打开“按钮选择窗体”。
第二部分——模块
建立标准模块
编一个名为“模块1”的标准模块。用InputBox函数输入半径r，MsgBox语句显示体积V。
Public Sub bulk()
Const pi As Double = 3.14159
Dim v As Double, r As Double
r = InputBox(请输入半径)
v = pi * r ^ 3 * 4 / 3
MsgBox v, , 球的体积：
End Sub
将上题改为用函数实现，在“立即窗口”中输入体积V，命名为“模块2”
Public Function v(r As Single) As Single
r = InputBox(请输入半径)
v = 3.14159 * r ^ 3 * 4 / 3
Debug.Print v
End Function
建立类模块
建立一个名为“计算”的窗体，当单击“求球的体积”命令按钮时，调用模块1中的bulk子过程；单击“求阶乘”命令按钮时，调用模块6中的jc函数。
将“求球的体积”及“求阶乘”命令按钮的名称分别为command1,command2.
“求球的体积”命令按钮的单击事件过程如下：
Private sub command1_click( )
Call bulk
End sub
(4) “求阶乘”命令按钮的单击事件过程如下：
Private sub command2_click( )
Dim result as long, n as long
n=Inputbox(“请输入：”)
result=jc(n)
msgbox(“阶乘为“ result)
end sub
文档评论（0）