Imports System

Public Module Module1

    Public Sub Main()

       dim number as integer

        do while number ＜50

            number＝number+1

 Console.WriteLine("your number is"&number)

            loop

    End Sub

End Module