VB中对于数组调用function，总是说缺少数组或用户定义类型？

Question

主调程序求数组的最小值，跪求高手改正
Dim a(0 To 9) As Double

Function zuixiao%(ByRef a())
zuixiao = a(0)
For j = 0 To UBound(a)
If a(j) < amin Then
zuixiao = a(j)
End If
Next j
End Function

Private Sub Command1_Click()
For i = 0 To 9
Randomize
a(i) = Int(Rnd * (101) + (-400))
Label1.Caption = Label1.Caption & a(i) & " "
Next i
End Sub

Private Sub Command2_Click()
Label2.Caption = zuixiao(a())
End Sub

Answer 1

Function zuixiao%(ByRef a() As Double) '数组参数类型要匹配的或者要么定义通用类型
zuixiao = a(0)
For j = 0 To UBound(a)
If a(j) < amin Then
zuixiao = a(j)
End If
Next j
End Function

Answer 2

Function zuixiao%(ByRef a())改成Function zuixiao%() 。 你定义的a是个全局变量数组