用vb编程已知平面坐标系中两点的坐标,求两点的距离
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/22 20:15:20
用vb编程已知平面坐标系中两点的坐标,求两点的距离
![用vb编程已知平面坐标系中两点的坐标,求两点的距离](/uploads/image/z/16749887-23-7.jpg?t=%E7%94%A8vb%E7%BC%96%E7%A8%8B%E5%B7%B2%E7%9F%A5%E5%B9%B3%E9%9D%A2%E5%9D%90%E6%A0%87%E7%B3%BB%E4%B8%AD%E4%B8%A4%E7%82%B9%E7%9A%84%E5%9D%90%E6%A0%87%2C%E6%B1%82%E4%B8%A4%E7%82%B9%E7%9A%84%E8%B7%9D%E7%A6%BB)
Const e As Double = 0.000001
Sub jisuan(x1 As Long,y1 As Long,x2 As Long,y2 As Long)
c1 = Val(Str(x2 - x1))
c2 = Val(Str(y2 - y1))
Dim x As Double
x = c1 * c1 + c2 * c2
Dim d1 As Double,d2 As Double
d1 = x / 2
d2 = (d1 + x / d1) / 2
Do While d1 - d2 >= e Or d1 - d2
Sub jisuan(x1 As Long,y1 As Long,x2 As Long,y2 As Long)
c1 = Val(Str(x2 - x1))
c2 = Val(Str(y2 - y1))
Dim x As Double
x = c1 * c1 + c2 * c2
Dim d1 As Double,d2 As Double
d1 = x / 2
d2 = (d1 + x / d1) / 2
Do While d1 - d2 >= e Or d1 - d2
求VB 基础操作 已知平面坐标系内两点的坐标,求两点间的距离
在平面直角坐标系中,已知两点坐标,求两点距离
matlab已知两点的坐标和第三点到两点的距离求第三点坐标怎么编程求解?
两点间距离计算公式在平面直角坐标系中,两点之间的距离怎么求?
求 坐标系中两点间的距离
在一直角坐标系中,已知两点之间的距离为t,一为原点,求另一点坐标
平面直角坐标系中,两点之间的距离
用 平面直角坐标系中两点间距离公式 已知A(2,1),B(4,3),c为坐标轴上的点,求c点坐标
在平面直角坐标系中,有一个等边△ABC,已知两点坐标A(x1,y1),B(x2,y2),求第三点C的坐标.
已知两点坐标,求两点距离公式
已知两点坐标,第三点到两点的距离,求第三点的坐标公式
空间直角坐标系中两点间的距离怎么求