用vb设计一个交通信号指挥灯.有红、黄、绿三个指挥灯。

来源：百度知道 编辑：UC知道 时间：2024/06/24 11:02:42
按如下规则发亮：
红灯亮10秒，变黑，接着黄灯亮3秒，然后变黑，最后绿灯亮10后变黑，重复执行这个过程。
提示：用shape控件来制作信号灯，shape控件的fillcolor属性控制填充色，shape控件fillstlye属性需设为”0-solid”，要用三个timer控件。

还没人回答啊,我做一个吧,按你要求,用了三个timer,如果不用timer代码可以更简单
Private intCheck As Integer
Private Sub Form_Load()
Timer1.Enabled = True: Timer1.Interval = 1000
Timer2.Enabled = False: Timer2.Interval = 1000
Timer3.Enabled = False: Timer3.Interval = 1000
Shape1.FillStyle = 0
End Sub

Private Sub Timer1_Timer()
Shape1.FillColor = vbRed
intCheck = (intCheck + 1) Mod 10
If intCheck = 0 Then
Shape1.FillColor = vbBlack
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Shape1.FillColor = vbYellow
intCheck = (intCheck + 1) Mod 3
If intCheck = 0 Then
Shape1.FillColor = vbBlack
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
Shape1.FillColor = vbGreen
intCheck = (intCheck +