Hallo,
sitze nun seit einiger Zeit an einer aufgabe und krieg irgendwie keine Lösung in das ganze.
Also folgendes soll realisiert werden.
Es soll nach Klick auf einen Command-Button in einem listenfeld 6 zufällige zahlen aus dem Zahlenraum zwischen 0 und 49 erscheinen.
das ist eigentlich schon alles, mit dem hinweis darauf das zur realisierung eine For-Next Schleife oder auch For-Next Anweisung gebraucht werden soll.
für hilfe wäre ich überaus dankbar!!
Liebe grüße
Jonny
Hallo,
Hi!
In etwa so:
Dim x(5) As Integer
Dim i, k As Integer
Dim doppelt As Boolean
Randomize
For i = 0 To 5
doppelt = True
While doppelt = True
doppelt = False
x(i) = Int(50 * Rnd)
For k = 0 To i - 1
If x(i) = x(k) Then doppelt = True
Next k
Wend
Next i
MsgBox x(0) & „;“ & x(1) & „;“ & x(2) & „;“ & x(3) & „;“ & x(4) & „;“ & x(5)
Gruß.
Timo
sitze nun seit einiger Zeit an einer aufgabe und krieg
irgendwie keine Lösung in das ganze.
Also folgendes soll realisiert werden.Es soll nach Klick auf einen Command-Button in einem
listenfeld 6 zufällige zahlen aus dem Zahlenraum zwischen 0
und 49 erscheinen.das ist eigentlich schon alles, mit dem hinweis darauf das zur
realisierung eine For-Next Schleife oder auch For-Next
Anweisung gebraucht werden soll.für hilfe wäre ich überaus dankbar!!
Liebe grüße
Jonny
Danke - geht!
Vielen Dank!