有没有人能帮我做道VB的题目啊，程序主体已经写好了，只要填空就行！

来源：百度知道 编辑：UC知道 时间：2024/06/14 00:34:04
题目
编写“自动红绿灯模拟程序”
要求：① 建立五个图象框，其中四个为数组控件，分别放四种不同的灯，另一个为主控灯，显示当前的交通灯。② 建立一个文本框数组控件，并与UpDown控件关联，分别控制三种灯的显示时间。③ 建立两个标签框，其中一个显示当前系统时间，另一个显示当前交通灯的剩余时间。④三个灯的显示时间均为0时或在晚上21点到凌晨2点红黄绿灯全亮。

代码：
Dim i As Integer, Second As __________

Private Sub Form_Load() '隐藏红黄绿灯的图片框
Label2.BackColor = RGB(255, 255, 255) '背景颜色为白色
For i = 0 To 3
Image1(i).Visible = False '各图片框设置为不可见
Next i
i = 2
End Sub

Private Sub Timer1_Timer() '时钟1的Interval初始值为100
i = (i + 1) Mod 3 'i 在0，1，2 三者中循环，0为红，1为绿，2为蓝
If Val(Text1(i)) > 0 Then 'Text1(i)是显示红黄绿三种灯的时间
Second = Text1(i)
Timer1.Interval = ____________________ '根据i设置相应的间隔时间
Image2.Picture = _________________ '根据i显示相应的红黄绿灯
Else
Timer1.Interval = 1

Dim i As Integer, Second As Integer

Private Sub Form_Load() '隐藏红黄绿灯的图片框
Label2.BackColor = RGB(255, 255, 255) '背景颜色为白色
For i = 0 To 3
Image1(i).Visible = False '各图片框设置为不可见
Next i
i = 2
End Sub

Private Sub Timer1_Timer() '时钟1的Interval初始值为100
i = (i + 1) Mod 3 'i 在0，1，2 三者中循环，0为红，1为绿，2为蓝
If Val(Text1(i)) > 0 Then 'Text1(i)是显示红黄绿三种灯的时间
Second = Text1(i)
Timer1.Interval = Second * 1000 '根据i设置相应的间隔时间
Image2.Picture = Image1(i).Picture '根据i显示相应的红黄绿灯
Else
Timer1.Interval = 1 '该灯的显示时间为0时跳过不处理
If Val(Text1(0)) = 0 And Val(Text1(1)) = 0 And Val(Text1(2)) = 0 Then
Image2.Picture = Image1(3).Picture '如果显示时间全为0，红黄绿灯全亮
Label2.Visible = False '隐藏剩余时间标签框
End If
End If
End Sub

Private Sub Timer2_Timer() '时钟2每100ms产生一次事件
Dim str As String
str = Time$
Label1.Caption = str '显示当前的系统时间

' 红 黄 绿