在窗体上放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编辑过]

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