Public Function AA() as string
End Function
怎样将函数定义为数组呢,前面函数括号内只能写函数参数啊,不能代表数组
还有个问题顺便下有关数组问题
当定义一个数组,但不限制大小时如dim arr() as single,在后面赋值或使用中是否必须先redim arr(N)大小,然后才能使用呢?

解决方案 »

  1.   

    Public Function AA as string()
    End Function
    返回字符串数组
    dim arr() as single必须先redim arr(N)大小,然后才能使用呢?是的
      

  2.   

    Public Function AA as string()假如有参数的话是否是这样Public Function AA(arr() as int) as string()
      

  3.   


    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