'Visual Basic 2010 Beslissingen met If ... Else ... End If Basisstructuren van Algoritmes
Module IfElseEndIfExample
    Sub Main()
        Console.WriteLine("Value ?")
        Dim value As Integer = Console.ReadLine()
        '
        If value Mod 2 = 0 Then
            Console.WriteLine("Half of " & value & " is " & value / 2 & ".")
        Else
            Console.WriteLine("Double of " & value & " is " & value * 2 & ".")
        End If
        '
        Console.ReadLine()
    End Sub
End Module
Module IfElseEndIfExercise1
    Sub Main()
        Dim value As Integer
        '
        Console.WriteLine("Value ?")
        value = Console.ReadLine()
        '
        If value = 0 Then
            Console.WriteLine("Zero.")
        Else
            Console.WriteLine("Value " & value & " is not equal to zero.")
        End If
        '
        Console.ReadLine()
    End Sub
End Module
Module IfElseEndIfExercise2
    Sub Main()
        Console.Write("Dividend ? : ")
        Dim dividend As Integer = Console.ReadLine()
        '
        Console.Write("Divisor ? : ")
        Dim divisor As Integer = Console.ReadLine()
        '
        If divisor <> 0 Then
            Dim quotient As Integer = dividend / divisor
            Console.WriteLine("Quotient : " & quotient)
        Else
            Console.WriteLine("Dividing by zero is not allowed.")
        End If
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.