'Visual Basic 2010 Herhalingen met Do While ... Loop Basisstructuren van Algoritmes
Module SequenceExample1
    Sub Main()
        Console.WriteLine(1)
        Console.WriteLine(2)
        Console.WriteLine(3)
        '
        Console.ReadLine()
    End Sub
End Module
Module SequenceExample2
    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 DoWhileLoopExample1
    Sub Main()
        Dim value As Integer
        '
        Do While value < 3
            value = value + 1
            Console.WriteLine(value)
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module DoWhileLoopExample2
    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
Module Exercise2Solution
    Sub Main()
        Console.Write("Multiples of ... ? : ")
        Dim baseValue As Integer = Console.ReadLine()
        '
        Dim factor As Integer = 1
        Dim multiple As Integer = baseValue * factor
        Do While multiple < 100
            Console.WriteLine(baseValue & " x " & factor & " = " & multiple)
            factor = factor + 1
            multiple = baseValue * factor
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.