怎样将数组作为参数传递给函数

Question

data必须先redim,确认数组大小，
否则调用函数时如何知道传递了多少数值呢？

Answer 1

dim Data(100) as integer
或ReDim Data(100)
也不行

Answer 2

call test(data) 
或者
test datahehe,vb的函数调用有规范的 

Answer 3

Public Sub test(a() As Integer)
Dim i As Integer
MsgBox Str(UBound(a()))
For i = 1 To UBound(a())
   MsgBox Str(a(i))
Next iEnd SubPrivate Sub Command1_Click()
Dim b() As Integer
Dim i As Integer
ReDim b(10) As Integer
For i = 1 To 10
    b(i) = i
Next i
test b