芙蓉古城芝田居物业:VB6自定义函数设计数组

来源:百度文库 编辑:九乡新闻网 时间:2024/04/20 13:10:55
用Variant,你可以返回数组,举例如下
Private   Function   ReturnArray(iarrSize   As   Integer)   As   Variant
        Dim   arr()   As   String
        ReDim   arr(iarrSize)
        For   i   =   0   To   iarrSize   -   1
                arr(i)   =   i
        Next   i
        ReturnArray   =   arr
End   Function

Private   Sub   Command1_Click()
        Dim   Result()   As   String
       
        Result   =   ReturnArray(10)
        For   i   =   LBound(Result)   To   UBound(Result)
                Debug.Print   Result(i)
        Next   i
End   Sub