The Yes/No Logic

Private Sub cmdYes_Click()

loSide = loSide + increment

Call guess

End Sub

Private Sub cmdNo_Click()

increment = increment \ 10

If increment < 1 Then

lblHead.Caption = "You Weigh Exactly ..."

lblPound.Caption = "lbs!"

Else

Call guess

End If

End Sub

• The “Yes” logic only adds-in, but the “No” logic reduces the increment and must also test for completion

lblGuess.Caption = loSide + increment

lblGuess.Caption = loSide + increment

Previous slide

Next slide

Back to first slide

View graphic version