' Visual Basic 2008 9.0 .NET Examples - Logical Shortcircuit Operators AndAlso and OrElse - Introduction to Visual Basic : 
Module Example1
    Sub Main()
        Console.WriteLine("Value 1 ?")
        Dim value1 As Integer = Console.ReadLine()
        '
        Console.WriteLine("Value 2 ?")
        Dim value2 As Integer = Console.ReadLine()
        '
        If value1 > 0 And value2 > 0 Then
            Console.WriteLine("Sum : " & (value1 + value2))
        End If
        '
        Console.ReadLine()
    End Sub
End Module
Module Example2
    Sub Main()
        Console.WriteLine("Value 1 ?")
        Dim value1 As Integer = Console.ReadLine()
        '
        Console.WriteLine("Value 2 ?")
        Dim value2 As Integer = Console.ReadLine()
        '
        If value1 > 0 AndAlso value2 > 0 Then
            Console.WriteLine("Sum : " & (value1 + value2))
        End If
        '
        Console.ReadLine()
    End Sub
End Module
Module Exercise1Solution
    Sub Main()
        Console.WriteLine("Value 1 ?")
        Dim value1 As Integer = Console.ReadLine()
        '
        Console.WriteLine("Value 2 ?")
        Dim value2 As Integer = Console.ReadLine()
        '
        If value1 <> 0 AndAlso Not value2 <> 0 OrElse _
           Not value1 <> 0 AndAlso value2 <> 0 Then
            Console.WriteLine("Sum : " & (value1 + value2))
        End If
        '
        Console.ReadLine()
    End Sub
End Module
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

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