vb6 - VB中可变数量的参数

Question

如何在visual basic中创建一个具有可变数量参数的函数？
前任。

x =  Sum(1,2,3)
y =  Sum(1,2)

Function Sum('how to declare argument here')
'Is there any special argument manipulation inside function before it is usable?
End Function

Answer 1

看看Passing a Variable Number of Arguments

Function Sum(ParamArray Vals() As Variant)
    Dim intLoopIndex As Integer
    For intLoopIndex = 0 To  UBound(Vals)

    Next intLoopIndex

End Function