问题提出：

（梦的边缘（注意：不是梦想的边缘哦，^_^））

Private Sub Form_Click()
    Dim sum As Integer, i As Integer, j As Integer
    sum = 0
    For i = 0 To 1
        sum = sum + 1
        For j = 0 To 3
            If Not (j Mod 2) Then sum = sum + 1
        Next j
    Next i
    Print "sum="; sum
End Sub
运行结果为什么是sum=10,而不是sum=6

答：

这是一道比较精巧的题目！

首先我们先看一下：

Print Not (0),Not(-1),Not(1)

运行结果是什么。

估计一部分网友会做成：

0,-1,1转换成布尔型，分别为false,true,true

因此结果为：true  false  false

但是实际上运行结果为：

-1  0  -2

为什么呢？

原来这个是Not的特殊用法。

当Not后为数值型时，先自动四舍五入后，做位运算。

以Not(0)为例，

0二进制为：00000000,则Not(0)将对该二进制取反，

为:11111111，首位为1，为负数，

则求补码11111111表示的数是多少。

由补码求该负数绝对值的原码，规则为：减一，各位取反。

得：00000001即为1。

因此11111111为-1的补码。

即：Not(0)为-1。

同理：

Not(-1)  -1为：11111111各位取反：00000000 为：0

Not(1)     1为：00000001各位取反：11111110 为：-2

因此如果明白Not位运算这个规则，那么对于

For j = 0 To 3
            If Not (j Mod 2) Then sum = sum + 1
Next j

我们知道，在j四次循环期间，if条件总是满足的，因此sum加一加了四次。

综合原理分析，sum=10

备注：

And和Or同样可以用于位运算，

和Not不同的是，Not是单目运算符，而And和Or是双目运算符。

譬如：

print 1 and 2 结果为：0

因为：00000001 and 00000010 逐位对应运算，均为1时才为1，

因此为：00000000 所以为0。

print 1 or 2 结果为：3

因为：00000001 or 00000010 逐位对应运算，有一个为1就为1，

因此为：00000011 对应十进制为3。