6 aus 49 mit VB

[MisterM]

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.

[Buell]

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

[MisterM]

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:

[Buell]

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