vb6中，已知两个点坐标，求角度 70
如图所示，A，B为屏幕上任意两点，坐标已知，分别为x1,y1;x2,y2，求角度a。不论AB两点在何处，蓝色线始终保持水平，也就是说点A为原点，蓝色为x轴，求vb6代码。...
如图所示，A，B为屏幕上任意两点，坐标已知，分别为x1,y1;x2,y2，求角度a。不论AB两点在何处，蓝色线始终保持水平，也就是说点A为原点，蓝色为x轴，求vb6代码。
展开
展开全部
tanα=(y2-y1)/(x2-x1)
如果(y2-y1)/(x2-x1)>=0
α=arctan[(y2-y1)/(x2-x1)]
如果(y2-y1)/(x2-x1)<0
α=π+arctan[(y2-y1)/(x2-x1)]
如果(y2-y1)/(x2-x1)>=0
α=arctan[(y2-y1)/(x2-x1)]
如果(y2-y1)/(x2-x1)<0
α=π+arctan[(y2-y1)/(x2-x1)]
更多追问追答
追问
谢谢你的回答，但vb中貌似没有arctan函数
追答
arctan函数就是tan^(-1)这个函数
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
