Hi,
Hier zeige ich, wie man ein Integer-Datenfeld (meinArray) nach dem Bubblesort-Algorithmus sortieren kann.
Ich weiß, es ist nicht besonders schwer, aber für Anfänger vielleicht doch zu gebrauchen
Code:
Ich hoffe, ich konnte damit manchen helfen
LG
Array in meinArray geändert, da Array ein VB.NET Key-Word ist.
Gruss
mikeb69
Hier zeige ich, wie man ein Integer-Datenfeld (meinArray) nach dem Bubblesort-Algorithmus sortieren kann.
Ich weiß, es ist nicht besonders schwer, aber für Anfänger vielleicht doch zu gebrauchen
Code:
VB.NET-Quellcode
- Function SortArray(ByVal meinArray() As Integer) As Integer()
- 'Variablendeklarationen
- Dim i, j As Integer
- Dim result() As Integer = meinArray
- 'In einer Schleife alle Elemente durchgehen, dann mit einer zweiten Schleife alle Elemente ab dem aktuellen Element durchgehen
- 'Bei jedem Durchlaufen prüfen oder der Wert kleiner ist als das aktuelle Element der 1. Schleife.
- 'Falls ja, mithilfe des Dreieckstausch vertauschen.
- For i = 0 To meinArray.Count() - 1
- For j = i To meinArray.Count() - 1
- If result(j) < result(i) Then
- Dim h As Integer = result(j)
- result(j) = result(i)
- result(i) = h
- End If
- Next
- Next
- 'Das Ergebnis zurückgeben
- Return result
- End Function
Ich hoffe, ich konnte damit manchen helfen
LG
Array in meinArray geändert, da Array ein VB.NET Key-Word ist.
Gruss
mikeb69
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mikeb69“ ()