✔ Bubblesort in VB 6

[Koernel]

Hallo,
habe folgendes Problem.
Haben ein Lottozahlen Programm programmiert und sollen nun die Zahlen die das Programm "ausspuckt" noch sortieren lassen mit dem Bubblesort Algorythmus.
Ich habe keinen blassen Schimmer wie ich dies tun soll.
Hier der bereits vorhandene Quellcode vom Lottozahlen Programm :

Private Sub cmdStart_Click()
Dim i As Integer
Dim intZahlen(6) As Integer
Dim a As Integer

lstlotto.Clear
Const DEF_Max = 49
i = 1

Do
    Randomize
    intZahlen(i) = Int(Rnd() * DEF_Max) + 1
    'Innere Schleife
 
    For a = 1 To i
        If intZahlen(i) = intZahlen(a) And a <> i Then
            
            i = i - 1
            Exit For
        End If
        
    
    Next
    
    
    i = i + 1
Loop Until i > 6

    i = 1
Do
    lstlotto.AddItem intZahlen(i)
    i = i + 1
Loop Until i > 6

End Sub

Danke schonmal im vorraus

 

[tombe]

Also wenn du jetzt den Code suchtst, dann schau zum Beispiel mal hier:

http://msdn.microsoft.com/de-de/library/bb979305.aspx

 

[Koernel]

Danke hab es.
Quellcode:

Private Sub cmdStart_Click()
Dim i As Integer
Dim intZahlen(6) As Integer
Dim a As Integer
Dim sortiert As Boolean
Dim temp As Integer
Dim zaehler As Integer

lstlotto.Clear
Const DEF_Max = 49
i = 1

Do
    Randomize
    intZahlen(i) = Int(Rnd() * DEF_Max) + 1
    'Innere Schleife
 
    For a = 1 To i
        If intZahlen(i) = intZahlen(a) And a <> i Then
            
            i = i - 1
            Exit For
        End If
        
    
    Next
    
    
    i = i + 1
Loop Until i > 6
Do
    sortiert = True
    For i = 1 To 5
        If intZahlen(i) > intZahlen(i + 1) Then
            temp = intZahlen(i + 1)
            intZahlen(i + 1) = intZahlen(i)
            intZahlen(i) = temp
            sortiert = False
        End If
    Next i
Loop Until sortiert = True


    i = 1
Do
    lstlotto.AddItem intZahlen(i)
    i = i + 1
Loop Until i > 6

End Sub