' Doubling Example

' Use a Do loop to start at 1 and repeatedly double the value.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim n As Integer

        n = 1
        Do While n <= 100
            Write(n & " ")
            n = n * 2
        Loop
        WriteLine()
        ReadLine()
    End Sub

End Module