vb編程兩點距離程序_如何利用vb編寫一個程序求平面中兩點之間的距離

『壹』用vb編程已知平面坐標系中兩點的坐標,求兩點的距離

Const e As Double = 0.000001Sub 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 Doublex = c1 * c1 + c2 * c2Dim d1 As Double,d2 As Doubled1 = x /...

『貳』用vb編程已知平面坐標系中兩點的坐標，求兩點的距離

Private Sub Command1_Click()
Dim x1 As Single, x2 As Single, y1 As Single, y2 As Single, s As Single
x1 = InputBox("x1", "輸入x1")
y1 = InputBox("y1", "輸入y1")
x2 = InputBox("x2", "輸入x2")
y2 = InputBox("y2", "輸入y2")
s = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
Print "兩點間距離為"; s
End Sub

『叄』 vb編程實現已知A,B兩點三維坐標和AB連線上C點到A點距離如何求C點坐標

以下程序採用的是向量求法（程序中完善了一些小細節）

PrivateSubcal_Click()'計算程序

DimLab

Dimm,a

IfXa.Text=""OrXb.Text=""OrYa.Text=""OrYb.Text=""OrZa.Text=""OrZb.Text=""OrLac.Text=""Then

a=MsgBox("請輸入正確的參數",1,"返回")

clear

Else

Lab=((Xb.Text-Xa.Text)^2+(Yb.Text-Ya.Text)^2+(Zb.Text-Za.Text)^2)^0.5'求AB的模(即AB的長度)

m=Lac.Text/Lab

Xc.Text=m*(Xb.Text-Xa.Text)+Xa.Text

Yc.Text=m*(Yb.Text-Ya.Text)+Ya.Text

Zc.Text=m*(Zb.Text-Za.Text)+Za.Text

EndIf

EndSub

PrivateSubclear()'清除畫面數據

Xa.Text=""

Ya.Text=""

Za.Text=""

Xb.Text=""

Yb.Text=""

Zb.Text=""

Xc.Text=""

Yc.Text=""

Zc.Text=""

Lac.Text=""

EndSub

PrivateSubclr_Click()'清除按鈕程序

clear

EndSub

向量原理

『肆』如何利用vb，編寫一個程序，求平面中兩點之間的距離

點1我們叫A吧，它的坐標(X1,Y1)，點2我們叫B吧，它的坐標(X2,Y2)，那麼AB之間的距離是：
S=SQR((X1-X2)^2+(Y1-Y2)^2)
勾股定律！

『伍』用VB程序設計計算兩經度之間的距離，題目如下，在線等。

Private Sub Command1_Click()

If Text1.Text <> "" Then

a = Val(Text1.Text)

Else

a = -Val(Text2.Text)

End If

If Text3.Text <> "" Then

b = Val(Text3.Text)

Else

b = -Val(Text4.Text)

End If

c = Abs(a - b)

If c > 180 Then c = 360 - c

Text5.Text = c * 2 * 3.1415926 * 6378.137 / 360

End Sub

『陸』 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

導航:首頁 > 編程語言 > vb編程兩點距離程序

vb編程兩點距離程序

與vb編程兩點距離程序相關的資料