bmi計算(ch4bmi計算).ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * BMI計算( ch4\BMI計算\) 預覽結果 請輸入體重為「80」(KG)與身高為「1.68」(M)，點選「計算BMI」，則顯示計算所得BMI值為「28.344」與肥胖分級為「體重肥胖」。 BMI計算( ch4\BMI計算\) 表單配置 在表單中新增四個TextBox，四個Label與一個Button。 BMI計算( ch4\BMI計算\) 屬性設定 物件 屬性 設定值 Label1 Text 體重 (KG) Label2 Text 身高 (M) Label3 Text BMI Label4 Text 肥胖分級 Button1 Text 計算 BMI BMI計算( ch4\BMI計算\) 程式碼新增與解說 點選「計算BMI」按鈕，新增程式碼在Button1_Click函式中，如下方程式區塊。 行號 程式碼 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dbBMI As Double dbBMI = Val(TextBox1.Text) / Val(TextBox2.Text) ^ 2 TextBox3.Text = dbBMI If dbBMI 18 Then TextBox4.Text = 體重過輕’ ElseIf dbBMI 24 Then TextBox4.Text = 體重正常 ElseIf dbBMI 27 Then TextBox4.Text = 體重過重 Else : TextBox4.Text = 體重肥胖 End If End Sub End Class BMI計算( ch4\BMI計算\) 解說 第3行：宣告dbBMI為倍精度浮點數變數。 第4行：計算所得BMI值儲存在dbBMI變數中。 第5行：將dbBMI值顯示在TextBox3。 第6到7行：判斷所計算出的BMI值是否小於18，若是，則顯示「體重過輕」。 第8到9行：否則，判斷所計算出的BMI值是否小於24(隱含BMI值大於等於18)，若是，則顯示「體重正常」。 第10到11行：否則，判斷所計算出的BMI值是否小於27(隱含BMI值大於等於24)，若是，則顯示「體重過重」。 第12行：否則(隱含BMI值大於等於27)顯示「體重肥胖」。 多向選擇－使用Select-Case 多向選擇結構除了使用If-Then-Else格式表達外，還可以使用Select-Case格式表示。 Select-Case格式是針對某個變數測試，該變數若為狀況1，則執行狀況1成立的動作；該變數若為狀況2，則執行狀況2成立的動作，以此類推。 多向選擇－使用Select-Case 流程圖表示 多向選擇－使用Select-Case 程式語法 BMI計算( ch4\BMI計算-Select-Case\) BMI常用來判斷肥胖程度，BMI等於體重(KG)除以身高(M)的平方，會有一個分類標準，假設BMI與肥胖分級如下。請寫一程式讓使用者輸入身高與體重，顯示BMI值與肥胖分級。 BMI計算( ch4\BMI計算-Select-Case\) 流程圖表示 BMI計算( ch4\BMI計算-Select-Case\) 預覽結果 請輸入體重為「80」(KG)與身高為「1.68」(M)，點選「計算BMI」，則顯示計算所得BMI值為「28.344」與肥胖分級為「體重肥胖」。 BMI計算( ch4\BMI計算-Select-Case\) 表單配置 在表單中新增四個TextBox，四個Label與一個Button。 BMI計算( ch4\BMI計算-Select-Case\) 屬性設定 物件 屬性 設定值 Label1 Text 體重 (KG) Label2 Text 身高 (M) Label3 Text BMI Label4 Text 肥胖分級 Button1 Text 計算 BMI BMI計