用vb怎么编一个自由落体的点的运动情况

来源：百度知道 编辑：UC知道 时间：2024/07/02 07:46:23
我是vb的初初初级的，只不过刚看了一些书而已。
要想画出自由落体运动的情况，是不是先建立一个坐标系？
但是怎么建立坐标系呢？小弟真的不知。
能不能给出详细的代码，要是平抛运动呢？水平的分速度怎么办？

Private Sub Form_Load()
Dim h As Single, v As Single
Height = 8730
Width = 7695
AutoRedraw = True
DrawWidth = 3
For i = 0 To 20
PSet (h, v)
h = h + 500
v = v + 98 * i '9.8为重力加速度，此处98是为了使效果明显而已
Next
End Sub

'h是水平位置，v是垂直位置
'这是平抛运动，至于自由落体，只要把h设为定值便可。

h=h0-1/2*g*t^2