by Varun Godbole (15 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Mon 11th December 2006
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Body Mass Index Calculator
VBcoders
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
