Question

VB程序怎么做交通灯

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Dim n As Integer

Private Sub Command1_Click()

T1.Enabled = True

RED.Visible = True

End Sub

Private Sub T1_Timer()

T1.Enabled = False

T2.Enabled = True

RED.Visible = False

yellow.Visible = True

End Sub

Private Sub T2_Timer()

yellow.Visible = Not yellow.Visible

n = n + 1

If n > 5 Then

    T2.Enabled = False

    T3.Enabled = True

    green.Visible = True

    yellow.Visible = False

    n = 0

End If

End Sub

Private Sub T3_Timer()

T3.Enabled = False

T1.Enabled = True

green.Visible = False

RED.Visible = True

End Sub

追问

这代码写 button1 吗？？

追答

yes

追问

这个代码我不懂

发过程分别吗

追答

给邮箱，发给你全部工程文件

追问

发呀

发呀！

追答

往哪里发？

追问

我的qq邮箱

追答

嗨，说了这半天，你是让我做黑客去偷你的qq邮箱吗？

追问

发这个也行

追答

“这个”是哪个？程序的所有代码都在上面，你又说不懂，那我可以把整个工程文件发给你，你又不给邮箱！

追问

那发吧

vb交通灯摘要写作

写一下吗

VB交通灯实训报告总结怎么写