Question

用VB设计一个能显示红绿灯倒计时的程序

用VB设计一个能显示红绿灯倒计时的程序，即把红绿灯改为红绿数字相互转换，数字每秒减少1，到0后改变颜色，重新计时

Answer 1

弄个TIMER控件，每秒减一，当=0时，秒数回到10，并且红绿灯换颜色，

Answer 2

Dim b As Boolean
Private Sub Form_Load()
Label1.Caption = 60
Timer1.Interval = 300
Label1.FontSize = 30
Label1.ForeColor = vbGreen
End SubPrivate Sub Timer1_Timer() If b = True Then
Label1.ForeColor = vbRed
Label1.Caption = Val(Label1.Caption) - 1
Else
Label1.ForeColor = vbGreen
Label1.Caption = Val(Label1.Caption) - 1
End If

If Label1.Caption = "0" Then Label1.Caption = "60": b = Not b
End Sub

Answer 3

你把红绿灯的图片发我,在发下效果图,我帮你做.