没有啊,东西全都是我Post的那张了,b的我用自己算的formular没跟它说的什么every 0.1 second
Dim v As Single
Dim h As Single
Dim t As Single
Dim v2 As Single
Dim t2 As Single
h = Val(txth.Text)
v = Val(txtv.Text)
v2 = (v * v - 2 * 32 * (-h)) ^ 0.5
t2 = (v2 - v) / 32
t = v / 32 * 2 + t2
不懂对吗。。。。c的我真做不到。。。。。。。