Option Explicit
Sub verifizierung_d()
'Testprogramm fuer die Not-Wertetabelle
'Dateiname: aufgabe4c
 
    dim a As Boolean
    dim ergebnis As Boolean
 
     a=true
     ergebnis = Not a
     MsgBox ("Not true: " & ergebnis) 
     
     a=false
     ergebnis = Not a
     MsgBox ("Not false " & ergebnis)      
     
end Sub        
 
Sub verifizierung_c()
'Testprogramm fuer die Xor-Wertetabelle
'Dateiname: aufgabe4c
 
    dim a As Boolean
    dim b As Boolean
    dim ergebnis As Boolean
 
     a=true
     b=true
     ergebnis = a Xor b
     MsgBox ("true Xor true: " & ergebnis) 
     
     a=true
     b=false
     ergebnis = a Xor b
     MsgBox ("true Xor false: " & ergebnis) 
     
     a=false
     b=true
     ergebnis = a Xor b
     MsgBox ("false Xor true: " & ergebnis) 
     
     a=false
     b=false
     ergebnis = a Xor b
     MsgBox ("false Xor false: " & ergebnis) 
     
end Sub