Hallo Leute
Ich bin in einer Informatikerlehre als Applikationsentwickler und habe die Aufgabe ein Zahlenratenspiel zu programmieren in VBA.
Code:
Sub Zahlenraten()
Dim i As Integer
i = Int((100 - 0 + 1) * Rnd + 0)
Do
a = InputBox("Bitte raten.")
If i > a Then
MsgBox "Grösser"
End If
If i < a Then
MsgBox "Kleiner"
End If
If i = a Then
MsgBox "Gewonnen"
End If
Loop
End Sub
Es funktioniert auch mehr oder weniger, mein Problem ist, es ist immer die Zahl 71. Der Fehler muss beim generieren der Zufallszahl sein, aber ich finde ihn nicht. Vielleicht kann mir jemand von euch helfen?
Und es muss doch auch gehen ohne so viele If Abfragen? Im Internet habe ich viele Musterlösungen gefunden, aber ich möchte nicht einfach eine kopieren.
Grüsse
David