1樓：網友
option explicit
dim a() as variant, b() as variant, length as integer
private sub command1_click()dim i as integer
length = val(text3) -1if length <=0 then
msgbox "向量長度必須≥1 !!vbcritical, "嚴重警告！
exit sub
end if
redim a(length), b(length)for i = 0 to length
a(i) =int(rnd * 10) '隨機數範圍0~9b(i) =int(rnd * 10) '隨機數範圍0~9next i
text1 = join(a(),text2 = join(b(),true
end sub
private sub command2_click()dim v as long, i as integerfor i = 0 to length
v = v + a(i) *b(i)
next i
text4 = v
end sub
vb。。求向量之積！！
2樓：網友
兩個向量的向量積是不是還需要輸入他們缺歷核夾角大小？我如果沒記錯的話。
五個數隨意嗎？
option base 1
private a(10), b(10) as integerprivate sub command1_click()randomize
for i = 1 to text1
a(i) =int(rnd * 10) '為了方便，取整數吧。
b(i) =int(rnd * 10)
text2 = text2 & a(i) &text3 = text3 & b(i) &爛睜 "
falsetrueend sub
private sub command2_click()for i = 1 to 伏掘text1
text4 = val(text4) +a(i) *b(i)nextend sub
private sub form_load()text1 = 5 '向量長度為5
text4 = 0
end sub
vb向量積求解，高懸賞
3樓：網友
option explicit
dim a() as variant, b() as variant, length as integer
private sub command1_click()dim i as integer
length = val(text3) -1if length <=0 then
msgbox "向量長度必須≥1 !!vbcritical, "嚴重警告！
exit sub
end if
redim a(length), b(length)for i = 0 to length
a(i) =int(rnd * 10) '隨機數範圍0~9b(i) =int(rnd * 10) '隨機數範圍0~9next i
text1 = join(a(),text2 = join(b(),true
end sub
private sub command2_click()dim v as long, i as integerfor i = 0 to length
v = v + a(i) *b(i)
next i
text4 = v
end sub
vb程式（向量之積）：輸入向量長度，求兩個向量的向量積，即對應元素相乘求和。已上傳樣本**。
4樓：網友
這個問題相當於兩個量做加減法時，什麼時候做加法，什麼時候做減法。點乘和叉乘是兩個不同的運算，用點乘還是叉乘要看你具體想算什麼東西。比如v = ω r（線速度，角速度關係），由物理知識，這個乘是叉乘；w=f×r，由物理知識，這個乘是點乘。
5樓：網友
option base 1
private a(10), b(10) as integerprivate sub command1_click()randomize
for i = 1 to text1
a(i) = int(rnd * 10) '為了方便，取整數吧b(i) = int(rnd * 10)
label4 = label4 & " " & a(i) &" "
label5 = label5 & " " & b(i) &" "
next false
trueend sub
private sub command2_click()for i = 1 to text1
text2 = val(text2) +a(i) *b(i)next
end sub
private sub form_load()text1 = val(
end sub
vb中向量計算，哪位高手能給個計算模組（板）？
6樓：科學知識邊界
額~又是你。
印象vb不能直接進行向量計算（matlab倒是可以）。
你應該先把它們轉化成相應的座標（以o為原點），其中o（0，0），a（x1，y1），b（x2，y2）,c(x3,y3).再去計算想要的東西。我們手算時不也是這樣的嗎？
假設oa，ob幅值分別是la,lb;oa，ob對於相位分別是aa，ab。 x1=la*cos(aa)其他類推。。。
vb的使用方法求解
7樓：
private sub command1_click()dim oo as string, s(5) as string, i as integer
oo = trim(
if len(oo) = 5 and val(oo) >= 70000 and val(oo) <= 79999 then '判斷輸入是否為5位數字。
for i = 1 to len(oo)
s(i) = mid(oo, i, 1)
next "1" & s(2) &s(4) &s(5) &s(3)= "2" & s(2) &s(4) &s(5) &s(3)= "3" & s(2) &s(4) &s(5) &s(3)else
msgbox "輸入為非首位為7的五位數數字"
end if
end sub
請求高手解答vb解決錯誤除錯的方法
8樓：網友
比如這樣。
if not isnumeric( or ""thenmsgbox ("請輸入數字")
end if
vb**路徑怎麼輸入
9樓：網友
使用，就是得把程式和**放在同乙個資料夾，或是放**的資料夾是程式所在資料夾的子資料夾。
你的vb程式不知道放在那個資料夾裡，怎麼loadpicture？
建議你把vb程式和**放在同乙個資料夾，這樣直接檔名。格式"）
10樓：網友
直接寫檔名即可。
)可以不寫的，它只是自動尋找路徑而已……
11樓：創作者
**名稱啊，比如在資料夾裡的**名是。
就寫""
12樓：丁滿
程式路徑下**名"
向量積的性質向量的向量積性質ab是以a和b為邊的平行四邊形面積。
叉積的長度 a b 可以解釋成以a和b為鄰邊的平行四邊形的面積。混合積 a b c a b c可以得到以a，b，c為稜的平行六面體的體積。反交換律 a b b a 加法的分配律 a b c a b a c 與標量乘法相容 ra b a rb r a b 不滿足結合律，但滿足雅可比恆等式 a b c ...
向量a與向量b的向量積再與向量c的數量積，是否這向量可以
向量a與向量b的向量積位置不能改變，向量積為向量，方向滿足右手定則，數量積為數可以改變方向。即 a b c c a b 三個向量 先向量積後數量積 怎麼互換位置 向量a與向量b的向量積位置不能改變,向量積為向量,方向滿足右手定則,數量積為數可以改變方向.即 a b c c a b 為什麼三向量的向量...
向量的數量積和向量積有什麼不同,數量積和向量積有什麼區別
數量級就是abcos,是乙個實數 向量積是absin,表示乙個向量,並且這個向量與a,b組成的平面是垂直的 數量積和向量積有什麼區別 一 指代不同 1 數量積 是接受在實數r上的兩個向量並返回乙個實數值標量的二元運算。它是歐幾里得空間的標準內積。2 向量積 是一種在向量空間中向量的二元運算。二 幾何...