Question

vb中一个shape控件，一个timer控件，如何根据时间的变化改变颜色，例如5s的时候红色，

5s的倍数的时候都是红色，其余的时候都是绿色！求程序！

Answer 1

Private Sub Form_Load()
Shape1.BackStyle = 1
Shape1.BackColor = vbGreen
End Sub

Private Sub Timer1_Timer()
Static n%
If n = 5 Then
Shape1.BackColor = vbRed
Else
Shape1.BackColor = vbGreen
End If
n = n + 1
If n = 6 Then n = 0
End Sub

Answer 2

Private Sub Timer1_Timer()
If second(day()) mod 5 =0 Then
Shape1.BackColor = vbRed
Else
Shape1.BackColor = vbGreen
End If
End Sub