第6章 模块 答案

第6章 模块 答案

ID:40722784

大小:31.99 KB

页数:7页

时间:2019-08-06

第6章 模块 答案_第1页
第6章 模块 答案_第2页
第6章 模块 答案_第3页
第6章 模块 答案_第4页
第6章 模块 答案_第5页
资源描述:

《第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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。