28 lines
655 B
Plaintext
28 lines
655 B
Plaintext
' FB 1.05.0 Win64
|
|
|
|
Sub logicalDemo(b1 As Boolean, b2 As Boolean)
|
|
Print "b1 = "; b1
|
|
Print "b2 = "; b2
|
|
Print "b1 And b2 = "; b1 And b2
|
|
Print "b1 Or b2 = "; b1 Or b2
|
|
Print "b1 XOr b2 = "; b1 Xor b2
|
|
Print "b1 Eqv b2 = "; b1 Eqv b2
|
|
Print "b1 Imp b2 = "; b1 Imp b2
|
|
Print "Not b1 = "; Not b1
|
|
Print "b1 AndAlso b2 = "; b1 AndAlso b2
|
|
Print "b1 OrElse b2 = "; b1 OrElse b2
|
|
Print
|
|
End Sub
|
|
|
|
Dim b1 As Boolean = True
|
|
Dim b2 As Boolean = True
|
|
logicalDemo b1, b2
|
|
b2 = False
|
|
logicalDemo b1, b2
|
|
b1 = False
|
|
logicalDemo b1, b2
|
|
b2 = True
|
|
logicalDemo b1, b2
|
|
Print "Press any key to quit"
|
|
Sleep
|