Программа 20.18. Использование параметра ParamArray

Sub FullSum(ParamArray arr() As Variant)

Dim sum As Integer

For i = LBound(arr) To UBound(arr) sum = sum + arr(i)

Next i

MsgBox (sum) End Sub

Sub Test3 ()

FullSum 100, 2000, 350, 450 End Sub

Рассмотрим еще один способ вызова процедур или функций — рекурсивный вызов, т. е. вызов, при котором процедура вызывается из своего же тела. Стандартный пример рекурсивной функции — вычисление факториала.