Bubble Sort




Sub Main()
    Arr1 = Array(1, 3, 5, 58, 4, 65, 47, 15, 34, 66, 98, 74, 61)
    Call BubbleSort(Arr1)
End Sub
Sub BubbleSort(ByRef Array1)
    For i = 0 To UBound(Array1) - 2
        For j = 0 To UBound(Array1) - 1
            If Array1(j) > Array1(j + 1) Then
                Temp1 = Array1(j)
                Array1(j) = Array1(j + 1)
                Array1(j + 1) = Temp1
            End If
        Next
    Next
End Sub