1樓：匿名使用者
添酒不添愁，你說話注意點，什麼叫我靠？
樓主說的是用vb寫法，不是直接計算，要直接計算的話，三個等式就可以了。
另外，不好意思，你那個演算法是錯的。
修改成短一點的：
private sub form_click()
dim a as ltd, b as ltd
dim i as single, j as single, k as single, t as single
dim n as single
a.x = 1: a.y = 2: a.z = 3
b.x = 30: b.y = 20: b.z = 10
n = 0.00001 '控制精度，n越小，精度越高
for i = a.x to b.x step n '以x軸上的點開始逐點掃瞄
j = (b.y - a.y) * (i - a.x) / (b.x - a.x) + a.y '對應的y軸上的點
k = (b.z - a.z) * (i - a.x) / (b.y - a.y) + a.z '對應的z軸上的點
t = sqr((i - a.x) ^ 2 + (j - a.y) ^ 2 + (k - a.z) ^ 2) 'c點到a點的距離
if abs(t - 12) < n then print i; j; k, t
next
msgbox "計算完畢！"
end sub
2樓：匿名使用者
需要先求出ab的直線方程。
3樓：匿名使用者
這是數學問題,vb只是用來計算的
直線方程:
(x-1)/(30-1)=(y-2)/(20-2)(z-3)/(10-3)=(y-2)/(20-2)距離方程:
(x-1)^2+(y-2)^2+(z-3)^2=12^2解這3條方程就可以求出x,y,z
4樓：成都豺狼
1、計算ab在xy平面的投影長度
勾股定理：t=((30-1)^2+(20-2)^2)^0.52、用反正切函式atn計算ab與高度的的夾角高度角=atn((10-3)/t)
同理用反正切函式atn計算投影t與xy軸的夾角x角=atn((t^2-(30-1)^2)^0.5/(30-1))y角=atn((t^2-(20-2)^2)^0.5/(20-2))3、代入ac長度和高度角，用sin函式計算高度座標12*sin(高度角)-3
用cos函式和ac長度計算ac投影的長度t2t2=12*cos(高度角)
用cos函式和長度t2計算xy座標
t2*cos*(x角)-1
t2*cos*(y角)-2
vb60怎麼安裝系統是，VB6 0怎麼安裝 系統是WIN
我就是win7 64位旗艦版，安裝的是vb6.0的精簡版。不過vb6.0必須在win7下面修改一下相容性，不然win7特效會讓vb6.0各種控制項像烏龜一樣慢，修改方法是，在安裝好的vb6.0.exe檔案上點滑鼠右鍵，選擇屬性，然後按照下圖操作。可以安裝。用管理員許可權執行。win7 64位系統怎麼...
簡述vb6 0的主要特點，簡述VB6 0的主要特點
隨著visual basic 的逐步發展完善和功能的不斷括展,很多軟體開發人員利用visual basic 開發了大量的應用軟體。visual basic 已經成為使用人數最多,應用領域最廣的程式語言和軟體開發工具.特點 1.物件導向和視覺化的程式設計.visual basic 實現了物件的封裝,是...
vb6 0中已知三邊畫影象
if a b c and a c b and c b a then 能夠構成三角形 else 不能構成三角形 end if 繪圖，純數學計算，太較煩，自己算吧 先畫乙個水平線段a，再以a的兩個端點做圓，計算出兩個圓的交點，取其中乙個交點與線段a的兩個端點畫線，就成了三角形 因為南韓和朝鮮的延坪島事件...