Wie sortiere ich in VB.NET 2003 ein Array mit 10 Zeilen und 15 Spalten nach der 8. Spalte auf- oder absteigend?

In **VB.NET 2003** sortierst du ein **zweidimensionales Array** nicht direkt mit einer eingebauten Sortierfunktion nach einer bestimmten Spalte. Üblich ist: 1. die Zeilen vergleichen, 2. beim Sortieren komplette Zeilen tauschen, 3. dabei die gewünschte Spalte als Sortierschlüssel verwenden. Beispiel für ein Array mit **10 Zeilen und 15 Spalten**, Sortierung nach **Spalte 8**: ```vb Dim arr(9, 14) As String Dim i As Integer Dim j As Integer Dim k As Integer Dim temp As String Dim sortCol As Integer = 7 ' 8. Spalte, da Index bei 0 beginnt ' Aufsteigend sortieren For i = 0 To 8 For j = i + 1 To 9 If arr(i, sortCol) > arr(j, sortCol) Then ' ganze Zeile tauschen For k = 0 To 14 temp = arr(i, k) arr(i, k) = arr(j, k) arr(j, k) = temp Next End If Next Next ``` Für **absteigend** einfach den Vergleich umdrehen: ```vb If arr(i, sortCol) < arr(j, sortCol) Then ``` Wichtig: - **8. Spalte = Index 7** - Bei Zahlen besser nicht als `String`, sondern als `Integer` oder `Double` vergleichen, sonst wird alphabetisch sortiert (`"100"` vor `"20"`). Für numerische Werte: ```vb If CInt(arr(i, sortCol)) > CInt(arr(j, sortCol)) Then ``` Kurz gesagt: In VB.NET 2003 musst du bei einem 2D-Array die **Zeilen manuell sortieren und komplett tauschen**.