|
Ich bin grade am lernen für mein Fachabitur Technik und da bin ich auf folgendes Problem gestoßen auf das ich einfach keine Antwort finden kann:
Die Funktion soll im Zuge eines Programmupdates modifiziert werden. Bislang sortiert die Funktion ein eindimensionales Array alphanumerisch aufwärts. In Zukunft soll die Funktion mittels eines weiteren Eingangsparameters (bolDirection) entweder aufwärts oder abwärts sortieren.
bolDirection = False (aufwärts sortieren) bolDirection = True (abwärts sortieren)
Beschreiben Sie die notwendigen Änderungen. Die Beschreibung kann in Worten, mit Hilfe eines Struktogramms/PAPs oder als Ergänzung des Quelltextes erfolgen.
Option Explicit
Dim i, j As Integer
Dim arrTemp As Variant
Function bubblesort(arrSortieren)
For i = 0 To UBound(arrSortieren) ‘Anfang einer Schleife mit for next
For j = i + 1 To UBound(arrSortieren)
Debug.Print "Inhalt der Variablen i und j -> "; i & ", " & j
If arrSortieren(i) > arrSortieren(j) Then
arrTemp = arrSortieren(i)
arrSortieren(i) = arrSortieren(j)
arrSortieren(j) = arrTemp
End If
Next j
Next i
bubblesort = arrSortieren
End Function
Für Hilfe wäre ich sehr dankbar!
|