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