• Home
 · 
• Miscellaneous
 · 
• Body Mass Index Calculator

Body Mass Index Calculator

Body Mass Index Calculator

Rate Body Mass Index Calculator

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

w = Val(weight.Text)
m = Val(hgt.Text)
h = m ^ 2

bmi = w / h
Text1.Text = Str$(bmi)

bodymi = Text1.Text

Select Case bodymi

Case 0 To 20

Comment.Caption = "You are very underweight"

Case 21 To 25

Comment.Caption = "Your weight is normal"

Case 26 To 30


Comment.Caption = "You are overweight"

Case 31 To 35

Comment.Caption = "You are obese"

Case 36 To 40

Comment.Caption = "You are very obese"

Case 41 To 60

Comment.Caption = "You are extremely obese"

End Select

End Sub