[davi96]

Hallo Leute

Ich bin in einer Informatikerlehre als Applikationsentwickler und habe die Aufgabe ein Zahlenratenspiel zu programmieren in VBA.

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