当逻辑值赋给数值型变量时，true转换为-1，false转换为0；当数值型赋给逻辑型变量时，非零转换true，0转换为false。
你可以用CBool()与CDbl()函数啊 ， 比如CBool(-1)=true CDbl(false)=0CBool是将数值转化为逻辑值 CDbl是将逻辑值转化为数值
0106-逻辑值（TRUE和FALSE）与数值的关系及转换
