Lotto Zahlengenerator funkt nicht ganz richtig
Hallo, habe folgendes Programm geschrieben, dass mir die Lottozahlen ausgeben soll. Diese simuliert die Ziehung bei aw = 1 und ew = 45 aber so, als ob die Zahlen wieder in den "Topf" zurückgelegt werden würden, sprich ich muss jetzt sobald die zahl innerhalb des Intervalls
gezogen wurden, diese aus der Grundmenge der zu ziehenden Zahlen entfernen, wie mache ich das? Hier das Skript:
Public Function zufallszahl(aw, ew)
Dim k, zahl As Integer
k = 0
zahl = 0
Do While (k < 6)
zahl = Int(((ew - aw + 1) * Rnd) + aw)
Debug.Print zahl
k = k + 1
Pause 1
Loop
Debug.Print ("Sechser komplett")
End Function
In Erwartung auf eine Antwort verbleibe ich
Grüsse Coolbininet
____________________________________
Wenn du eine helfende Hand brauchst, tust du gut wenn, du sie an den eigenen Armen suchst!
Website RI
Nur der Kleingeist hält Ordnung das Genie überblick das Chaos! Genie und Wahnsinn liegen dicht nebeneinander, sie können und sollen nicht getrennt werden.
|Marktorientierter Sozialist|Menschenfreund|Teamfähig|Analytiker|Logi ker|
If you want to see the Sky, fuck a Duck and learn to fly!
Mein Glück ist nicht von dieser Welt, insbesondere im Umgang mit Microsoft Produkten!
Möge die MACHT mit uns sein!
|