可以!
Public Function MySplit(a As String, b As String) As String()
MySplit = Split(a, b)
End Function
Public Function MySplit(a As String, b As String) As String()
MySplit = Split(a, b)
End Function
VB5不行,VB6可以,VB6的Splite本身就返回数组。
Public Function Str2Ary(s1 as string,s2 as string) As String()
Dim a(0 to 1) as string
a(0)=s1
a(1)=s2
Str2Ary = a
End Function
VB5可以返回变体数组。
Public Function Str2Ary(s1 as string,s2 as string) As variant
Dim a(0 to 1) as string
a(0)=s1
a(1)=s2
Str2Ary = a
End Function
(我恨 variant)