泡沫排序法使用VB

 

    泡沫排序法那是一個程式設計師剛開始學程式一定要會自己寫的基礎程式，泡沫排序法是把一串未經排序的數字照順序排列的一種方式，初學者一定要學會，而且我去面試的時候有好幾家公司都有考過泡沫排序法，資深程式設計師要寫這個程式當然是輕而易舉的，最近我在讀Visual Basic就練習了這個程式，使用VB寫泡沫排序法的程式碼如下:

 

Module Program
    Sub Main(args As String())
        Dim Numbers() As Integer = {2, 15, 6, 9, 1, 7, 26, 17, 5, 10}
        Dim i, j, temp As Integer

        For i = 0 To 9
            For j = i To 9
                If Numbers(i) > Numbers(j) Then
                    temp = Numbers(i)
                    Numbers(i) = Numbers(j)
                    Numbers(j) = temp
                End If
            Next
        Next

        For i = 0 To 9
            Console.Write(Numbers(i) & " ")
        Next
    End Sub
End Module