作者colawei (D逃)
看板Visual_Basic
標題Re: [VB6 ] 關於陣列傳值..
時間Thu Sep 7 20:52:31 2006
※ 引述《adidaz (adidaz)》之銘言：
: 我原本的想法是在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次累加。
: 感謝...^^
看了很多次還是不知道你的意思. 可能是我的理解力不夠吧...(還是語言有代溝? 冏...)
我沒修過心理學, 沒辦法把你抽象的想法組合成你真正想要的.
你直接把你想要的Input 及Output直接列出來, 也許我還比較容易理解...
我再猜最後一次, 以後問題太抽象的我也不會回了...
Sub aaa()
Dim y(1 To 5) As Integer
Dim bbb(2, 5) As Integer
For i = 1 To 5
y(i) = i
bbb(2, i) = y(i) + 1
Next
Print variable_cal(bbb())
End Sub
Function variable_cal(myArray() As Integer) As Integer
Dim i As Integer
Dim rt As Integer
For i = 1 To 5
rt = rt + myArray(2, i)
Next
variable_cal = rt
End Function
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.81.195.242
1F：推 adidaz:success..跑出來的結果是20...非常感謝..^^ 09/08 11:24