━━━━━━━━━━━━━━━━━━━━━━━━━
'可以傳入多個(gè)參數(shù)
'使用 ParamArray 關(guān)鍵字可以使函數(shù)接收數(shù)目可變的參數(shù)
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
|
