Imports System
Public Module Module1
Public Sub Main()
Dim pass as Integer = 0
dim x as Integer = 0
dim y as integer = 1
dim temp as integer
Dim numbers = New Integer() {10, 9, 5, 4, 2, 7, 5, 8, 3, 1}
While pass < 100
For Count = 0 to 9
if numbers(x) > numbers(y)
temp = numbers(x)
numbers(x) = numbers(y)
numbers(y) = temp
else
pass = pass + 1
end if
x = x + 1
y = y + 1
if y > 9 then
y = 9
console.writeline(numbers(count))
next
console.writeline("Next Pass")
y = 1
x = 0
End While
End Sub
End Module