體脂肪率計算軟件說明書

1、體脂肪率計算軟件說明書體脂肪率計算軟件說明書一、設計背景肥胖癥是現代社會威脅人類健康的主要殺手，衡量肥胖癥的指標之一是體脂肪率，它是將脂肪含量用其占總體重的百分比的形式表示。體脂肪率計算公式為：體脂肪率（%）= 1.2*體重（公斤）身高2（米）+0.23*年齡-5.4-10.8*性別其中男性性別取值為1，女性取值為0。一般認為男性體脂>25%，女性>33%是診斷肥胖的標準。試設計一個VBA窗體程序，計算體脂肪率。要求輸出時，給出性別和合理的體脂肪率。將該軟件開發(fā)成APP，應用于平常手機中可以有效幫助肥胖或潛在肥胖人群監(jiān)控自身體重，隨時隨地督促自己進行食量控制和健康鍛煉。在社會中可以

2、掀起鍛煉的風潮，有助于全民健康。二、面向對象程序說明（一）構造界面控件說明窗體對象界面元素對象實例說明對象所屬的類對象事件窗體Form窗體Load文字“歡迎使用體脂肪率計算軟件”Label192標簽文字“身高”Label492標簽“身高”后文本框Height92文本框文字“米”Label792標簽文字“體重”Label692標簽“體重”后文本框Weight92文本框文字“Kg”Label892標簽文字“年齡”Label1092標簽“年齡”后文本框Age92文本框文字“請選擇性別”Label1592標簽Opt“男”O(jiān)pt_male92選項按鈕Click文字“男”Label1792標簽Opt“女”

3、Opt_female92選項按鈕Click文字“女”Label1992標簽文字“體脂肪率計算”Cmd_rate92命令按鈕Click文字“您的體脂肪率為：”Label2292標簽“您的體脂肪率為：”后文本框Rate92文本框文字“再來一次”Cmd_again92命令按鈕Click（二）控件屬性說明對象實例名稱對象屬性設置Form“標題”為“歡迎使用計算體脂肪率軟件”背景色#CDDCAFLabel192“標題”為“歡迎使用體脂肪率計算軟件”背景色：淺色頁眉背景陰影Label492“標題”為“身高”背景色#EFD3D2，凸起Height92Label792“標題”為“米”背景色#FFFFFFLab

4、el692“標題”為“體重”背景色#EFD3D2，凸起Weight92Label892“標題”為“Kg”背景色#FFFFFFLabel1092“標題”為“年齡”背景色#EFD3D2，凸起Age92Label1592“標題”為“請選擇性別”背景色#EFD3D2，凸起Opt_male92Label1792“標題”為“男”背景色#FFFFFFOpt_female92Label1992“標題”為“女”背景色#FFFFFFCmd_rate92“標題”為“體脂肪率計算”Label2292“標題”為“您的體脂肪率為：”背景色#FFFFFFRate92Cmd_again92“標題”為“再來一次”（三）控件事件

5、代碼說明對象實例名稱對象事件事件功能FormLoad打開窗體時，窗體名稱默認為“歡迎使用計算體脂肪率軟件”，將age92，height92，weight92，rate92文本框值默認為空，選項按鈕標記為非選中狀態(tài)Opt_male92Click先設置“男”選項按鈕為選中狀態(tài)，在設置“女”選項按鈕為非選中狀態(tài)，保證rate92屬性的單一性。Opt_female92Click先設置“女”選項按鈕為選中狀態(tài)，在設置“男”選項按鈕為非選中狀態(tài)，保證rate92屬性的單一性。Rate92Click先設置age92，height92，weight92，rate92的屬性為對應文本框中所輸入值，利用所輸入數據

6、計算體脂肪率，并將結果復制給rate92文本框。同時按照rat92的不同屬性值彈出對話框，給出不同的建議。Cmd_again92Click設置age92，height92，weight92，rate92文本框值為空。選項按鈕標記為非選中狀態(tài)。開始準備下一次計算。（四）程序代碼Option Compare DatabasePrivate Sub form_load() Me.Caption = "歡迎使用計算體脂肪率軟件" Me.age92.Value = "" Me.height92.Value = "" Me.weight92.Va

7、lue = "" 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.Valu

8、e = 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 / (heig

9、ht 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 < 10 Then MsgBox ("帥哥，您的體型偏瘦") ElseIf sex = 1 And rate > 25 Then MsgBox ("帥哥，您的體型過胖，食量適度= =") End

10、 If '給女性的建議 If sex = 0 And rate >= 15 And rate <= 33 Then MsgBox ("女士，您的體型正常") ElseIf sex = 0 And rate < 15 Then MsgBox ("女士，您需要加強營養(yǎng)哦") ElseIf sex = 0 And rate > 33 Then MsgBox ("女士，少吃有助于身心健康") End IfEnd SubPrivate Sub cmd_again92_click() Me.age92.Value = "" Me.height92.Value = "" Me.weight92.Value =