Bmi
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Bmi as PDF for free.
More details
- Words: 88
- Pages: 1
Private Sub cmdCalculateBMI_Click() Dim weight, BMI As Integer Dim height As Single weight = txtWeight.Text height = txtHeight.Text BMI = weight / (height * height) lblBMI.Caption = "YOUR BMI IS " & BMI If BMI < 19 Then lblWeightStatus.Caption = "UNDERWEIGHT" ElseIf BMI < 25 Then lblWeightStatus.Caption = "NORMAL" ElseIf BMI < 30 Then lblWeightStatus.Caption = "OVERWEIGHT" Else lblWeightStatus.Caption = "OBESE" End If End Sub Private Sub cmdClear_Click() txtWeight.Text = "" txtHeight.Text = "" lblBMI.Caption = "" lblWeightStatus.Caption = "" End Sub Private Sub cmdExit_Click() End End Sub
