11-03-2005, 12:57
|
|
|
חבר מתאריך: 20.12.01
הודעות: 20,962
|
|
בערך ככה:
קוד:
Option Explicit
Option Base 1
Private Sub f(arr() As Integer)
Dim i As Integer
For i = LBound(arr) To UBound(arr)
MsgBox "i = " & i & vbNewLine & _
"arr (i) = " & arr(i)
Next i
End Sub
Private Sub Main()
Dim MyArr() As Integer
Dim i As Integer
ReDim MyArr(5) As Integer
For i = 1 To 5
MyArr(i) = i * 10
Next i
f MyArr
ReDim MyArr(10) As Integer
For i = 1 To 10
MyArr(i) = i * 20
Next i
f MyArr
End Sub
|