Автор статьи: Беседин Игорь
Как передать функции неопределенное количество данных?
Иногда требуется передать в функцию несколько значений, для этого используется следующий код. Все параметры будут переданы в массив A
Private Function Func1(ParamArray A() As Variant)
MsgBox "Общее
количество аргументов " & UBound(A) + 1
'К верхней границе массива нужно прибавить 1, т.к. нижняя граница - 0,
'следовательно и первый аргумент будет с индексом
0.
MsgBox Join(A, " ") 'передаем весь массив в
строку
End Function
Private Sub Form_Load()
Func1
"IgorykSoft", "VB", "сайт"
End Sub
При данных значениях, функция
возвратит Количество аргументов=3, Аргументы="IgorykSoft VB сайт"
При любом воспроизведении этой статьи (и других статей с этого сайта) ставьте ссылку на сайт www.igoryksoft.narod.ru