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

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

Private?Sub?cal_Click()?'計算程序

Dim?Lab

Dim?m,?a

If?Xa.Text?=?""?Or?Xb.Text?=?""?Or?Ya.Text?=?""?Or?Yb.Text?=?""?Or?Za.Text?=?""?Or?Zb.Text?=?""?Or?Lac.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

End?If

End?Sub

Private?Sub?clear()?'清除畫面數據

Xa.Text?=?""

Ya.Text?=?""

Za.Text?=?""

Xb.Text?=?""

Yb.Text?=?""

Zb.Text?=?""

Xc.Text?=?""

Yc.Text?=?""

Zc.Text?=?""

Lac.Text?=?""

End?Sub

Private?Sub?clr_Click()?'清除按鈕程序

clear

End?Sub

向量原理

效果圖