體脂肪率計算軟件說明書0001

1、體脂肪率計算軟件說明書、設(shè)計背景肥胖癥是現(xiàn)代社會威脅人類健康的主要殺手，衡量肥胖癥的指標(biāo)之一是體脂肪率，它是將脂肪含量用其占總體重的百分比的形式表示。體脂肪率計算公式為：體雖公斤)體脂肪率“)-1.2 + ./ 0, 23 *年齡性別身高(*)其中男性性別取值為 1，女性取值為0。一般認(rèn)為男性體脂25%，女性33%是診斷肥胖的標(biāo)準(zhǔn)。試設(shè)計一個VBA窗體程序，計算體脂肪率。要求輸出時，給出性別和合理的體脂肪率。將該軟件開發(fā)成 APP，應(yīng)用于平常手機(jī)中可以有效幫助肥胖或潛在肥胖人群監(jiān)控自身體重，隨時隨地督促自己進(jìn)行食量控制和健康鍛煉。在社會中可以掀起鍛煉的風(fēng)潮，有助于全民健康。乙面向?qū)ο蟪绦蛘f明(

2、一) 構(gòu)造界面控件說明窗體對象界面兀素對象實例說明對象所屬的類對象事件窗體Form窗體Load文字“歡迎使用體脂肪率計算軟件”Label192標(biāo)簽文字“身高”Label492標(biāo)簽“身高”后文本框Height92文本框文字“米”Label792標(biāo)簽文字“體重”Label692標(biāo)簽“體重”后文本框Weight92文本框文字“ Kg ”Label892標(biāo)簽文字“年齡”Label1092標(biāo)簽“年齡”后文本框Age92文本框文字“請選擇性別”Label1592標(biāo)簽Opt “男”O(jiān)pt_male92選項按鈕Click文字“男”Label1792標(biāo)簽Opt “女”O(jiān)pt_female92選項按鈕Click文

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

4、EFD3D2，凸起Weight92Label892“標(biāo)題”為“ Kg ”背景色#FFFFFFLabel1092“標(biāo)題”為“年齡”背景色 #EFD3D2，凸起Age92Label1592“標(biāo)題”為“請選擇性別”背景色#EFD3D2，凸起Opt_male92Label1792“標(biāo)題”為“男”背景色 #FFFFFF編輯版wordOpt_female92Label1992“標(biāo)題”為“女”背景色 #FFFFFFCmd_rate92“標(biāo)題”為“體脂肪率計算”Label2292“標(biāo)題”為“您的體脂肪率為：”背景色#FFFFFFRate92Cmd_agai n92“標(biāo)題”為“再來一次”（三）控件事件代碼說明對

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

6、據(jù)計算體脂肪率，并將結(jié)果復(fù)制給rate92文本框。冋時按照 rat92的不冋屬性值彈出對話框，給出不冋的建 議。Cmd_agai n92Click設(shè)置age92, height92 , weight92 , rate92文本框值為空。選項按鈕標(biāo)記為非選中狀態(tài)。開始準(zhǔn)備下一次計算。（四）程序代碼Opti on Compare DatabasePrivate Sub form_load()Me.Caption =歡迎使用計算體脂肪率軟件Me.height92.Value =Me.weight92.Value =Me.rate92.Value =Me.opt_female92.Value = Fal

7、seMe.opt_male92.Value = FalseEnd SubPrivate Sub opt_male92_click()If opt_male92.Value = True Thenopt_female92.Value = FalseEnd IfEnd SubPrivate Sub opt_female92_click()If opt_female92.Value = True Thenopt_male92.Value = FalseEnd IfEnd SubPrivate Sub cmd_rate92_click()Dim age, sex As In tegerDim weig

8、ht, height, rate As DoubleIf Me.opt_male92.Value The nsex = 1ElseIf Me.opt_female92.Value Thensex = 0End Ifage = Me.age92.Valueheight = Me.height92.Value編輯版wordweight = Me.weight92.Valuerate = 1.2 * weight / （height A 2） + 0.23 * age - 5.4 - 10.8 * sex rate92.Value = rate給男性的建議If sex = 1 And rate =

9、10 And rate = 25 ThenMsgBox （”帥哥，您的體型正常 ”）ElseIf sex = 1 And rate 25 ThenMsgBox （帥哥，您的體型過胖，食量適度=）End If給女性的建議If sex = 0 And rate = 15 And rate = 33 The nMsgBox （女士，您的體型正?！保〦lseIf sex = 0 And rate 33 The nMsgBox （女士，少吃有助于身心健康）End IfEnd SubPrivate Sub cmd_agai n92_click（）Me.age92.Value =Me.height92.Value =Me.weight92.Value =Me.rate92.Value =Me.opt_female92.Value = FalseMe.opt_male92.Value = False編輯版wordEnd Sub三、體脂肪率計算數(shù)據(jù)