Public Function AA() as string
End Function
怎样将函数定义为数组呢,前面函数括号内只能写函数参数啊,不能代表数组
还有个问题顺便下有关数组问题
当定义一个数组,但不限制大小时如dim arr() as single,在后面赋值或使用中是否必须先redim arr(N)大小,然后才能使用呢?
End Function
怎样将函数定义为数组呢,前面函数括号内只能写函数参数啊,不能代表数组
还有个问题顺便下有关数组问题
当定义一个数组,但不限制大小时如dim arr() as single,在后面赋值或使用中是否必须先redim arr(N)大小,然后才能使用呢?
End Function
返回字符串数组
dim arr() as single必须先redim arr(N)大小,然后才能使用呢?是的
Option ExplicitPrivate Function aa() As String()
Dim r(1) As String
r(0) = "aaa"
r(1) = "bbb"
aa = r
End FunctionPrivate Sub Command1_Click()
Dim rr() As String
rr = aa()
Dim i As Long
For i = LBound(rr) To UBound(rr)
MsgBox rr(i)
Next i
End Sub