Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs()) Dim i As Integer CalcSum = FirstArg For i = 0 To UBound(OtherArgs) CalcSum = CalcSum + OtherArgs(i) Next End Function
'如果用如下代碼調(diào)用該函數(shù)： Sub Example1() Dim ReturnValue '局部變量賦予以下值：FirstArg = 4， 'OtherArgs(0) = 3，OtherArgs(1) = 2，OtherArgs(2) = 1，等等。 ReturnValue = CalcSum(4, 3, 2, 1) MsgBox ReturnValue End Sub
