動態數組及聲明11

動態數組：在聲明時未給出數組的大小。在程序執行時分配存儲空間。5.4.1動態數組的建立及使用

建立動態數組包括聲明和大小說明兩步：

1．在使用Dim、Private或Public語句聲明括號內為空的數組。格式：Dim|Private|Public數組名（）As數據類型例：Dimprivatea()AsInteger2．在過程中用ReDim語句指明該數組的大小。格式：ReDim[Preserve]數組名（下標1[，下標2…]）

Preserve參數：保留數組中原來的數據例：RedimA(10)RedimPreserveA(20)5.4動態數組說明：（1）ReDim語句是一個可執行語句，只能出現在過程中，并且可以多次使用，改變數組的維數和大小。（2）定長數組聲明時的下標只能是常量，而動態數組ReDim語句中的下標是常量，也可以是有了確定值的變量。例：

PrivateSubForm_Click()DimNAsIntegerN=Val(InputBox(“輸入N=？”))Dima(N)AsInteger…….Endsub×5.4動態數組

（3）在過程中可以多次使用ReDim來改變數組的大小，也可改變數組的維數。例：ReDimx(10)ReDimx(20)x(20)=30Printx(20)ReDimx(20,5)x(20,5)=10Printx(20,5)

（4）每次使用ReDim語句都會使原來數組中值丟失，可以在ReDim后加Preserve參數來保留數組中的數據。但此時只能改變最后一維的大小。5.4動態數組例

Redim語句和Preserve語句的使用。5.4動態數組

5.4.2與數組操作有關的幾個函數Array函數Array函數可方便地對數組整體賦值，但它只能給聲明Variant的變量或僅由括號括起的動態數組賦值。賦值后的數組大小由賦值的個數決定。形式：數組名=Array(數據列表)

例如，要將1,2,3,4,5,6,7這些值賦值給數組a，可使用下面的方法賦值。Dima()‘由括號括起的動態數組A=array(1,2,3,4,5,6,7)Dima‘Variant的變量A=array(1,2,3,4,5,6,7)5.4動態數組2求數組的上界Ubound()函數、下界Lbound()函數

Ubound()函數和Lbound()函數分別用來確定數組某一維的上界和下界值。使用形式如下：

UBound(<數組名>[,<N>])LBound(<數組名>[,<N>])

其中：<數組名>：數組變量的名稱，遵循標準變量命名約定。<N>

：可選的；一般是整型常量或變量。指定返回哪一維的上界。1表示第一維，2表示第二維，如此等等。如果省略默認是1。5.4動態數組例：使用LBound和Ubound函數求數組的上界和下界。5.4動態數組例如，如下程序段對a,b數組賦值，并顯示輸出結果。3．Split函數使用格式：Split(<字符串表達式>[,<分隔符>])說明：使用Split函數可從一個字符串中，以某個指定符號為分隔符，分離若干個子字符串，建立一個下標從零開始的一維數組。5.4動態數組輸入一系列的數據，并將它們分離后存放在數組中。對輸入

的數據允許修改和自動識別非數字數據。

（1）利用文本框輸入和編輯數據，輸入時去除非法數字。合法字符包括數字、逗號（，）、小數點（.）和負號（-）。2）輸入結束利用Replace函數去除重復輸入的分隔符；將重復的分隔符（，，）替換成（，）Replace的用法：Replace（c，c1，c2），作用是在c字符串用c2代替c1，如Replace（“ABCDABCD”,”CD”,”123”）,結果是AB123AB1235.4動態數組3）對利用Split函數按分隔符分離，放到數組中；Split的用法：Split（c，d），作用是將c字符串按分隔符d分割成字符數組，s=Split（“123,56，ab”，“，”）結果為s（0）=123，s（1）=“56”，s（2）=“ab”。4）利用Join函數將數組中各元素合并成一個字符串。Join的用法：Join（a，d），作用是將數組a中各元素按d分隔符連接成字符串變量。A=Join（“123”，“ab”，“c”），結果為