平面直角坐标-两点间距离

Public Function Calculate_平面直角坐标_直线_Distance(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Double ' 计算A到B点直线距离 Calculate_平面直角坐标_直线_Distance = Sqr((y1 - y2) ^ 2 + (x1 - x2) ^ 2) End Function