hab jetzt so!
allgemein: Deklaration:
Dim x As Integer
Dim y As Integer 'obwohls natürlich auch single gibt, aber ich denk integer passt da besser
Command1 Click:
Private Sub Command1_Click()
Randomize
y = Int((100 - 0 + 1) * Rnd) + 0
Do
x = InputBox "Bitte geben Sie eine Zahl ein:"
If Int(x) < y Then
msgbox " zu klein"
ElseIf Int(x) > y Then
msgbox "zu groß"
Else
msgbox "Richtig"
End If
Loop Until Int(x) = y
End Sub
funzt aber nicht wir ruf ich jetzt mit dem button auf
|