vb红绿灯自动切换_VB红绿灯程序

《VB红绿灯程序》由会员分享，可在线阅读，更多相关《VB红绿灯程序(4页珍藏版)》请在人人文库网上搜索。

1、VB红绿灯演示Private Sub Command1_Click()While (1)Shape1.FillColor = RGB(255, 0, 0)Shape2.FillColor = RGB(0, 0, 0)Shape3.FillColor = RGB(0, 0, 0)Shape4.FillColor = RGB(0, 0, 0)Shape5.FillColor = RGB(0, 255, 0)Shape6.FillColor = RGB(0, 0, 0)Shape7.FillColor = RGB(0, 0, 0)Shape8.FillColor = RGB(0, 0, 0)Shap。

2、e9.FillColor = RGB(255, 0, 0)Shape10.FillColor = RGB(0, 0, 0)Shape11.FillColor = RGB(0, 255, 0)Shape12.FillColor = RGB(0, 0, 0)For i = 0 To 10000000DoEventsNext iShape1.FillColor = RGB(255, 0, 0)Shape2.FillColor = RGB(0, 0, 0)Shape3.FillColor = RGB(0, 0, 0)Shape4.FillColor = RGB(255, 255, 0)Shape5.F。

3、illColor = RGB(0, 0, 0)Shape6.FillColor = RGB(0, 0, 0)Shape7.FillColor = RGB(0, 0, 0)Shape8.FillColor = RGB(0, 0, 0)Shape9.FillColor = RGB(255, 0, 0)Shape10.FillColor =