在窗体上放timer1和text1两个控件，然后添加代码：
Dim a As Boolean

Private Sub Timer1_Timer()
a = a + 1
Text1.Text = a
End Sub

我本以为运行结果会是除了最初一刻a=False外，其余时间都是a=True,但实际情况却不然，而是a的值在闪烁不止。谁能解释一下这是怎么回事儿啊？

[此贴子已经被作者于2006-7-19 6:14:04编辑过]

Dim a As Boolean

Private Sub Timer1_Timer()
a = a + 1 '和数值型相加时自动转化为数值型，当为真时变为-1，为假时变为0
Text1.Text = a
Text2 = CInt(a)
End Sub

Timer1 的时间间隔值（Interval 属性的值）是多少？？？（1秒=1千毫秒）

意思是说只要布尔型变量是非0值，其值就自动转化为-1?
为什么采用了-1而不是1啊，有道理么？
to阿牛不是牛：Interval 我设的是50，怎么了，这有关系么？

Boolean : 2 個字節, 在機器裏初始是 -1,
True+1 後, 該位元組的值爲 0,
再加 1, 該位位元組的值爲 1
....
..
...
...
所以得到的是一個數位