µ±Ç°Î»ÖãºÊ×Ò³ > µÚ06Õ Êý×é
±í£©£ÛAs ÀàÐÍ£Ý
ÓÃPreserve£¬ÖØÐ¶¨ÒåÖ®ºó£¬±£ÁôÔÓÐÔªËØÖµ
ϱêµÄÉϽçºÍϽç¿ÉÒÔÊdz£Á¿¡¢±äÁ¿»ò±í´ïʽ
2.¶¨Òå·½·¨
¡¾·½·¨1¡¿
ÏÈÓÃDim»òPublicÉùÃ÷Ò»¸öûÓÐϱêµÄÊý×é
ÔÙÓÃReDimÓï¾ä¸Ä±äÊý×éµÄ´óС¡¢Î¬Êý£¬
5
²»ÄܸıäÊý¾ÝÀàÐÍ
Àý6.2 ¶à´ÎÓÃReDimÓï¾ä¶¨Òåͬһ¸öÊý×é
6
Dim S() As String Private Sub Form_Click() ReDimS(4) S(2) = \ Print S(2) ReDimS(6 + 1) S(5) = \ Print S(5) ReDimS(2, 3) S(1, 1) = \ Print S(1, 1)
End Sub
¡¾·½·¨2¡¿
ÓÃReDimÓï¾äÖ±½Ó¶¨ÒåÊý×é
Ö»¿É¸Ä±ä´óС£¬µ«²»ÄܸıäÀàÐÍ¡¢Î¬Êý
Àý6.3ÓÃReDimÓï¾äÖ±½Ó¶¨ÒåÊý×é
Private Sub Form_Click() ReDim var(3) As Integer Ö±½Ó¶¨ÒåÊý×é
ReDim var(2) '
¸Ä±äÊý×éµÄ´óС
ReDim var(2) As Single ´íÎ󣬲»ÄܸıäÀàÐÍ
'
'
7
ReDim var(2, 3) '
´íÎ󣬲»ÄܸıäάÊý
End Sub
6.3 Êý×éÔªËØµÄʹÓÃ
6.3.1 Êý×éÔªËØµÄÒýÓᢸ³Öµ¡¢Êä³öºÍ¸´
ÖÆ
1£®Êý×éÔªËØµÄÒýÓÃ
ͨ¹ýÊý×éÃûºÍϱê·ÃÎÊÖ¸¶¨µÄÔªËØ
Óë¼òµ¥±äÁ¿µØÎ»¡¢×÷ÓÃÏ൱
8
¹²·ÖÏí92ƪÏà¹ØÎĵµ