Zelaron Gaming Forum - View Single Post

Profile · Posted 2006-02-01, 08:04 PM

Ok i got to make a random guessing game for my class. But it don't work for me here the code plz tell me what i am doing wrong.

Code:

Private Sub cmdClickToPlay_Click()
    Dim intNumber As Integer
    Dim intGuess As String
    
    'The code below will generate a random number between 1 and 50...
    Randomize
    intNumber = Int(Rnd * 50) + 1
    
    
End Sub

Private Sub Click_Click()
Dim intNumber As Integer
Dim intGuess As String

Do While intGuess = intNumber
Loop

intGuess = InputBox("i am guessing a number guess what it is")

If intGuess = intNumber Then
    intGuess = InputBox(" you guess it")
    List1.AddItem Str(intGuess)

End If

If intGuess > intNumber Then
    intGuess = InputBox("your guess is to high")
    List1.AddItem Str(intGuess)

End If
If intGuess < intNumber Then
    intGuess = InputBox(" your guess is to low")
    List1.AddItem Str(intGuess)

End If

End Sub