BubbleSort Sorting Algorithm

[plenderj]

Here's an algotithm, called the BubbleSort Algorithm.
It can be used for sorting numbers, strings, or whatever else can be compared using VB's comparative operators.



Option Explicit

Private Function sortInts(arrInt() As Long) As Long()
Dim i As Long, n As Long, tempN As Long, allOk As Boolean
For n = 0 To UBound(arrInt)
allOk = True
For i = 0 To UBound(arrInt) - 1
If arrInt(i) > arrInt(i + 1) Then
allOk = False
tempN = arrInt(i)
arrInt(i) = arrInt(i + 1)
arrInt(i + 1) = tempN
End If
Next
If allOk Then Exit For
Next
sortInts = arrInt
End Function

Private Sub Form_Load()
Dim x() As Long, i As Long

'' redimension array to 100 values
''
ReDim x(99)

'' now fill with random data
''
For i = 0 To 99
x(i) = CLng(Rnd * 1000)
Next

'' now sort the array
''
x = sortInts(x)

'' display the data
For i = 0 To UBound(x)
Debug.Print x(i)
Next
End Sub

[plenderj]

* 21-October-2004 - Moved to CodeBank *