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 = RGB(255, 255, 0)Shape11.FillColor = RGB(0, 0, 0)Shape12.FillColor = RGB(0, 0, 0)For i = 0 To 3000000DoEventsNext iShape1.FillColor 。

4、= RGB(0, 0, 0)Shape2.FillColor = RGB(0, 255, 0)Shape3.FillColor = RGB(0, 0, 0)Shape4.FillColor = RGB(0, 0, 0)Shape5.FillColor = RGB(0, 0, 0)Shape6.FillColor = RGB(255, 0, 0)Shape7.FillColor = RGB(0, 0, 0)Shape8.FillColor = RGB(0, 255, 0)Shape9.FillColor = RGB(0, 0, 0)Shape10.FillColor = RGB(0, 0, 0)。

5、Shape11.FillColor = RGB(0, 0, 0)Shape12.FillColor = RGB(255, 0, 0)For i = 0 To 10000000DoEventsNext iShape1.FillColor = RGB(0, 0, 0)Shape2.FillColor = RGB(0, 0, 0)Shape3.FillColor = RGB(255, 255, 0)Shape4.FillColor = RGB(0, 0, 0)Shape5.FillColor = RGB(0, 0, 0)Shape6.FillColor = RGB(255, 0, 0)Shape7.FillColor = RGB(255, 255, 0)Shape8.FillColor = RGB(0, 0, 0)Shape9.FillColor = RGB(0, 0, 0)Shape10.FillColor = RGB(0, 0, 0)Shape11.FillColor = RGB(0, 0, 0)Shape12.FillColor = RGB(255, 0, 0)For i = 0 To 3000000DoEventsNext iWendEnd Sub*上图即为shape控件位置。

总结

以上是生活随笔为你收集整理的vb红绿灯自动切换_VB红绿灯程序的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。