求坐标方位角源代码.docVIP

Private Sub Command1_Click() Dim Xa#, Ya#, Xb#, Yb#, detX#, detY#, tana#, ab#, du%, fen%, miao%, s# Const Pi = 3Xa = Val(Text1.Text): Ya = Val(Text2.Text) Xb = Val(Text3.Text): Yb = Val(Text4.Text) detX = Xb - Xa: detY = Yb - Ya If Abs(detX) 0Then MsgBox 除数为零，请检查坐标输入是否正确！ Text1.SetFocus Exit Sub End If s = Sqr(detX * detX + detY * detY) If Abs(detX) 0Then If detY 0 Then ab = 90 Else ab = 270 End If Else tana = detY / detX ab = Atn(tana) ab = ab * 180 / Pi If detX 0 Then ab = 180 + ab ElseIf detX