Sub Aufgabe10()
'Deklarierungen
Dim zufallszahl As Integer
Dim EingegebeneZahl As Integer
Dim NeueAbfrage As String
Dim x As Boolean
Dim Eingabe As String
Dim zähler As Integer
'Initialisierungen
zähler = 1
Do
zufallszahl = Rnd() * 100
Do
Eingabe = InputBox("Rate die Zahl:")
If (Eingabe = "q") Then
MsgBox ("Programm abgebrochen!")
Exit Sub
End If
If (IsNumeric(Eingabe)) Then
EingegebeneZahl = CInt(Eingabe)
If (EingegebeneZahl = zufallszahl) Then
MsgBox ("Richtig!" & vbLf & vbCrLf & "Sie haben " & zähler & " Versuch(e) gebraucht!")
NeueAbfrage = InputBox("Möchten sie eine neue Zahl erraten?")
If (NeueAbfrage = "ja") Then
x = True
Else
x = False
End If
Else
If (zufallszahl < EingegebeneZahl) Then
MsgBox ("Zu hoch!")
zähler = zähler + 1
Else
MsgBox ("Zu niedrig!")
zähler = zähler + 1
End If
End If
Else
MsgBox ("Geben sie eine gültige Zahl ein!")
End If
Loop While (zufallszahl <> EingegebeneZahl)
Loop While (x = True)
End Sub
Sub test()
Dim zähler As Integer
Dim zufallszahl As Intger
Dim geratenezahl As Integer
zufallszahl = Rnd() * 10
zähler = 0
geratenezahl = MsgBox("Geben sie eine Zahl ein")
If IsNumeric(geratenezahl) Then
Do While zufallszahl <> zähler
zähler = zähler + 1
If
End Sub
|