ASP Bubble Sort Routine



Private Sub BubbleSort (anArray)

Dim Exchange 'As Boolean
Dim Temp 'As Variant
Dim ii 'As Integer

Exchange = true
While Exchange

   Exchange = False

   ii = UBound(anArray) - 1
   While ii > 0
      If anArray(ii - 1) > anArray(ii) Then
         Temp = anArray(ii - 1)
         anArray(ii - 1) = anArray(ii)
         anArray(ii) = Temp
         Exchange = True
      End If
      ii = ii - 1
   Wend

   ii = 1
   While ii <= UBound(anArray) - 1
      If anArray(ii - 1) > anArray(ii) Then
         Temp = anArray(ii - 1)
         anArray(ii - 1) = anArray(ii)
         anArray(ii) = Temp
         Exchange = True
      End If
      ii = ii + 1
   Wend
Wend

End Sub
Hosted by www.Geocities.ws