VB程序设计 交通灯程序设计

恩，先看看有没有用吧，没用的话就不用给我分了……
水木之

Private Sub Command1_Click()
If Image1.Visible = True Then
Image1.Visible = False
Image2.Visible = True
ElseIf Image2.Visible = True Then
Image2.Visible = False
Image3.Visible = True
Else
Image3.Visible = False
Image1.Visible = True
End If
End Sub
Private Sub Form_Load()
leftsecond = Val(15)
Image1(0).Visible = False
Image1(1).Visible = False
End Sub
Private Sub Timer1_Timer()
Text1 = leftsecond Mod 11
leftsecond = leftsecond - 1
If Text1 < 1 And Image1(0).Visible = True Then
Image1(0).Visible = False
Image1(1).Visible = True
Text1 = leftsecond Mod 9
ElseIf Text1 < 1 And Image1(1).Visible = True Then
Image1(1).Visible = False
Image1(2).Visible = True
Else
If Text1 < 1 Then
Image1(2).Visible = False
Image1(0).Visible = True
End If
End If
End Sub

需要的图片自己准备，控件自己看

发到邮箱了
我的信箱是
lcj19930604@sina.com
好了给分啊
ajs2008@163.com也是我发的
好像没发掉

我做完了
给你发邮箱了
http://hi.baidu.com/luobo528/blog/item/5e5c13d77f80bbdfa044df6e.html