FIT   100
© Copyright University of Washington 1999-2000
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 ..."
  lblGuess.Caption = loSide
lblPound.Caption = "lbs!"
    Else
        Call guess
    End If
End Sub
vThe “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