非财务指标的定量化:求救啊!!如何用vb控制三色交通灯进行切换,给代码吧

来源:百度文库 编辑:中科新闻网 时间:2024/05/06 18:41:19
一个按钮控制,在一个灯上显示三种状态,进行切换

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