' Visual Basic 2008 9.0 .NET Examples - Introduction to Iterations - Introduction to Visual Basic : 
Module Example1
    Sub Main()
        Console.WriteLine(1)
        Console.WriteLine(2)
        Console.WriteLine(3)
        '
        Console.ReadLine()
    End Sub
End Module
Module Example2
    Sub Main()
        Dim value As Integer
        '
        value = value + 1
        Console.WriteLine(value)
        '
        value = value + 1
        Console.WriteLine(value)
        '
        value = value + 1
        Console.WriteLine(value)
        '
        Console.ReadLine()
    End Sub
End Module
Module Example3
    Sub Main()
        Dim value As Integer
        '
        Do While value < 3
            value = value + 1
            Console.WriteLine(value)
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Example4
    Sub Main()
        Dim startValue As Integer = 10
        Dim endValue As Integer = 15
        '
        Dim value As Integer = startValue - 1
        Do While value < endValue
            value = value + 1
            Console.WriteLine(value)
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Exercise1Solution
    Sub Main()
        Dim value As Integer = 21
        '
        Do While value > 10
            value = value - 1
            Console.WriteLine(value)
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Exercise2Solution
    Sub Main()
        Dim base As Integer = 2
        Dim exponent As Integer = 1
        Dim result As Integer = base ^ exponent
        '
        Do While result < 1000
            Console.WriteLine("base : " & base & _
                              ", exponent : " & exponent & _
                              ", result : " & result)
            exponent = exponent + 1
            result = base ^ exponent
        Loop
        '
        Console.ReadLine()
    End Sub
End Module

' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.