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