已知两点坐标,在vb中怎样计算两点连线与水平线的角度?求公式代码

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/19 23:58:27

已知两点坐标,在vb中怎样计算两点连线与水平线的角度?求公式代码
我需要在VB中的代码啊

Private Sub Command1_Click()
Dim l As Integer
l = Sqr((Line1.x1 - Line1.X2) ^ 2 + (Line1.Y1 - Line1.Y2) ^ 2)
Print ArcCos((Line1.X2 - Line1.x1) / l)
End Sub
Public Function ArcCos(x As Single) As Single
Dim x0 As Single, x1 As Single, z As Single
Dim i As Integer
x0 = 1
Do
x1 = x0 + (Cos(x0) - x) / Sin(x0)
z = Abs(x1 - x0)
x0 = x1
i = 1 + 1
If i > 50 Then Exit Do
Loop Until z < 0.000001
ArcCos = x0 * 180 / 3.1415927
End Function

已知三点坐标,在vb中怎样计算角度值?求公式代码空间直角坐标系中两点连线的中点坐标公式已知两点坐标,求两点距离公式求VB 基础操作已知平面坐标系内两点的坐标,求两点间的距离建筑测量中:已知两点坐标,及第三点坐标与两点之间的关系,如何求第三点坐标? 已知三角形三个边长,三个角的角度,AB两点的坐标,怎样求C点坐标? 已知两点坐标,第三点到两点的距离,求第三点的坐标公式已知两点坐标,连接这两点,求线段的中点坐标.有没有什么公式啊? 两点间距离计算公式在平面直角坐标系中,两点之间的距离怎么求? 已知两点坐标求直线距离公式已知两点坐标和第三点与两点的距离,怎么计算第三点坐标已知两点坐标,两点间距离是多少 ,求那个公式