人生本是一个不断学习的过程，在这个过程中，图老师就是你们的好帮手，下面分享的教小朋友认识红绿灯懂设计的网友们快点来了解吧！
【 tulaoshi.com - 编程语言 】
笔者在教小朋友认识红绿灯时，曾用VB编过一个小程序来说明红绿灯的作用，当红灯时程序中的小孩为静止的，当为绿灯时小孩就不停的走了起来。用后感觉效果不错，家中有小朋友的赶快来试一下吧。timer1的interval属性设为3000，用来控制红绿灯转换。
timer2的interval属性设为200，用来控制小孩走动。
shape1的shape属性为3-circle
fillcolor为红色
fillstyle为0-solid
image2---image5：用来存放四幅小孩的图片，其visible属性为false。
image1：用来显示动态的小孩。
PrivateSubForm_Load()
Shape1.FillColor=RGB(255,0,0)
EndSub
PrivateSubTimer1_Timer()‘用来控制红绿灯转换
IfShape1.FillColor=RGB(255,0,0)Then
Shape1.FillColor=RGB(0,255,0)
Timer2.Enabled=True
Else
Shape1.FillColor=RGB(255,0,0)
Timer2.Enabled=False
EndIf
EndSub
PrivateSubTimer2_Timer()‘用来控制小孩走动
StaticnAsInteger
n=n 1
Ifn=1Then
Image1.Picture=Image2.Picture
ElseIfn=2Then
Image1.Picture=Image3.Picture
ElseIfn=3Then
Image1.Picture=Image4.Picture
ElseIfn=4Then
Image1.Picture=Image5.Picture
n=0
EndIf
EndSub
第二步，单击F5运行。
程序每3秒中红绿灯就转换一次，当红灯时，程序中的小孩为静止的，当绿灯时，小孩就不停的走了起来。即简单又形象，赶快用它来教你家中的小朋友来认识红绿灯吧。
奚越XXIYYUE@SINA.COM->
来源:http://www.tulaoshi.com/n/20160219/1625395.html
