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

Answer 2

使用可选参数，例如：

Function Sum(Optional X1 As Integer=0, Optional X2 As Integer=0)

或通用变量参数语法

Function Sum(ParamArray XArr() As Variant)

（我可能已经搞砸了一些语法元素 - 随意纠正。）

Answer 3

这里的答案很棒。在我的应用程序中，在需要的初始参数之后，我需要一个任意长的可选参数列表。

您可以通过在ParamArray条目之前添加所需的参数来完成此操作。

例如：

Function Arithmetic(FuncType As String, ParamArray Terms() As Variant)

VB中可变数量的参数

3 个答案: