vb6中，已知两个点坐标，求角度
发布网友
共1个回答
热心网友
Function PointToDegree(ByVal X As Double, ByVal Y As Double) As Double
Const PI As Double = 3.14159265359
Dim Hyp As Double
Hyp = Sqr(X * X + Y * Y)
PointToDegree = Asin(Y / Hyp) * 180 / PI
End Function
