vb函数返回值是数组如何赋值给数组,我定义的函数的返回值是个数组,想返回给另一个数组好调用

Private Function caiGetT(txtStr1 As String) As String
dim aa() as string
if txtstr1="" then
aa=array("1","2","3")
else
aa=array("a","b","c")
end if
caiGetT=aa
End Function

dim bb() as string
dim cc as string
bb=caiGetT(cc)

VB规定数组作为参数，只能以传址方式进行调用，也就是自动传递给实际参数的数组了。

for i=0 to 99 c(i)=a(i)+b(i) cc=cc& cc(i) print cc next i