体脂肪率计算软件说明书

体脂肪率计算软件说明书一、设计背景肥胖症是现代社会威胁人类健康的主要杀手，衡量肥胖症的指标之一是体脂肪率，它是将脂肪含量用其占总体重的百分比的形式表示。体脂肪率计算公式为：体重公斤）体脂肪率（喘=1.2*.+0.235.4-10.3身高（米其中男性性别取值为1，女性取值为0。一般认为男性体脂25%，女性33%是诊断肥胖的标准。试设计一个VBA窗体程序，计算体脂肪率。要求输出时，给出性别和合理的体脂肪率。将该软件开发成APP，应用于平常手机中可以有效帮助肥胖或潜在肥胖人群监控自身体重，随时随地督促自己进行食量控制和健康锻炼。在社会中可以掀起锻炼的风潮，有助于全民健康。乙面向对象程序说明（一）构造界面控件说明窗体对象界面兀素对象实例说明对象所属的类对象事件窗体Form窗体Load文字“欢迎使用体脂肪率计算软件”Label192标签文字“身高”Label492标签“身高”后文本框Height92文本框文字“米”Label792标签文字“体重”Label692标签“体重”后文本框Weight92文本框文字“Kg”Label892标签文字“年龄”Label1092标签“年龄”后文本框Age92文本框文字“请选择性别”Label1592标签Opt“男”Opt_male92选项按钮Click文字“男”Label1792标签Opt“女”Opt_female92选项按钮Click文字“女”Label1992标签文字“体脂肪率计算”Cmd_rate92命令按钮Click文字“您的体脂肪率为：”Label2292标签“您的体脂肪率为：”后文本框Rate92文本框文字“再来一次”Cmd_again92命令按钮Click（二）控件属性说明对象实例名称对象属性设置Form“标题”为“欢迎使用计算体脂肪率软件”背景色#CDDCAFLabel192“标题”为“欢迎使用体脂肪率计算软件”背景色：浅色页眉背景阴影Label492“标题”为“身高”背景色#EFD3D2，凸起Height92Label792“标题”为“米”背景色#FFFFFFLabel692“标题”为“体重”背景色#EFD3D2，凸起Weight92Label892“标题”为“Kg”背景色#FFFFFFLabel1092“标题”为“年龄”背景色#EFD3D2，凸起Age92Label1592“标题”为“请选择性别”背景色#EFD3D2，凸起Opt_male92Label1792“标题”为“男”背景色#FFFFFFOpt_female92Label1992“标题”为“女”背景色#FFFFFFCmd_rate92“标题”为“体脂肪率计算”Label2292“标题”为“您的体脂肪率为：”背景色#FFFFFFRate92Cmd_again92“标题”为“再来一次”（三）控件事件代码说明对象实例名称对象事件事件功能FormLoad打开窗体时，窗体名称默认为“欢迎使用计算体脂肪率软件”，将age92，height92，weight92，rate92文本框值默认为空，选项按钮标记为非选中状态Opt_male92Click先设置“男”选项按钮为选中状态，在设置“女”选项按钮为非选中状态，保证rate92属性的单一性。Opt_female92Click先设置“女”选项按钮为选中状态，在设置“男”选项按钮为非选中状态，保证rate92属性的单一性。Rate92Click先设置age92，height92，weight92，rate92的属性为对应文本框中所输入值，利用所输入数据计算体脂肪率，并将结果复制给rate92文本框。冋时按照rat92的不冋属性值弹出对话框，给出不冋的建议。Cmd_again92Click设置age92,height92,weight92,rate92文本框值为空。选项按钮标记为非选中状态。开始准备下一次计算。（四）程序代码OptionCompareDatabasePrivateSubform_load()Me.Caption=欢迎使用计算体脂肪率软件Me.height92.Value=Me.weight92.Value=Me.rate92.Value=Me.opt_female92.Value=FalseMe.opt_male92.Value=FalseEndSubPrivateSubopt_male92_click()Ifopt_male92.Value=TrueThenopt_female92.Value=FalseEndIfEndSubPrivateSubopt_female92_click()Ifopt_female92.Value=TrueThenopt_male92.Value=FalseEndIfEndSubPrivateSubcmd_rate92_click()Dimage,sexAsIntegerDimweight,height,rateAsDoubleIfMe.opt_male92.ValueThensex=1ElseIfMe.opt_female92.ValueThensex=0EndIfage=Me.age92.Valueweight=Me.weight92.Valuerate=1.2*weight/（heightA2）+0.23*age-5.4-10.8*sexrate92.Value=rate给男性的建议Ifsex=1Andrate=10Andrate=25ThenMsgBox（帅哥，您的体型正常”）ElseIfsex=1Andrate25ThenMsgBox（帅哥，您的体型过胖，食量适度=）EndIf给女性的建议Ifsex=0Andrate=15Andrate=33ThenMsgBox（女士，您的体型正常”）ElseIfsex=0Andrate33ThenMsgBox（女士，少吃有助于身心健康）EndIfEndSubPrivateSubcmd_again92_click（）Me.age92.Value=Me.height92.Value=Me.weight92.Value=Me.rate92.Value=Me.opt_female92.Value=FalseEndSub三、体脂肪率计算数据测试的截图说明岂欢逊便甲计芸住港肪率软件20L0n37R%20L0n37R%欢迎使用体册肪丰计算软件身高:1.5休車:45年龄：19谴选拦性别男徑的体脂肿率齿:第1區兴1观丨/丨麦秦lskj图一：-输入数据-31i耳-r-L1N_l*!戶匸1戶IMBKJdl_欢迴使用体脂肪率计算轶件1.620.06375%恋的体脂-肪率光:O甲立1鈕w壬1頂悵IM卜jEI图二一得出结果，弹出建议框-图三-再来一次，清空数据-