VB6.0程序设计题 红绿灯提示

Question

程序启动后信号灯为绿色。灯下用绿色文字显示“绿灯行”3秒钟，接着信号灯变为黄色，用黄色文字显示“注意”2秒钟，然后信号灯变为红色，用红色文字显示“红灯停”3秒钟，最后信号灯又变为黄色，用黄色文字显示“注意”2秒钟。然后再重新开始下一轮“绿灯行”、“注意”、“红灯停”的显示。提示：1、信号灯使用形状控件（shape）来表示，在窗体的LOAD事件编写如下程序：Private Sub Form_Load() Label1.Caption = "绿灯行" Label1.ForeColor = vbGreen Shape1.Shape = 3 Shape1.FillStyle = 0 Shape1.FillColor = vbGreenEnd Sub2、编写事件过程Timer1_Timer，定义一个窗体级或静态变量统计时间，计时为1-3秒时显示“绿灯行”、4-5秒时显示“注意”、6-8秒时显示“红灯停”、9-10秒时显示“注意” ，然后然后计时变量清零，重新计时。

Answer 1

Option Explicit
Dim T As Integer
Private Sub Form_Load()
Label1.Caption = "绿灯行"
Label1.ForeColor = vbGreen
Shape1.Shape = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbGreen
Label1.ForeColor = vbGreen
Label1.FontSize = 18
Timer1.Interval = 1000
T = 0
End SubPrivate Sub Timer1_Timer()
T = T + 1
Select Case T
Case 1 To 3:
Shape1.FillColor = vbGreen
Label1.Caption = "绿灯行"
Label1.ForeColor = vbGreen
Shape1.Shape = 3
Case 4 To 5:
Shape1.FillColor = vbYellow
Label1.ForeColor = vbYellow
Label1.Caption = "注意"
Case 6 To 8:
Shape1.FillColor = vbRed
Label1.ForeColor = vbRed
Label1.Caption = "红灯停"
Case 9 To 10:
Shape1.FillColor = vbYellow
Label1.ForeColor = vbYellow
Label1.Caption = "注意"
T = 0
End Select
End Sub

Answer 2

Dim n As IntegerPrivate Sub Form_Load()
n = 0
Timer1.Interval = 1000
Label1.Caption = "绿灯行"
Label1.ForeColor = vbGreen
Shape1.Shape = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbGreen
Label2.Caption = "3"
Label2.Alignment = 1
Label2.ForeColor = vbGreen
End Sub
Private Sub Timer1_Timer()
n = n + 1
Select Case n
Case 0, 1, 2
Label1.Caption = "绿灯行"
Label1.ForeColor = vbGreen
Shape1.Shape = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbGreen
Label2.Caption = Str(3 - n)
Label2.ForeColor = vbGreen
Case 3, 4
Label1.Caption = "注意"
Label1.ForeColor = vbYellow
Shape1.Shape = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbYellow
Label2.Caption = Str(5 - n)
Label2.ForeColor = vbYellow
Case 5, 6, 7
Label1.Caption = "红灯停"
Label1.ForeColor = vbRed
Shape1.Shape = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbRed
Label2.Caption = Str(8 - n)
Label2.ForeColor = vbRed
Case 8
Label1.Caption = "绿灯行"
Label1.ForeColor = vbGreen
Shape1.Shape = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbGreen
Label2.Caption = "3"
Label2.ForeColor = vbGreen
Form_Load
End Select
End Sub