vb编程两点距离程序

‘陆’ VB 实现测量窗体上两点之间的距离

Dimx1AsSingle,y1AsSingle,x2AsSingle,y2AsSingle,mAsSingle,nAsSingle,LAsSingle

PrivateSubForm_Load()
Line1.Visible=False
EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
x1=X
y1=Y
EndIf
EndSub

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
Line1.x1=x1
Line1.y1=y1
Line1.x2=X
Line1.y2=Y
Line1.Visible=True
EndIf
EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
Line1.Visible=False
x2=X
y2=Y
Ifm=0Then
m=Me.ScaleX(Sqr((x2-x1)^2+(y2-y1)^2),1,3)
MsgBox"标尺的像素长度m="&m
ElseIfn=0Then
n=Me.ScaleX(Sqr((x2-x1)^2+(y2-y1)^2),1,3)
L=5*n/m
MsgBox"两点之间的像素长度n="&n&vbCrLf&"两点之间的标尺距离L="&L&"mm"
m=0
n=0
L=0
EndIf
EndIf
EndSub

上述代码用到的唯一一个控件是Line1

‘柒’ VB计算两点间的距离

Private Sub Command1_Click()
Dim x1 As Integer
Dim x2 As Integer
Dim y1 As Integer
Dim y2 As Integer
Dim Sk As Double
Dim Sl As Long

On Error GoTo errorsorryl
x1 = CInt(InputBox("输入 x1 数据： "))
y1 = CInt(InputBox("输入 y1 数据： "))
x2 = CInt(InputBox("输入 x2 数据： "))
y2 = CInt(InputBox("输入 y2 数据： "))

Sl = (x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1)

If Sl > 0 Then
Sk = Sqr(Sl)
MsgBox "你输入的数据最后的计算结果为：" & Sk, vbOKOnly, "提示"
Exit Sub
Else
MsgBox "你输入的数据有错误，请从新确认后再输入……", vbOKOnly, "警告"
End If

errorsorryl:
MsgBox "你输入的数据有错误，请从新确认后再输入……", vbOKOnly, "警告"

End Sub

Private Sub Form_Load()
Text1.Text = ""
Me.Show
Command1.SetFocus
End Sub
一个command控件

‘捌’ 求VB 基础操作 已知平面坐标系内两点的坐标，求两点间的距离

新建一个form1

在form1中加入5个textbox（分别是：text1、text2、text3、text4、text5）

在form1下写入如下代码：

PrivateSubCommand1_Click()
Text5.Text=((Val(Text1.Text)-Val(Text3.Text))^2+(Val(Text2.Text)-Val(Text4.Text))^2)^0.5
EndSub
PrivateSubForm_Load()
Text1.Text="点A的X"
Text2.Text="点A的Y"
Text3.Text="点B的X"
Text4.Text="点B的Y"
Text5.Text="距离"
EndSub

‘玖’ vb编程怎么输入坐标值并求两座标间的距离

屏幕width—（y1 + y2）=距离
屏幕height—.........=距离2
距离1=y
距离2=x