qbasic proggi in vb

[Potassium]

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