Как передать функции массив

Private Function PrintMe(arr As Variant) As Variant
Dim i As Integer

For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next
PrintMe = arr
End Function

Private Sub Command1_Click()
Dim a(10) As Long, i As Integer

For i = 0 To 10: a(i) = i: Next
PrintMe a
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как передать функции массив", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!