Question

vb怎么做简易的交通灯

一运行就开始变换颜色 间隔1秒 怎么破

Answer 1

'窗体上还要添加一个时钟控件。朋友。
Dim i&
Private Sub Form_load()
Timer1.Enabled = True
Timer1.Interval = 1000
Shape1.FillStyle = 0
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i Mod 3 = 1 Then
Shape1.FillColor = vbRed
ElseIf i Mod 3 = 2 Then
Shape1.FillColor = vbBlue
ElseIf i Mod 3 = 0 Then
Shape1.FillColor = vbYellow
End If
End Sub

追问

i = i + 1
If i Mod 3 = 1 Then

这里不明白什么意思能解答一下么