Передача массива в процедуру - VB

Формулировка задачи:

В функции заполняю массив, как потом передать его в процидуру, не обьявляя массив как Public Type.

Решение задачи: «Передача массива в процедуру»

textual
                            Листинг программы 
                        

                            function GetArray() as string()
dim arr(5) as string
 
arr(0)='aaa'
arr(1)='bbb'
arr(2)='ccc'
arr(3)='ddd'
arr(4)='eee'
arr(5)='fff'
 
GetArray=arr
 
end function
 
sub MySub()
dim arr() as string
 
  arr=GetArray
 
end sub
                        

Оцени полезность:

15 голосов , оценка 4 из 5

Похожие ответы