Главная страницаОбратная связьКарта сайта

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



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 - "Как передать функции массив", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

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


Copyright © 2008 - 2017 Дискета.info