作者adidaz (adidaz)
看板Visual_Basic
標題Re: [VB6 ] 關於陣列傳值..
時間Thu Sep 7 11:59:32 2006
※ 引述《colawei (D逃)》之銘言：
: 實在看不懂你想做啥. 不過如果你想傳陣列到SUB 或FUNCTION
: 那大致上是這樣吧...
: Sub aaa()
: Dim y(1 To 5) As Integer
: For i = 1 To 5
: y(i) = i
: Next
: bbb(2, 1) = y(2) + 1
: variable_cal y()
: End Sub
: Sub variable_cal(ByRef y() As Integer)
: Dim cal() As Integer
: For y(1) = 1 To 5
: ReDim Preserve cal(1 To y(1)) As Integer
: cal(y(1)) = bbb(2, 1)
: a = a + cal(y(1))
: Next y(1)
: End Sub
我原本的想法是在sub aaa()之中利用迴圈(或者是遞迴)的方法產生一維陣列(變數)，
然後利用二維陣列來儲存。然後，在傳一維陣列(變數)至variable_cal，來作迴圈的運算。
也就是說，在variable_cal中的bbb(2, 1)=y(1)+1，y(1)從1至5作迴圈的運算。
依此迴圈的運算可得，1+1+2+1+3+1+4+1+5+1=20。
但是，利用上述程式跑的結果是5，感覺好像y(1)無法傳至variable_cal作運算，好像只
傳了bbb(2, 1)=1，然後用迴圈跑了5次累加。
感謝...^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.118.101.170