Question

VB中按“开始“按钮，label中字体颜色每两秒变一次，编码怎样？只有一个按钮，按完按钮才可变。急明天考！

Answer 1

窗体价格timer控件，初始时瞎首设置这个谈戚timer的enable为false
设置timer的interval为2000（2秒）
timer的timer事件中设置label的含神陵颜色
按钮的clicke事件中激活这个timer
设置其eblable为true

Answer 2

Private Sub Command1_Click()
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
Static i As Integer
If i Mod 2 = 0 Then
Label1.ForeColor = vbRed
Else
Label1.ForeColor = vbBlue
End If
i = i + 1
End Sub