vb6中，已知两个点坐标，求角度

发布网友发布时间：2022-04-22 04:03

共1个回答

热心网友时间：2024-07-24 07:10

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com