Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Hello World")
dim Num(7) as integer
dim x as integer
dim Holder as integer
dim Count as integer
dim Limit as integer
Num(1) = 10
Num(2) = 3
Num(3) = 20
Num(4) = 9
Num(5) = 7
Num(6) = 44
Num(7) = 2
Count = 1
Limit = 7
do
for x = 1 to 7
if Num(Count) > Num(Count + 1) then
Holder = Num(1)
Num(1) = Num(2)
Num(2) = Holder
Count = Count + 1
end if
next x
loop until Count = Limit
console.writeline(Num(x))
End Sub
End Module
