S
I need to create a Bowling Score application that allows the user to enter as many bowling scores as they want and then display the high and low scores...
This is what I have, but it won't work...
Private Enter As Integer
Private HighScore As Integer
Private LowScore As Integer
Private Sub cmdEnterScores_Click()
Enter = InputBox("Enter your bowling score:", "Bowling Score")
LowScore = 0
HighScore = 301
Do
If Enter > HighScore Then
HighScore = Enter
End If
Loop While Enter >= HighScore And Enter <= 301
Do
If Enter < LowScore Then
LowScore = Enter
End If
Loop While Enter <= LowScore
End Sub
Private Sub cmdStatistics_Click()
lblDisplay.Caption = "The high score is" & " " & HighScore & " " & "and the low score is" & " " & LowScore
End Sub
Private Sub cmdDone_Click()
Unload Me
HELP ME PLEASE
End Sub
This is what I have, but it won't work...
Private Enter As Integer
Private HighScore As Integer
Private LowScore As Integer
Private Sub cmdEnterScores_Click()
Enter = InputBox("Enter your bowling score:", "Bowling Score")
LowScore = 0
HighScore = 301
Do
If Enter > HighScore Then
HighScore = Enter
End If
Loop While Enter >= HighScore And Enter <= 301
Do
If Enter < LowScore Then
LowScore = Enter
End If
Loop While Enter <= LowScore
End Sub
Private Sub cmdStatistics_Click()
lblDisplay.Caption = "The high score is" & " " & HighScore & " " & "and the low score is" & " " & LowScore
End Sub
Private Sub cmdDone_Click()
Unload Me
HELP ME PLEASE
End Sub