漫遊於歷史與現代之間

兩兩相比版

Module Module1
    Sub Main()
        Dim x(4) As Integer
        Dim i, j As Integer
        Dim temp As Integer

        For i = 0 To 4
            x(i) = Console.ReadLine()
        Next

        For j = 0 To 3
            For i = 0 To 3
                If x(i) > x(i + 1) Then
                    temp = x(i)
                    x(i) = x(i + 1)
                    x(i + 1) = temp
                End If
            Next
        Next

        For i = 0 To 4
            Console.WriteLine(x(i))
        Next

        Console.ReadKey()
    End Sub
End Module

一比全部版

Module Module1
    Sub Main()
        Dim x(4) As Integer
        Dim i, j As Integer
        Dim temp As Integer

        For i = 0 To 4
            x(i) = Console.ReadLine()
        Next

        For j = 0 To 3
            For i = j To 3
                If x(j) > x(i + 1) Then
                    temp = x(j)
                    x(j) = x(i + 1)
                    x(i + 1) = temp
                End If
            Next
        Next

        For i = 0 To 4
            Console.WriteLine(x(i))
        Next

        Console.ReadKey()
    End Sub
End Module