第6章 模块 答案.docxVIP

第6章模块【思考与练习答案】【实例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按钮VbRetryCancel5显示Retry及Cancel按钮实例窗体位于“中药门诊”数据库的窗体“1B-1 Frm消息框”中。2. 答案：答案位于“中药门诊”数据库的窗体“实例01B-2 Frm运行宏”中，其中运行宏的代码如下：DoCmd.RunMacro 实例01B-2 宏【实例2】答案：答案位于“中药门诊”数据库的窗体“实例02B-Frm加法运算”中，其中“求和”命令按钮对应的代码如下：Dim v1 As Single 用于存放第1个加数Dim v2 As Single 用于存放第2个加数Dim sum As Single 用于存放和v1 = txtV1v2 = txtV2sum = v1 + v2txtSum = sum 将和显示到文本框txtSum中【实例3】1. 答案：答案位于“中药门诊”数据库的窗体“实例03B-1 Frm体重指数”中，命令按钮“计算您的体重指数”对应的代码为：Dim h As SingleDim w As SingleDim iAs SingleRem 判断用户数输入的身高体重是否为数字（空值被判断为非数字）If IsNumeric(txtShenGao) = False orIsNumeric(txtTiZhong) = False ThenMsgBox 身高体重必须为数字，不能为空或非数字字符！, vbCritical, 警告Else Rem 判断身高体重是否小于0，小于0则提示并终止程序执行 If Val(txtShenGao) = 0 Or Val(txtTiZhong) = 0 ThenMsgBox 身高和体重必须为正值，请重新输入！, vbCritical, 警告 Else h = Me.txtShenGao w = Me.txtTiZhongi = w / h ^ 2Me.txtIndex = i End IfEnd If2. 答案：答案位于“中医门诊”数据库的窗体“实例03B-2 Frm处方系统”中。在“剂量”文本框的更新前事件中输入以下代码：Rem 判断用药量是否合规If Me.剂量 30 ThenMsgBox 提示，剂量大于30g.！, vbInformationEnd If3. 答案：在使用select case语句时，条件次序的不同对结果是有影响的。当用于条件判断的值满足2个或多个条件时，程序会终止于第一个满足条件的分支。【实例4】答案：答案位于“中医门诊”数据库的窗体“实例04B-Frm减肥问题”中。其中命令按钮“12个月后体重”的单击事件代码为：Dim i As Integer, wt As Singlewt = 100 变量wt用于存储人数For i = 1 To 12wt = wt / 1.01NexttxtWt = wt 将人数显示于文本框txtwt中命令按钮“降到80KG月数”的单击事件代码为：Dim i As Integer, wt As Singlewt = 100 变量wt用于存储人数For i = 1 To 12wt = wt / 1.01NexttxtWt = wt 将人数显示于文本框txtwt中【实例5】答案：答案位于“中医门诊”数据库的窗体“实例05B-Frm兔子繁殖问题”中。其中命令按钮“1年后兔子数”的单击事件代码为：Dim iAs IntegerDim f(12) As Integer f(i)用于存储斐波那契额数列f(1) = 1 第1个月1对兔子f(2) = 2 第2个月2对兔子For i = 3 To 12f(i) = f(i - 2) + f(i - 1)Nexttxtnum = f(12) 将兔子数显示文本框txtnum中【实例6】1. 答案：需要执行一系列操作且不需要返回值时使用sub过程；当执行一系列操作且需要有返回值时使用function过程。区别：1）sub过程