'|            AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins „ä”ö�üáߎę֚Üñ±¸©ø°|
'Per #define legen wir erstmal einen neuen Datentyp fest
#define Real Single
'Option Explicit 'war unter fb016b eine sinnvolle Sache
Const MaxMat=7 'diese Konstante gilt für das ganze Programm
Dim Feld(MaxMat) As Real 'Das Array Feld nimmt die Matrix auf
Var i=0 'Eine Integer-Variable zur Schleifensteuerung

Sub BubbleSort(Tipp() As Real, byVal Wie As String=">")
  Var i=0, j=0, l=LBound(Tipp), u=UBound(Tipp)
  For i=l To u 'vom Anfang der Schleife bis zu ihrem Ende
    For j=i To u
      If IIF(Wie=">", Tipp(i)>Tipp(j), Tipp(i)<Tipp(j)) Then Swap Tipp(i), Tipp(j) 'je nach gewählter Richtung werden die Elemente getauscht
    Next
  Next
End Sub

Sub MatOut(Tipp() As Real) 'Gibt die Matrix aus
  Var i=0 'Schleifenzähler
  For i=LBound(Tipp) To UBound(Tipp) 'vom Anfang der Schleife bis zu ihrem Ende
    Print Tipp(i) 'Element ausgeben
  Next 'nächstes Element
End Sub '..und Ende

Randomize Timer 'den Zufallszahlengenerator mit einem zeitabhängigen Wert initialisieren
For i=LBound(Feld) To UBound(Feld) 'vom Anfang der Schleife bis zu ihrem Ende
  Feld(i)=Rnd 'eine Zufallszahl erzeugen
Next ' nächstes Element

BubbleSort(Feld()) 'und sortieren, aufwärts ist default
Print "Aufw„rts"
MatOut(Feld()) 'sortierte Matrix ausgeben..

BubbleSort(Feld(), "<") 'und sortieren, diesmal aber abwärts
Print "Abw„rts"
MatOut(Feld()) 'sortierte Matrix ausgeben..
GetKey 'auf Tastendruck warten, ohne TastaturPuffer
End 'eigentlich nicht erforderlich, aber guter Stil :D