2 : ( ).
, , . 255 . . , . , .
. 12 .
. .
, . .
.
, () .
:
) (). ()
Dim Massiv$(20)
;
) ()
Public Massiv(20) As String - 21 0 20
Global
) ,
Private Sub...........
Static Massiv A(20)
.
)
Dim DYNMAS() As String
Private Sub...........
Dim N %
ReDim DYNMAS(N) As String
ReDim .
ReDim Preserve DYNMAS(N+1) As String
(N-1)
) ,
Public DYNMAS() As String
Global
ReDIM .
INPUT BOX, .
0, 1 - Option Base 1 ().
Dim A(19)
Dim A (1980 TO 2000)
Erase DYNMAS/ Erase .