myGully.com Boerse.SH - BOERSE.AM - BOERSE.IO - BOERSE.IM Boerse.BZ .TO Nachfolger
Zurück   myGully.com > Computer & Technik > Programmierung
Seite neu laden

VBA Zahlenraten

Willkommen

myGully

Links

Forum

 
 
 
Themen-Optionen Ansicht
Prev Vorheriger Beitrag   Nächster Beitrag Next
Ungelesen 17.08.13, 12:24   #1
davi96
Erfahrener Newbie
 
Registriert seit: Sep 2009
Beiträge: 112
Bedankt: 7
davi96 ist noch neu hier! | 0 Respekt Punkte
Standard VBA Zahlenraten

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
davi96 ist offline   Mit Zitat antworten
 


Forumregeln
Du kannst keine neue Themen eröffnen
Du kannst keine Antworten verfassen
Du kannst keine Anhänge posten
Du kannst nicht deine Beiträge editieren

BB code is An
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.

Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:37 Uhr.


Sitemap

().