Функция заполнения массива - VBA

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

Массив через код VBA заполняется так:

                    Листинг программы
                
 
                        
                          
                    
Dim b()
ReDim b (1 To n, 1 To 5)
For k = 1 To n
      For i = 1 To 5
      b(k,i)=InputBox("X=")
      Next I
Next k

Можно ли написать функцию, в которую передавалось бы значение n, далее в функции заполнялся сам массив, и далее функция возвращала бы заполненный массив в процедуру?

Решение задачи: «Функция заполнения массива»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub uuu()
    Dim a()
'--------------
    a = GetArray(5)
End Sub
Function GetArray(ByVal n&) As Variant
    Dim a()
    Dim i&, j&
'----------------
    ReDim a (1 To n, 1 To 5)
    For i = 1 To n
        For j = 1 To 5
            a(i, j) = InputBox("X=")
        Next
    Next
    GetArray = a
End Function

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

10 голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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