Dim i As Integer, j As Integer
Private Sub Form1_Load()
i = o
For j = 0 To 11
Label1(j * 3).ForeColor = RGB(0, 255, 0)
Label1(j * 3).ForeColor = RGB(0, 0, 255)
Label1(j * 3).ForeColor = RGB(255, 0, 0)
Next j
End Sub
Private Sub Timer1_Timer()
If i = 36 Then
i = 0
End If
i = i + 1
For j = 0 To 35
Label1(j).Visible = False
Next j
If i Mod 3 = 2 Then
For j = 0 To 11
Label1(j * 3 + 2).Visible = True
Next j
Else
If i Mod 3 = 1 Then
For j = 0 To 11
Label(j * 3 + 2).Visible = True
Next j
Else
For j = 0 To 11
Label1(j * 3).Visible = True
Next j
End If
End If
End Sub
參考答案:For j = 0 To 11
Label1(j * 3).ForeColor = RGB(0, 255, 0)
Label1(j * 3 + 1).ForeColor = RGB(0, 0, 255)
Label1(j * 3 + 2).ForeColor = RGB(255, 0, 0)
Next j
是不是要这样?