30 lines
602 B
Plaintext
30 lines
602 B
Plaintext
Sub matrix()
|
|
'create an array,
|
|
Dim a(3) As Integer
|
|
Dim i As Integer
|
|
'assign a value to it,
|
|
For i = 1 To 3
|
|
a(i) = i * i
|
|
Next i
|
|
'and retrieve an element
|
|
For i = 1 To 3
|
|
Debug.Print a(i)
|
|
Next i
|
|
'dynamic
|
|
Dim d() As Integer
|
|
ReDim d(3)
|
|
For i = 1 To 3
|
|
d(i) = i * i
|
|
Next i
|
|
'and retrieve an element
|
|
For i = 1 To 3
|
|
Debug.Print d(i)
|
|
Next i
|
|
'push a value to it - expand the array and preserve existing values
|
|
ReDim Preserve d(4)
|
|
d(4) = 16:
|
|
For i = 1 To 4
|
|
Debug.Print d(i)
|
|
Next i
|
|
End Sub
|