vb平抛运动代码

你不是前两天才问过了的？

在窗体上，放
计时器1个（timer1）
直线1条（line1）
形状1个（shape1）

然后复制以下代码，即可：
Dim 初速度 As Integer, 增长 As Boolean, 完成 As Boolean, 计时 As Integer

Private Sub 准备()
Shape1.Move 500, 500 '将小球摆放到初始位置
初速度 = 0 '初速度从零开始
增长 = True '初速度增长
完成 = False '没有完成运动
Timer1.Enabled = True '开始计时
Line1.Visible = True '让速度示意线可见
Me.Line (600, 510)-(4000, 510) '以下几行画出速度线的边框
Line -(4000, 400)
Line -(4200, 575)
Line -(4000, 740)
Line -(4000, 630)
Line -(600, 630)
End Sub

Private Sub Form_Click()
If 完成 Then '已经完成运动（准备下次运动）
Me.Cls '清理运动轨迹
准备 '恢复初始状态
完成 = False '设置标志
Else '没有运动（此时开始运动）
Line1.Visible = False '隐藏速度示意线
Me.Cls '清理速度线的边框
计时 = 0 '运动的时间参数
完成 = True '设置状态标志
En