Question

求用VB做一个模拟交通灯程序，要简单点的，别太复杂，做好帮我运行一遍，前提必须运行正确。谢谢~~~~

求用VB做一个模拟交通灯程序，要简单点的，别太复杂，做好帮我运行一遍，前提必须运行正确。谢谢~~~~

Answer 1

不管有没有分,我都会试着帮一把:
这个程序的原理是利用Timer每1秒更换shape的FillColor:

我正在上电脑课,怕被老师发现,就只写了最简单的:

画一个shape,timer,然后填入下列代码就Ok了:
Dim a As Integer

Private Sub Form_Load()
a = "0"

With Shape1
.Shape = 3
.FillColor = vbRed
End With
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If Shape1.FillColor = vbRed Then
Shape1.FillColor = vbGreen
ElseIf Shape1.FillColor = vbGreen Then
Shape1.FillColor = vbYellow
ElseIf Shape1.FillColor = vbYellow Then
Shape1.FillColor = vbRed
End If
Exit Sub

End Sub

Answer 2

参看：http://z.baidu.com/question/213421891.html
没分，记得给个好评价啊

Answer 3

呵呵 大傻 等级考试教材上的例题 没看吗？ 楼上的说得对 你出多少银子？ 没一点悬赏分

Answer 4

LZ你出多少银子？