求用vb编写下面的程序
按下“开始检测”按钮后,从左边开始,红圆变成逐个绿圆,每一秒钟增加一个绿圆数量
将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作
Timer1.interval = 1000
timer2.interval = 1000
timer3.interval = 1000
timer4.interval = 1000
timer5.interval = 1000
timer6.interval = 1000
timer1.enable = false
timer2.enable = false
timer3.enable = false
timer4.enable = false
timer5.enable = false
timer6.enable = false
End Sub
Private Sub Command1_Click()'相应单击按钮事件
Timer1.enable = ture
End Sub
Private Sub Timer1_Timer()'核心部分
Oval1.Color = Vbgreen
timer2.enable = true
End Sub
Private Sub timer2_Timer()
Oval2.Color = VBgreen
timer3.enable = true
End Sub
Private Sub Timer3_Timer()
Oval3.Color = Vbgreen
timer4.enable = true
end sub
Private Sub Timer4_Timer()
Oval4.Color = Vbgeen
timer5.enable = true
end sub
Private Sub Timer5_Timer()
Oval5.Color = Vbgreen
Timer6.enable = true
end usb
Private Sub Timer6_Timer()
Oval6.Color = Vbgreen
end su
