第6章 模块 答案

《第6章 模块 答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第6章模块【思考与练习答案】【实例1】1.答案：Msgbox函数的格式是：MsgBox（Prompt,[Buttons],[Title]），其中决定按钮个数的参数是第2个参数Buttons。Buttons参数的以下取值可影响按钮个数：表6-1Buttons参数列表常数值描述vbOKOnly0只显示OK按钮VbOKCancel1显示OK及Cancel按钮VbAbortRetryIgnore2显示Abort、Retry及Ignore按钮VbYesNoCancel3显示Yes、No及Cancel按钮VbYesNo4显示Yes及No按钮VbRetryCancel

2、5显示Retry及Cancel按钮实例窗体位于“中药门诊”数据库的窗体“1B-1Frm消息框”中。2.答案：答案位于“中药门诊”数据库的窗体“实例01B-2Frm运行宏”中，其中运行宏的代码如下：DoCmd.RunMacro"实例01B-2宏"【实例2】答案：答案位于“中药门诊”数据库的窗体“实例02B-Frm加法运算”中，其中“求和”命令按钮对应的代码如下：Dimv1AsSingle'用于存放第1个加数Dimv2AsSingle'用于存放第2个加数DimsumAsSingle'用于存放和v1=txtV1v2=txtV2sum=v1+v2txtSum=s

3、um'将和显示到文本框txtSum中【实例3】1.答案：答案位于“中药门诊”数据库的窗体“实例03B-1Frm体重指数”中，命令按钮“计算您的体重指数”对应的代码为：DimhAsSingleDimwAsSingleDimiAsSingleRem判断用户数输入的身高体重是否为数字（空值被判断为非数字）IfIsNumeric(txtShenGao)=FalseorIsNumeric(txtTiZhong)=FalseThenMsgBox"身高体重必须为数字，不能为空或非数字字符！",vbCritical,"警告"ElseRem判断身高体重是否小于0，小于0则

4、提示并终止程序执行IfVal(txtShenGao)<=0OrVal(txtTiZhong)<=0ThenMsgBox"身高和体重必须为正值，请重新输入！",vbCritical,"警告"Elseh=Me.txtShenGaow=Me.txtTiZhongi=w/h^2Me.txtIndex=iEndIfEndIf2.答案：答案位于“中医门诊”数据库的窗体“实例03B-2Frm处方系统”中。在“剂量”文本框的更新前事件中输入以下代码：Rem判断用药量是否合规IfMe.剂量>30ThenMsgBox"提示，剂量大于30g.！",vbInformationE

5、ndIf3.答案：在使用selectcase语句时，条件次序的不同对结果是有影响的。当用于条件判断的值满足2个或多个条件时，程序会终止于第一个满足条件的分支。【实例4】答案：答案位于“中医门诊”数据库的窗体“实例04B-Frm减肥问题”中。其中命令按钮“12个月后体重”的单击事件代码为：DimiAsInteger,wtAsSinglewt=100'变量wt用于存储人数Fori=1To12wt=wt/1.01NexttxtWt=wt'将人数显示于文本框txtwt中命令按钮“降到80KG月数”的单击事件代码为：DimiAsInteger,wtAsSingle

6、wt=100'变量wt用于存储人数Fori=1To12wt=wt/1.01NexttxtWt=wt'将人数显示于文本框txtwt中【实例5】答案：答案位于“中医门诊”数据库的窗体“实例05B-Frm兔子繁殖问题”中。其中命令按钮“1年后兔子数”的单击事件代码为：DimiAsIntegerDimf(12)AsInteger'f(i)用于存储斐波那契额数列f(1)=1'第1个月1对兔子f(2)=2'第2个月2对兔子Fori=3To12f(i)=f(i-2)+f(i-1)Nexttxtnum=f(12)'将兔子数显示文本框txtnum中【实例6】1.答案：需要

7、执行一系列操作且不需要返回值时使用sub过程；当执行一系列操作且需要有返回值时使用function过程。区别：1）sub过程无返回值，function过程有返回值；2）sub过程使用关键字Call调用或直接调用过程名，function过程调用时直接引用过程的名称即可。2.答案：答案位于“中医门诊”数据库的窗体“实例06B-2Frm圆的面积”中。在该窗体上有两个文本框“txtR”和“txtArea”，其中，“txtR”用于输入圆的半径，“txtArea”用于输出圆的面积。在该对象类对象中建立Function过程，代码如下：FunctionfunCircle

8、Area(rAsSingle)'参数r为圆的半径ConstPI=3.14funC