笔者在教小朋友认识红绿灯时，曾用VB编过一个小程序来说明红绿灯的作用，当红灯时程序中的小孩为静止的，当为绿灯时小孩就不停的走了起来。用后感觉效果不错，家中有小朋友的赶快来试一下吧。
第一步设计用户界面如下：
-width="100"
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运行。
-width="100"
奚越XXIYYUE@SINA.COM-