BMI指數

物件安排

程式碼

Public Class Form1

Private Sub Form1_Load(ByVal  … ) Handles MyBase.Load
     txtHeight.Text = ""
     txtWeight.Text = ""
     lblGrade.Text = ""
End Sub

Private Sub btnOK_Click(ByVal   …. ) Handles btnOK.Click
   Dim bmi As Integer, grade As String
   bmi = Val(txtWeight.Text) / ((Val(txtHeight.Text) / 100) ^2

  Select Case bmi
      Case bmi < 18
        grade = "體重過輕 ! "
      Case 18 To 23
        grade = "正常範圍 !"
      Case 24 To 26
        grade = "過重 !"
      Case 27 To 29
        grade = "輕度肥胖 !"
      Case 30 To 34
        grade = "中度肥胖 !"
      Case Else   ' BMI>=35
        grade = "重度肥胖 !"
 End Select
     lblGrade.Text = "你的 BMI? = " & bmi & "屬於 " & grade
End Sub

End Class