' Bubblesort oder ShellSort
 
dim sortiert as Boolean
do
 sortiert = True
 For j = 1 To 6
  If a(i) < a(j) Then
   sortiert = False
   tmp = a(i)
   a(i) = a(j)
   a(j) = tmp
  End If  
 Next
 ' Ist das Array also bereits sortiert, endet die Schleife 
while until sortiert
 
 
Sub BubbleSortNumbers(iArray As Variant)
  Dim lLoop1 As Long
  Dim lLoop2 As Long
  Dim lTemp As Long
 
  startTime = Time()
  For lLoop1 = UBound(iArray) To LBound(iArray) Step -1
    For lLoop2 = LBound(iArray) + 1 To lLoop1
      If iArray(lLoop2 - 1) > iArray(lLoop2) Then
        lTemp = iArray(lLoop2 - 1)
        iArray(lLoop2 - 1) = iArray(lLoop2)
        iArray(lLoop2) = lTemp
      End If
    Next lLoop2
  Next lLoop1
  endTime = Time()
  timeToSort = endTime - startTime
  timeTaken = "Bubble Sort: " & timeToSort
End Sub
 
Sub SelectionSortNumbers(vArray As Variant)
  Dim lLoop1 As Long
  Dim lLoop2 As Long
  Dim lMin As Long
  Dim lTemp As Long
 
  startTime = Time()
  For lLoop1 = LBound(vArray) To UBound(vArray) - 1
    lMin = lLoop1
      For lLoop2 = lLoop1 + 1 To UBound(vArray)
        If vArray(lLoop2) < vArray(lMin) Then lMin = lLoop2
      Next lLoop2
      lTemp = vArray(lMin)
      vArray(lMin) = vArray(lLoop1)
      vArray(lLoop1) = lTemp
  Next lLoop1
  endTime = Time()
  timeToSort = endTime - startTime
  timeTaken = timeTaken & ";   Selection Sort: " & timeToSort
End Sub
 
Sub ShellSortNumbers(vArray As Variant)
  Dim lLoop1 As Long
  Dim lHold As Long
  Dim lHValue As Long
  Dim lTemp As Long
 
  startTime = Time()
  lHValue = LBound(vArray)
  Do
    lHValue = 3 * lHValue + 1
  Loop Until lHValue > UBound(vArray)
  Do
    lHValue = lHValue / 3
    For lLoop1 = lHValue + LBound(vArray) To UBound(vArray)
      lTemp = vArray(lLoop1)
      lHold = lLoop1
      Do While vArray(lHold - lHValue) > lTemp
        vArray(lHold) = vArray(lHold - lHValue)
        lHold = lHold - lHValue
        If lHold < lHValue Then Exit Do
      Loop
      vArray(lHold) = lTemp
    Next lLoop1
  Loop Until lHValue = LBound(vArray)
  endTime = Time()
  timeToSort = endTime - startTime
  timeTaken = timeTaken & ";   Shell Sort: " & timeToSort
End Sub