体脂肪率计算软件说明书

体脂肪率计算软件说明书一、设计背景肥胖症是现代社会威胁人类健康的主要杀手，衡量肥胖症的指标之一是体脂肪率，它是将脂肪含量用其占总体重的百分比的形式表示。体脂肪率计算公式为：体脂肪率（%）= 1.2*体重（公斤）身高2（米）+0.23*年龄-5.4-10.8*性别其中男性性别取值为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文本框值为空。选项按钮标记为非选中状态。开始准备下一次计算。（四）程序代码Option Compare DatabasePrivate Sub form_load() Me.Caption = 欢迎使用计算体脂肪率软件 Me.age92.Value = Me.height92.Value = Me.weight92.Value = Me.rate92.Value = Me.opt_female92.Value = False Me.opt_male92.Value = False End SubPrivate Sub opt_male92_click() If opt_male92.Value = True Then opt_female92.Value = False End IfEnd SubPrivate Sub opt_female92_click() If opt_female92.Value = True Then opt_male92.Value = False End IfEnd SubPrivate Sub cmd_rate92_click() Dim age, sex As Integer Dim weight, height, rate As Double If Me.opt_male92.Value Then sex = 1 ElseIf Me.opt_female92.Value Then sex = 0 End If age = Me.age92.Value height = Me.height92.Value weight = Me.weight92.Value rate = 1.2 * weight / (height 2) + 0.23 * age - 5.4 - 10.8 * sex rate92.Value = rate 给男性的建议 If sex = 1 And rate = 10 And rate = 25 Then MsgBox (帅哥，您的体型正常) ElseIf sex = 1 And rate 25 Then MsgBox (帅哥，您的体型过胖，食量适度= =) End If 给女性的建议 If sex = 0 And rate = 15 And rate = 33 Then MsgBox (女士，您的体型正常) ElseIf sex = 0 And rate 33 Then MsgBox (女士，少吃有助于身心健康) End IfEnd SubPrivate Sub cmd_again92_click() Me.age92.Value = Me.height92.Value = Me.weight92