Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Sorts the List array in ascending order

Sub BubbleSort(List())     Dim First As Integer, Last As Integer     Dim i As Integer, j As Integer     Dim Temp     First = LBound(List)     Last = UBound(List)     For i = First To Last - 1         For j = i + 1 To Last             If List(i) > List(j) Then                 Temp = List(j)                 List(j) = List(i)                 List(i) = Temp             End If         Next j     Next i End Sub