代码为:Option Explicit
Private I As Integer, J As Integer
Private Sub Form_Load()
I = 0
For J = 0 To 9
Label1(J * 3).ForeColor = &HFF&
Label1(J * 3 + 1).ForeColor = &HFF00&
Label1(J * 3 + 2).ForeColor = &HFFFF&
Next J
End Sub
Private Sub Timer1_Timer()
If I = 30 Then
I = 0
End If
I = I + 1
For J = 0 To 29
Label1(J).Visible = False
Next J
If I Mod 3 = 2 Then
For J = 0 To 9
Label1(J * 3 + 1).Visible = True
Next J
Else
If I Mod 3 = 0 Then
For J = 0 To 9
Label1(J * 3 + 2).Visible = True
Next J
Else
For J = 0 To 9
Label1(J * 3).Visible = True
Next J
End If
End If
End Sub