Офисные задачи в Outlook 2002

         

Программа 20.17. Использование именованных аргументов



Программа 20.17. Использование именованных аргументов

Sub Test2()

Dim bookshops(1 To 25) As Integer

Dim result As Boolean

Init bookshops

result = SaleAbility(arr := bookshops, numOfBooks := 3000)

MsgBox(result) End Sub

При описании синтаксиса объявления процедуры мы вскользь упомянули ключевое слово ParamArray, настало время уделить ему достойное внимание. Возможность передавать процедуре заранее неизвестное число фактических параметров является опять-таки уникальной по отношению ко многим другим языкам программирования.

Например, мы создадим процедуру подсчета общего количества заявок с использованием параметра ParamArray. При вызове этой процедуры в процедуре Tests можно задавать сколько угодно фактических параметров массива заявок.



Содержание раздела