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
Linear Mode
