Imports System

Public Module Module1

    Public Sub Main()

        dim num as integer

        num = 1

        Console.WriteLine(num)

        while (num < 19)

            num = num + 2

            Console.WriteLine(num)

        end while 

​

    End Sub

End Module