一个ｆｕｎｃｔｉｏｎ可以返回一个数组么？？

[RyanDevlin99]

如果能　返回一个数组的时候　怎样用另外一个数组来接收它的返回值？
　例如：
　　　　Accept() = funtion() ''这里的ｆｕｎｃｔｉｏｎ是一个函数　Ａｃｃｅｐｔ是一个数组
各位大虾帮帮忙．．．．．．谢谢

[zdk]

用参数代替或
function a () as Collection

[kmzs]

yeah,right!

[Alicky]

还可以
dim AA(10) as string

function (AA()as string)
....
end function

[RyanDevlin99]

ａｄｋ你好．．．．你说我不太明白．．能详细一点么？？？谢谢

[exiong]

MSDN(中文版)->VBA VBA 语言特性->新的->函数可以返回数组

Public Function ArrayFunction(b As Byte) As Byte()
Dim x(2) As Byte
x(0) = b
x(1) = b + CByte(200)
x(2) = b + b
ArrayFunction = x
End Function

[RyanDevlin99]

我需要ｆｕｎｃｔｉｏｎ的返回值．．．可参数有什么用？？？
在调用完ｆｕｎｃｔｉｏｎ之后　我希望能得到一个数组

[lxcc]

简单一点，定义全局数组

[RyanDevlin99]

ｅｘｉｏｎｇ你好　你说的ｖｂａ怎么用啊．．．．ｖｂ６．０里可以用么．．．．能具体告诉我定义这么一个ｆｕｎｃｔｉｏｎ之前需要做些什么？
ｆｕｎｃｔｉｏｎ　能返回多个值么？？

[sunnyfire]

function y( x(）as string) as boolean
redim x(0 to 1) as string
x(0)="0"
x(1)="1"
y=true
end function


functiong z
dim x(）as string
if y(x())= true
dim r as stirng
r=x(0) & x(1)
end if
end function

[Kang哥]

可以。
如果是返回byte()
function s() as Variant
dim b() as byte
'给b()赋值
.....
s=b
end function
用一个byte数组变量接受返回值即可，比如，dim b as byte,byte=s()...


如果是string()
Private Function a() As Variant
Dim s(1) As String
s(0) = "1"
s(1) = "2"
a = s
End Function
dim ss() as string
ss=a()
...类推

[Sean918]

支持 虫子

定义一个全局的数组变量，然后在函数中赋值就成了

[cppsong]

函数的返回值可以是数组,或者用引用型参数

[flyingscv]

当然可以
例：
在form上加个CommandButton就可以了
Private Sub Command1_Click()
Dim i As Integer
Dim a() As Integer
a = aaa
For i = 1 To 10
Debug.Print a(i)
Next i
End Sub
Private Function aaa() As Variant
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = i
Next i
aaa = a
End Function

[Danvi]

flyingscv(zlj) 的办法完全正确,我就是这样做的

[Talent2001k]

简单！

Private Sub Form_Load()
Dim str1() As String

str1 = Haha
End Sub

Function Haha() As Variant
Dim str(1) As String
str(0) = 1
str(1) = 2
Haha = str()
End Function