BubbleSort Sorting Algorithm
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.
VB Code:
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