Module Tester Sub Main() Dim counter As Integer = 1 Do Console.Write(counter & " ") counter += 1 Loop While counter <= 5 End Sub End Module
1 2 3 4 5