private const g=9.8Private Sub Timer1_Timer()ball.top=0.5*g*t^2 '二分之一gt平方，公式t=t+1End Subt线性递增，改interval可以改速度用控件有频闪（下移过程中图形会闪烁），建议做图形缓冲
