Imports System
Public Module Module1
Public Sub Main()
Dim i As integer =1
while i<50
console.WriteLine(i)
i=i+1
end while
End Sub
End Module