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