7,763
社区成员
发帖
与我相关
我的任务
分享自定义函数的返回结果可以是数组吗？
自定义函数的返回结果可以是数组吗？
如果能的话，请给一个简单的例子吧，如果不能请问有什么办法，让返回一个数族啊
如果能的话，请给一个简单的例子吧，如果不能请问有什么办法，让返回一个数族啊
...全文
请发表友善的回复…
发表回复
Rex_love_Burger 2004-04-09
- 打赏
- 举报
谢谢大家。已经解决问题
northwolves 2004-04-01
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox Join(arrayx(10), vbCrLf)
End Sub
Function arrayx(ByVal n As Long)
Dim i As Long
Dim x() As String
ReDim x(n)
For i = 0 To n
x(i) = i
Next
arrayx = x
Erase x
End Function
MsgBox Join(arrayx(10), vbCrLf)
End Sub
Function arrayx(ByVal n As Long)
Dim i As Long
Dim x() As String
ReDim x(n)
For i = 0 To n
x(i) = i
Next
arrayx = x
Erase x
End Function
lgs666 2004-04-01
- 打赏
- 举报
Private Sub Command1_Click()
Dim a() As String '声名动态数组
ReDim a(3) As String
a(0) = "a"
a(1) = "b"
a(2) = "c"
SetArray a()
'查看结果
Debug.Print a(0)
Debug.Print a(1)
End Sub
'按地址传递数组参数:
Private Function SetArray(ByRef aArray() As String) As String
ReDim Preserve aArray(1) As String '改变数组大小
aArray(0) = "1" '对数组赋值
End Function
lilaclone 2004-04-01
- 打赏
- 举报
用这种方式实现:
Private Function GetArray(ByRef aArray() As String) As String
End Function
在函数内部改变aArray()数组的值
Private Function GetArray(ByRef aArray() As String) As String
End Function
在函数内部改变aArray()数组的值
victorycyz 2004-04-01
- 打赏
- 举报
function A() as long()
...
end function
调用：
dim b() as long
b=a
Rex_love_Burger 2004-04-01
- 打赏
- 举报
没人看的帖子可不可以删掉？
