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 :

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

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

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

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

Danke hab es.
Quellcode:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

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