Question

窗体上有1个名为Text1的文本框和一个名为Timer1的计时器空间,其Interval属性值为5000

窗体上有1个名为Text1的文本框和一个名为Timer1的计时器空间,其Interval属性值为5000，Eable属性值是Ture.timer1的时间过程如下：

Priinvate Sub Timer1-Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag= 1 Then
Text1.ForeColor=&HFF&
Else
Text.1ForeColor=&c000&
End If
End Sub
程序执行后文本框的文字每5秒改变一次颜色。
请问这个flag是什么，是变量吗。它的值是怎么变化的。初始值是0吗。

Answer 1

是变量。而且是静态变量。它在过程内部定义，一旦定义，其在重新定义时，原来的值保持不变。
............................
Static flag As Integer
Static：用于定义静态变量
flag As Integer：被定义为　Integer类其初始值为0
...........................
If flag=0 Then flag=1‘如果值为0，就等于1
flag=-flag’取反
If flag= 1 Then‘如果为1，就……
Text1.ForeColor=&HFF&
Else ’如果不为1，就是-1，则……
Text.1ForeColor=&c000&
End If
..............
flag的值总是在正负1两者之间摆动。
............
　　　　　　　　张志晨

Answer 2

flag是一个静态变量，虽然是在过程内部声明的，但是过程执行完后，变量所占内存还会保留，下次执行过程时，不会重新分配内存，会使用已有的值，所以初始值是0，第一次执行的时候会变成1，之后就在1和-1之间变换。