Imports System
Public Module Module1
Public Sub Main()
dim num as integer
while (num < 10)
num = num + 1
Console.WriteLine(num)
end while
End Sub
End Module