dim x as boolen ,a as integer ;x=-2 a=true ;print x ，a的结果是什么？为什么是这样的

答案是: x=TRUE, a= -1 布尔值非0为真，因此x的值=True VB中TRUE的存储值为-1，False的存储值为0，因此a= -1