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

[Jamebo]

下面的错误在那里
sub Test (I() as integer)
beep
end sub

sub form_click
dim data() as integer
Test(Data)
end sub

[littletao]

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

[Jamebo]

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

[littletao]

call test(data)
或者
test data

hehe,vb的函数调用有规范的

[Jamebo]

没办法，我只是初用VB
尽管我熟悉其他语言

[lp23]

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 i

End Sub

Private 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