'Visual Basic 2008/2010 Logische Kortsluitings Operatoren AndAlso en OrElse Boolean Datatype en Booleaanse Logica
Module Exercise2Solution
    Sub Main()
        Dim value, sum As Integer
        '
        ' 'Do While ... Loop' :
        Do While (value > 10 AndAlso value < 20) OrElse _
                 (value > 100) OrElse (value <= 0)
            sum = sum + value
            Console.WriteLine("Value ?")
            value = Console.ReadLine()
        Loop
        '
        '' 'Do Until ... Loop' : version 1 :
        'Do Until Not ((value > 10 AndAlso value < 20) OrElse _
        '              (value > 100) OrElse (value <= 0))
        '    sum = sum + value
        '    Console.WriteLine("Value ?")
        '    value = Console.ReadLine()
        'Loop
        '
        '' 'Do Until ... Loop' : version 2 :
        'Do Until (value <= 10 OrElse value >= 20) AndAlso _
        '         (value <= 100) AndAlso (value > 0)
        '    sum = sum + value
        '    Console.WriteLine("Value ?")
        '    value = Console.ReadLine()
        'Loop
        '
        Console.WriteLine("Sum : " & sum)
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.