作者colawei (D逃)
看板Visual_Basic
标题Re: [VB6 ] 关於阵列传值..
时间Thu Sep 7 01:13:35 2006
实在看不懂你想做啥. 不过如果你想传阵列到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
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.81.195.242
1F：推 fumizuki:vb6 预设是 ByRef 编译器会自动拿掉这个关键字 09/07 07:12
2F：推 colawei:平常我也不会加,有时想到就很自然的加上去了...Orz 09/07 21:02
3F：推 fumizuki:vb.net 预设是 ByVal 囧 09/09 12:41