VB程序设计设计一程序，图中有一小闹钟，一个小汽车。两个控件（一个为开始，一个为停止）。程序运行时，如果单击“开始”按钮，这窗体上的汽车图标每0.1秒向右移动20（初始状态下不

Question

VB程序设计
设计一程序，图中有一小闹钟，一个小汽车。两个控件（一个为开始，一个为停止）。程序运行时，如果单击“开始”按钮，这窗体上的汽车图标每0.1秒向右移动20（初始状态下不移动）；如果单击“停止”按钮，则汽车图标停止移动。
（注意：编写事件的过程中不能使用变量，每一个事件过程中只能有一条语句）

Answer 1

添加三个CommandButton 将Command1当成小汽车 一个Timer 设置其Timer1.Enabled=False Timer1.Interval=100 示例代码如下：
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Command1.Left = Command1.Left + 20
If Command1.Left + Command1.Width = Width Then Command1.Left = 0
End Sub