Imports System

Public Module Module1

    Public Sub Main()

        dim o as integer = 1000

        dim sort(o) as integer

        dim r as random = new Random

        for i = 1 to o 

            sort(i) = r.next(1,10000)

        next

​

        for i = 1 to o 

            console.writeline(sort(i))

        next

​

        console.writeline("_-=-_-=-_-=-_-=-_-=-_-=-_")

​

        for i = 1 to o

            dim n as integer = i

            dim temp as integer = 0

            dim _exit as boolean = 0

​

            while n > 0 AND _exit = 0

                if sort(n) < sort(n-1)

                    temp = sort(n-1)

                    sort(n-1) = sort(n)

                    sort(n) = temp

                else

                    _exit = 1

                end if

                n -= 1

            end while

        next

​

        for i = 1 to o 

            console.writeline(sort(i))

        next

​

    End Sub

End Module