VB的题,高手来

来源：百度知道 编辑：UC知道 时间：2024/09/18 06:42:32
谁会用VB编红绿灯问题，我刚来，没有分了
就是一个红绿灯 红灯为30秒，绿灯为30秒。黄灯为3秒
用VB来写，谢谢

不知道你是不是这个意思，在窗体上加一个timer，inteval设置为1000，一个label，caption设置为红灯，下面代码进行了一个简单的模拟

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1

If i = 3 Then
Label1.Caption = "黄灯"
ElseIf i = 5 Then
Label1.Caption = "绿灯"
ElseIf i = 8 Then
i = 0
Label1.Caption = "红灯"
End If

End Sub

说清楚点啊.