作者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