Imports System

Public Module Module1

    Public Sub Main()

        Dim aNs(9) as integer

        aNs(0) = 2

        aNs(1) = 12

        aNs(2) = 11

        aNs(3) = 15

        aNs(4) = 64

        aNs(5) = 95

        aNs(6) = 8

        aNs(7) = 53

        aNs(8) = 83

        aNs(9) = 32

        Dim nLastunsorted as integer

        Dim iTemp as integer

        For i = 0 to 8

        nLastunsorted = 8

        For j = 0 to nLastunsorted

        If aNs(j)>aNs(j+1) Then

            iTemp = aNs(j)

            aNs(j) = aNs(j+1)

            aNs(j+1) = iTemp

            End if      

    Next

        nLastunsorted = 1

    Next

    End Sub

End Module