vb6.0 如何编写参数和返回都是数组的函数
vb6.0中如何调用返回是数组的函数，并如何调用这样的函数? vb6.0 数组 函数
[解决办法]
本帖最后由 bcrun 于 2013-10-28 08:18:19 编辑

Function foo(ByVal s As String) As String()
    foo = Split(s, ",")
End Function

调用
Dim a() As String
a = foo("1,2,3")
[解决办法]
本帖最后由 bcrun 于 2013-10-28 10:17:34 编辑

FUNCTION GETSZ(SZ)
SZ(0)=NOW
GETSZ=SZ
END FUNCITON

DIM SZA
REDIM SZA(2)
SZA(0)=33

MSGBOX JOIN(GETSZ(SZA),VBCRLF)

[解决办法]
function aFun(a() as string ) as string()