Dim a() As Single, b() As Single
n = Text1.Text
ReDim a(n)
For i = 1 To n
a(i) = InputBox("請輸入a(" & i & ")")
Next i
m = Text1.Text
ReDim b(m)
For j = 1 To m
b(j) = InputBox("請輸入b(" & j & ")")
Next j
c = creatematrix(a(i))
d = creatematrix(b(j))
x = times(c, d)
Sum (x)
Sum(x).Show
uj5u.com熱心網友回復：
ReDim a(n + 1)另一個類似
另外creatematrix的代碼沒有看到。
uj5u.com熱心網友回復：
Dim a() As Single, b() As Single
n = Text1.Text
ReDim a(n)
For i = 1 To n ‘這個地方越界吧，改成 for i=0 to n-1
a(i) = InputBox("請輸入a(" & i & ")")
Next i
m = Text1.Text
ReDim b(m)
For j = 1 To m ‘這個地方越界吧，改成 for j=0 to m-1
b(j) = InputBox("請輸入b(" & j & ")")
Next j
c = creatematrix(a(i))
d = creatematrix(b(j))
x = times(c, d)
Sum (x)
Sum(x).Show
uj5u.com熱心網友回復：
改兩個地方：ReDim a(1 To n)
ReDim b(1 To m)
因為預設情況下的起始索引是 0
c = creatematrix(a(n))
d = creatematrix(b(m))
因為在回圈結束時，回圈變數已經大于你的上限值。所以會越界。
uj5u.com熱心網友回復：
0 to N-1 重寫下轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/125046.html
標籤：VB基礎類
上一篇：VB6.0找不到工程或庫
下一篇：求助~~VB動態陣列越界問題