求VB 基础操作 已知平面坐标系内两点的坐标,求两点间的距离
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/07 21:03:00
求VB 基础操作 已知平面坐标系内两点的坐标,求两点间的距离
如题
求操作步骤!
本人连入门级都够不上,所以请从建立程序后一步一步说,不要只发代码啊亲!
如题
求操作步骤!
本人连入门级都够不上,所以请从建立程序后一步一步说,不要只发代码啊亲!
![求VB 基础操作 已知平面坐标系内两点的坐标,求两点间的距离](/uploads/image/z/2493182-38-2.jpg?t=%E6%B1%82VB+%E5%9F%BA%E7%A1%80%E6%93%8D%E4%BD%9C+%E5%B7%B2%E7%9F%A5%E5%B9%B3%E9%9D%A2%E5%9D%90%E6%A0%87%E7%B3%BB%E5%86%85%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%E9%97%B4%E7%9A%84%E8%B7%9D%E7%A6%BB)
新建一个form1在form1中加入5个textbox(分别是:text1、text2、text3、text4、text5)在form1下写入如下代码:
Private Sub Command1_Click()
Text5.Text = ((Val(Text1.Text) - Val(Text3.Text)) ^ 2 + (Val(Text2.Text) - Val(Text4.Text)) ^ 2) ^ 0.5
End Sub
Private Sub Form_Load()
Text1.Text = "点A的X"
Text2.Text = "点A的Y"
Text3.Text = "点B的X"
Text4.Text = "点B的Y"
Text5.Text = "距离"
End Su
Private Sub Command1_Click()
Text5.Text = ((Val(Text1.Text) - Val(Text3.Text)) ^ 2 + (Val(Text2.Text) - Val(Text4.Text)) ^ 2) ^ 0.5
End Sub
Private Sub Form_Load()
Text1.Text = "点A的X"
Text2.Text = "点A的Y"
Text3.Text = "点B的X"
Text4.Text = "点B的Y"
Text5.Text = "距离"
End Su