Bubblesort über Funktion
21.02.2017 07:56:28
Simon
ich benötige einen Rat von euch. Ich komme einfach nicht drauf wieso mein Code nicht funktioniert. Ich habe ein Array mit 250 Elementen in der ersten Dimension und 4 in der zweiten Dimension, also:
Dim arrAnl(249, 3) As Long
Das Array wurde davor mit Werten aus einer Tabelle gefüllt. arrAnl(x,0) enthält eine 6-stellige Nummer und arrAnl(x,1-3) enthalten Zahlen von 0 - ca. 8. Sortiert werden soll der zweite Eintrag. Das Array ist bis arrAnl(193,0) gefüllt. Der Rest des Arrays dient als Puffer für zukünftige Werte.
über Call bubblesortK(arrAnl) rufe ich den Sortieralgorithmus auf.
Private Sub bubblesortK(ByRef arrbubbK() As Long)
Dim n As Integer
Dim i As Integer
Dim temp0 As Long
Dim temp1 As Long
Dim temp2 As Long
Dim temp3 As Long
For n = 249 To n > 1 Step -1
For i = 0 To i arrbubbK(i + 1, 1) Then 'Swap
temp0 = arrbubbK(i, 0)
temp1 = arrbubbK(i, 1)
temp2 = arrbubbK(i, 2)
temp3 = arrbubbK(i, 3)
arrbubbK(i, 0) = arrbubbK(i + 1, 0)
arrbubbK(i, 1) = arrbubbK(i + 1, 1)
arrbubbK(i, 2) = arrbubbK(i + 1, 2)
arrbubbK(i, 3) = arrbubbK(i + 1, 3)
arrbubbK(i + 1, 0) = temp0
arrbubbK(i + 1, 1) = temp1
arrbubbK(i + 1, 2) = temp2
arrbubbK(i + 1, 3) = temp3
End If
Next i
Next n
End Sub
Hat jemand einen Rat für mich was ich falsch mache?