| Код | 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
|
