VB.net模拟万有引力编写小球下落及飞行过程 (完美版)

Public Sub pengzhuang() '1号球与2号球的碰撞 从右边撞击 If ball.Right > ball2.Left And ball.Right < ball2.Right And (ball.Top >= ball2.Top And ball.Top <= ball2.Bottom Or (ball.Top <= ball2.Top And ball.Bottom >= ball2.Top)) Then If Math.Abs(b1.xspeed) <= 0 Then b1.xspeed = b2.xspeed Else If b1.xspeed > 0 Then b1.xspeed *= -0.9 Else b1.xspeed *= 1.35 End If End If If Math.Abs(b2.xspeed) <= 0 Then b2.xspeed = b1.xspeed Else If b2.xspeed > 0 Then b2.xspeed *= 1.35 Else b2.xspeed *= -0.9 End If End If End If '1号球与2号球的碰撞 从左边撞击 If ball.Left > ball2.Left And ball.Left < ball2.Right And (ball.Top >= ball2.Top And ball.Top <= ball2.Bottom Or (ball.Top <= ball2.Top And ball.Bottom >= ball2.Top)) Then If Math.Abs(b1.xspeed) <= 0 Then b1.xspeed = b2.xspeed Else If b1.xspeed < 0 Then b1.xspeed *= -0.9 Else b1.xspeed *= 1.35 End If End If If Math.Abs(b2.xspeed) <= 0 Then b2.xspeed = b1.xspeed Else If b2.xspeed < 0 Then b2.xspeed *= 1.35 Else b2.xspeed *= -0.9 End If End If End If End Sub