Module Tester Sub Main() Dim product As Integer = 2 Do Until product > 1000 Console.Write("{0} ", product) product = product * 2 Loop Console.WriteLine("Smallest power of 2 " & _ "greater than 1000 is {0}", product) End Sub End Module
2 4 8 16 32 64 128 256 512 Smallest power of 2 greater than 1000 is 1024