vb怎样传递数组？

Question

请问vb怎样将数组传递给过程。

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim a() As String
    Dim i As Long
    
    ReDim a(10)
    For i = 0 To 9
        a(i) = i
    Next
    
    aa a
End SubPrivate Sub aa(ary() As String)
    Dim i As Long
    
    For i = 0 To UBound(ary) - 1
        MsgBox ary(i)
    Next
End Sub

Answer 2

在同一个窗体中只要把数组dim在通用部分就可以了

Answer 3

假定你定义了如下数据组dim AA(4) as integer则传递时这样写byref  AA 如：public function Test(ByRef AA) as ...
 .
 .
 .
end sub