Option Explicit
Sub logischeOperatoren()
    'Dies ist ein Testprogramm fuer logische
    'Operatoren
    'Dateiname: logOperatoren
    Dim i%
    Dim j%
    Dim k%
    Dim l%
    i = 1
    j = 1
    k = 3
    l = 4
    Dim ergebnis As Boolean
    ergebnis = (i = j) And (k < l)
    MsgBox ("(1 = 1) And (3 < 4) " & ergebnis)
    ergebnis = (i < j) And (k < l)
    MsgBox ("(1 < 1) And (3 < 4) " & ergebnis)
    ergebnis = (i = j) Or (k < l)
    MsgBox ("(1 = 1) Or (3 < 4) " & ergebnis)
    ergebnis = (i > j) Or (k = l)
    MsgBox ("(1 > 1) Or (3 = 4) " & ergebnis)
    ergebnis = (i = j) Xor (k < l)
    MsgBox ("(1 = 1) Xor (3 < 4) " & ergebnis)
    ergebnis = Not (i = j)
    MsgBox ("Not (1=1) " & ergebnis)
End Sub