Adding BMI to Weight Guesser

• Option Explicit

• Dim guess As Integer

• Dim increment As Integer

• Private Sub cmdLess_Click()

• increment = increment \ 10

• lblLBS.Caption = guess + increment

• If increment = 0 Then

• cmdMore.Visible = False

• cmdLess.Visible = False

• lblIs.Visible = False

• lblThan.Visible = False

• lblYour.Visible = True

• End If

• End Sub

Private Sub cmdMore_Click()

guess = guess + increment

lblLBS.Caption = guess + increment

End Sub

Private Sub Form_Load()

guess = -100

increment = 100

End Sub

Previous slide

Next slide

Back to first slide

View graphic version