ich soll ein kleines programm entwickeln das (lotterieprogramm) das 6 verschiedene zufallszahlen von 49 erstellt und diese dann noch der größe nach ordnet. kann mir jemand sagen wie ich das machen soll.

Hi,

mal ohne Sortierung und auf die Schnelle hinprogrammiert:

Private Sub Command1_Click()

Dim lotto(6) As Integer

For x = 1 To 6

lotto(x) = 0

Next x

Dim i As Integer

Counter = 1

While Counter < 7

i = zufallszahl

For pruefen = 1 To 6

If lotto(pruefen) = i Then

i = zufallszahl

Counter = Counter - 1

End If

Next pruefen

lotto(Counter) = i

Counter = Counter + 1

Wend

Debug.Print "____________"

For i = 1 To 6

Debug.Print lotto(i)

Next i

Debug.Print "____________"

End Sub

Private Function zufallszahl() As Integer

zufallszahl = Int((49 - 1 + 1) * Rnd + 1)

End Function

Die Sortierung überlass ich mal andere (es empfiehlt sich der Bubblesort http://www.activevb-archiv.de/vb/VBtips/VBtip0187.shtml)

ciaoi

Buell

erst mal danke für die hilfe. vieleicht kann ja irgendjemand anderes was mit dem bubble sort anfangen. es sollen also 6 zahlen zahlen sortiert werden. bubble sort? kann mir jemand sagen wie das funktioniert?:confused:

schau mal unter

http://www.edv-sk.de/vbatipps/vbatipps4.htm

nach

kurz und bündig. bubblesort ist der primitivste Algorithmus zum sortieren von zahlen.

gib einfach mal bei http://www.metager.de oder google bubblesort ein.

greets

Buell