怎么用VB实现小车移动？ 现场轨道上有一小车，移动距离0-10米，对应屏幕上大约十厘米，怎么让画面

创建一个高唯Timer控件，脊念桐取名Timer1，然后加入以下代码

Private Sub Form_Load()

Timer1.Interval = 10                   '设置小车每10毫秒移动一次

End Sub

Private Sub Timer1_Timer()

小车.Left = 小车.Left + 50              '小车每次移动都往右移50缇

End Sub

启动程序，就可樱坦以了

如果不懂，可以追问

'添加一个按钮，模拟小车，并命名：Command1

'小车速度

Dim 速度 As Integer

'速度上限

Dim 上限 As Integer

'加孝腔速状态（True减速False加速）

Dim 状态 As Boolean

Private Sub Form_Load()

速度 = 1

上限 = 100

'设置匀速时间（毫秒：1秒=1000毫秒）

Timer2.Interval = 2000

'设置运动控制时钟为30毫秒（即FPS：空慎昌60）

Timer1.Interval = 30

End Sub

Private Sub Timer1_Timer()

Command1.Left = Command1.Left + 速度

If 状态 Then

  If 速斗扒度 > 1 Then 速度 = 速度 - 1

Else

  If 速度 <= 上限 Then

      速度 = 速度 + 1

  Else

      If Timer2.Enabled = False Then Timer2.Enabled = True

  End If

End If

End Sub

Private Sub Timer2_Timer()

状态 = True

End Sub

---