Код | Option Explicit
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 |
Ответ взят на: www.mtsecurity.narod.ru
|