Integer-Datenfeld sortieren

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

      Integer-Datenfeld sortieren

      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:

      VB.NET-Quellcode

      1. Function SortArray(ByVal meinArray() As Integer) As Integer()
      2. 'Variablendeklarationen
      3. Dim i, j As Integer
      4. Dim result() As Integer = meinArray
      6. 'In einer Schleife alle Elemente durchgehen, dann mit einer zweiten Schleife alle Elemente ab dem aktuellen Element durchgehen
      7. 'Bei jedem Durchlaufen prüfen oder der Wert kleiner ist als das aktuelle Element der 1. Schleife.
      8. 'Falls ja, mithilfe des Dreieckstausch vertauschen.
      9. For i = 0 To meinArray.Count() - 1
      10. For j = i To meinArray.Count() - 1
      11. If result(j) < result(i) Then
      12. Dim h As Integer = result(j)
      13. result(j) = result(i)
      14. result(i) = h
      15. End If
      16. Next
      17. Next
      19. 'Das Ergebnis zurückgeben
      20. Return result
      21. 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“ ()