VB编写红绿灯切换小程序

1、打开VB界面，建立标准EXE工程。

2、利用图形控件在窗体上画上三个圆，并涂上红色，黄色，绿色。名称分别改为S1，S2，S3。

3、在窗体上建立两个命令按钮，caption分别改为切换红绿灯，退出。名称改为A，B。

4、点击窗体，进入代码编辑器。

S2.Visible = False

 

S3.Visible = False

5、点击切换红绿灯按钮，进入代码编辑器。

If S1.Visible = True Then

S2.Visible = True

 

S1.Visible = False

 

ElseIf S2.Visible = True Then

 

S3.Visible = True

 

S2.Visible = False

 

S1.Visible = False

 

Else

 

S1.Visible = True

 

S3.Visible = False

 

S2.Visible = False

 

End If

6、点击退出按钮，进入代码编辑器，

end

7、现在运行测试一下，

8、点击切换红绿灯，

9、按退出按钮退出。