查人人中国名人网身宽体胖:vb程序-交通信号灯
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 14:45:04
请问那位高手会用VB程序设计一交通灯
一个按钮控制，在一个灯上显示三种状态，进行切换,供参考：
Option Explicit
Dim a As Byte
Private Sub Command1_Click()
a = a + 1
If a = 1 Then
Shape1.FillColor = vbRed
ElseIf a = 2 Then
Shape1.FillColor = vbYellow
ElseIf a = 3 Then
Shape1.FillColor = vbGreen
ElseIf a = 4 Then
Shape1.FillColor = vbYellow
ElseIf a > 4 Or a = 1 Then
a = a - 4
Shape1.FillColor = vbRed
End If
End Sub