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