diffx = Abs(SposX - X) diffy = Abs(SposY - Y) If diffx > diffy Then If X > SposX Then ym = ym - X * 0.005 ‘向右旋转 Else ym = ym + X * 0.005 ‘向左旋转 End If Else If Y > SposY Then xm = xm - Y * 0.005 ‘向下旋转 Else xm = xm + Y * 0.005 ‘向上旋转 End If End If End If