求逻辑函数的真值表

实验一 求逻辑函数的真值表

一、 任务

编写代码打印下列逻辑函数的真值表

二、 代码

Private Sub cmdDone_Click() '本过程计算真值表

Print " A", "B", "C", "F" '打印真值表表头

For A = 0 To 1 'A,B,C 分别从0到1进行循环，恰好表示“假”和“真”

For B = 0 To 1

For C = 0 To 1

F = Not ((Not ((Not (A And B)) And C)) Or (Not (((Not A) And (Not B)) Or C))) '计算逻辑函数的值 Print '打印一个空行，使图表清晰

Print A, B, C, F '打印A,B,C 和F 的值

Next

Next

Next

End Sub

三、运行结果

四、作业

用代码求出下列函数的真值表

C

B A

C AB F ++∙=C B AC

D C A B A F +++=