关于函数与数组

Question

请问如何将函数定义为数组型

Answer 1

public function you(By val as integer) as integer

Answer 2

你大概是没有说清楚吧.
字义参数为数组的函数:
Public Sub fuc(arr() As Integer, index As Integer)
'
End Sub
定义返回数组的函数:
Private Sub Form_Load()
Dim a() As Integer
'For i = 0 To 10
'a(i) = i
'Next i
a = returnA()
fuc a, 10
End SubPublic Sub fuc(arr() As Integer, index As Integer)
   For i = 0 To index
   Print arr(i) & vbCrLf
   Next i
End Sub
Public Function returnA() As Integer()
    Dim a(10) As Integer
    For i = 0 To 10
    a(i) = i
    Next i
    returnA = a
End Function

Answer 3

public function you(Byval as integer) as integer()