Imports System

Public Module Module1

    Public Sub Main()

        dim i as integer = 1

       while i <50 

     Console.writeline(i)

      i+=1

     End while

    End Sub

End Module