Skip to content
Newer
Older
100755 21 lines (16 sloc) 383 Bytes
3b9d818 @matthewd Whitespace cleanup
authored
1 Option Explicit
2
3 Dim i,j
4 Dim a
5
6 Const MIN = -32
7 Const MAX = 32
8
9 For i = MIN To MAX
10 For j = MIN To MAX
11 a = i & " And " & j & " = " & (i And j)
12 a = i & " Eqv " & j & " = " & (i Eqv j)
13 a = i & " Imp " & j & " = " & (i Imp j)
14 a = i & " Or " & j & " = " & (i Or j)
15 a = i & " Xor " & j & " = " & (i Xor j)
16 Next
17 a = "Not " & i & " = " & (Not i)
18 Next
19 Wscript.Echo ".."
20
Something went wrong with that request. Please try again.