|
Module Tester
Sub Main()
Dim array As Integer() = New Integer(9) {}
Dim randomNumber As Random = New Random()
Dim i As Integer
For i = 0 To array.GetUpperBound(0)
array(i) = randomNumber.Next(100)
Console.Write(array(i)& " ")
Next
BubbleSort(array)
Console.WriteLine("")
For i = 0 To array.GetUpperBound(0)
Console.Write(array(i)& " ")
Next
End Sub
Sub BubbleSort(ByVal sortArray As Integer())
Dim pass, i As Integer
For pass = 1 To sortArray.GetUpperBound(0)
For i = 0 To sortArray.GetUpperBound(0) - 1
If sortArray(i) > sortArray(i + 1) Then
Swap(sortArray, i)
End If
Next
Next
End Sub ' BubbleSort
Sub Swap(ByVal swapArray As Integer(), _
ByVal first As Integer)
Dim hold As Integer
hold = swapArray(first)
swapArray(first) = swapArray(first + 1)
swapArray(first + 1) = hold
End Sub ' Swap
End Module
|
