Question

vb 如和输出自定义函数返回的数组值，

code eg:
function aa() as integer
dim i as integer
dim dd (10) as integer
for i=1 to 10
dd(i)= i
next i
aa= dd
end function
private sub dovar( byref a() as integer)
dim j as integer
for j=1 to 10
msgbox a(j)
next j
private sub command1_click()
dim d
d= aa
call dovar(d)
end sub
我是的代码错了 ，但不知道错在了那里？ 你如果知道 写一个 自定义函数 并返回一个数组，并将返回的数组的值 输出。 谢谢、、、、我的QQ是 175246808 再此 先谢过高手了。。呵呵 、

end sub

Answer 1

第2个过程缺少End Sub
另外把第1个函数改为过程，因为数组作为参数，只能用ByRef关键字定义，数组只能＂引用＂传递，而不能＂值＂传递．
Sub aa(ByRef a() As Integer)
Dim i As Integer
ReDim a(10) As Integer
For i = 1 To 10
a(i) = i
Next i

End Sub
Private Sub dovar(ByRef a() As Integer)
Dim j As Integer
For j = 1 To 10
MsgBox a(j)
Next j
End Sub

Private Sub command1_click()
Dim d() As Integer
Call aa(d)
Call dovar(d)
End Sub