怎么创建可以有不定个数的输入参数的函数？

Question

用数组作参数，然后在程序中用UBound(数组名)和LBound(数组名)获得数组的最大下标和最小下标。例：
Public Function aaa(bbb() As Integer) as Integer
    u=UBound(bbb)
    l=LBound(bbb)
    For i=l To u
        操作 bbb(i)
        ...
    Next i
End Function

Answer 1

Function SomeProc(ParamArray avarItems() As Variant)

Answer 2

public Function prevwnd(item1 as Elemtype,optional item2 _
as Elemtype) as elemtype
如果在参数前面加上Optional 关键字，那么此参数表示可输入实际
参数，也可以不输入实际参数，这样就实现了不定个参数的输入

Answer 3

to kenryhuang:
Optional表示任選參數。

Answer 4

如果在参数前面加上Optional 关键字，那么此参数表示可输入实际
参数，也可以不输入实际参数，这样就实现了不定个参数的输入 

Answer 5

to T2:无药可救
你说得对,Optional是表示可选参数,真正实现参数不定的是ParamArray
dim sum
public Function Proc(ParamArray arr() as variant)as variant
   for each i in arr
         sum = sum+i
   next i
  proc =sum
end function