比如说red表示红灯图片,green表示绿灯图片,yellow表示黄灯图片,使用三个计时器控件,在属性窗口设其interval属性为30000,10000,30000(因为是毫秒计时的,这三个数字分别表示绿灯亮30秒,黄灯亮10秒,红灯亮30秒),然后则可以编写如下代码private sub form_load() '开启一个计时器,并且显示绿灯timmer1.enabled=truetimer2.enabled =falsetimer3.enabled=falsegreen.v**ible=trueyello.v**ible=falsered.v**ible=falseend subprivate sub timer1_timer() '过30秒后显示黄灯timmer1.enabled=falsetimer2.enabled =truetimer3.enabled=falsegreen.v**ible=falseyello.v**ible=truered.v**ible=falseend subprivate sub timer2_timer() ’过10秒显示红灯timmer1.enabled=falsetimer2.enabled =falsetimer3.enabled=truegreen.v**ible=falseyello.v**ible=falsered.v**ible=trueend subprivate sub timer3_timer() ,过30秒显示绿灯timmer1.enabled=truetimer2.enabled =falsetimer3.enabled=falsegreen.v**ible=trueyello.v**ible=falsered.v**ible=falseend sub 20210311