1、浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業 動態數組：在聲明時未給出數組的大小。在程序執行時分動態數組：在聲明時未給出數組的大小。在程序執行時分配存儲空間。配存儲空間。5.4.1 動態數組的建立及使用動態數組的建立及使用 建立動態數組包括聲明和大小說明兩步：建立動態數組包括聲明和大小說明兩步： 1在使用在使用Dim、Private或或Public語句聲明括號內為空的數組。語句聲明括號內為空的數組。 格式：格式：Dim | Private|Public 數組名（

2、）數組名（）As 數據類型數據類型 例：例：Dim private a() As Integer 2在過程中用在過程中用ReDim語句指明該數組的大小。語句指明該數組的大小。 格式：格式：ReDim Preserve 數組名（下標數組名（下標1，下標，下標2） Preserve參數：保留數組中原來的數據 例：例： Redim A(10) Redim Preserve A(20)5.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業說明：說明： （

3、1）ReDim語句是一個語句是一個可執行語句可執行語句，只能出現在過程中，只能出現在過程中，并且可以并且可以多次使用多次使用，改變數組的維數和大小。，改變數組的維數和大小。 （2）定長數組聲明時的下標只能是常量，而動態數組）定長數組聲明時的下標只能是常量，而動態數組ReDim 語句中的下標是常量，也可以是有了確定值的變量。語句中的下標是常量，也可以是有了確定值的變量。 例：例： Private Sub Form_Click() Dim N As Integer N=Val(InputBox(“輸入輸入N=？”) Dim a(N) As Integer . End sub5.4 動態數組動態數組

4、 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業 （3）在過程中可以多次使用）在過程中可以多次使用ReDim來改變數組的來改變數組的大小大小，也可也可 改變數組的改變數組的維數維數。 例：例：ReDim x(10) ReDim x(20) x(20) = 30 Print x(20) ReDim x(20, 5) x(20, 5) = 10 Print x(20, 5) （4）每次使用）每次使用ReDim語句都會使原來數組中值丟失，可語句都會使原來數組中值丟失，可

5、以在以在ReDim后加后加Preserve 參數來保留數組中的數據參數來保留數組中的數據。但此時。但此時 只能改變最后一維的大小。只能改變最后一維的大小。5.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業例例 RedimRedim語句和語句和PreservePreserve語句的使用。語句的使用。5.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Ne

6、t目錄5.1 5.2 5.3 5.4 5.5 小結 作業 5.4.2 與數組操作有關的幾個函數與數組操作有關的幾個函數Array函數函數Array函數可方便地對數組整體賦值，但它只能給聲明函數可方便地對數組整體賦值，但它只能給聲明Variant的變量的變量或僅或僅由括號括起的動態數組由括號括起的動態數組賦值。賦值后的數賦值。賦值后的數組大小由賦值的個數決定。組大小由賦值的個數決定。 形式：數組名形式：數組名 = Array(數據列表數據列表) 例如，要將例如，要將1,2,3,4,5,6,7 這些值賦值給數組這些值賦值給數組a，可使用下，可使用下面的方法賦值。面的方法賦值。Dim a() 由括號

7、括起的動態數組由括號括起的動態數組A=array(1,2,3,4,5,6,7)Dim a Variant的變量的變量A=array(1,2,3,4,5,6,7)5.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業 2 求數組的上界求數組的上界Ubound( )函數、函數、 下界下界 Lbound( )函數函數 Ubound( )函數和函數和Lbound( )函數函數分別用來確定數組某一維的分別用來確定數組某一維的上界上界和和下界值下界值。使用形

8、式如下：使用形式如下： UBound(, ) LBound( , ) 其中：其中：數組變量的名稱，遵循標準變量命名約定。數組變量的名稱，遵循標準變量命名約定。：可選的；一般是整型常量或變量。指定返回哪一維的：可選的；一般是整型常量或變量。指定返回哪一維的上界。上界。1 表示第一維，表示第一維，2 表示第二維，如此等等。如果省略默表示第二維，如此等等。如果省略默認是認是1。5.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業例：使用例：使用LBo

9、und和和Ubound函數求數組的上界和下界。函數求數組的上界和下界。浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業5.4 動態數組動態數組 例如，如下程序段對例如，如下程序段對a,b數組賦值，并顯示輸出結果。數組賦值，并顯示輸出結果。浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業3Split函數函數使用格式：使用格式：Split(

10、,)說明：說明： 使用使用Split函數可從一個字符串中，以某個指定符號為分隔函數可從一個字符串中，以某個指定符號為分隔符，分離若干個子字符串，建立一個下標從零開始的一維數組。符，分離若干個子字符串，建立一個下標從零開始的一維數組。5.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業 輸入一系列的數據，并將它們分離后存放在數組輸入一系列的數據，并將它們分離后存放在數組中。對輸入中。對輸入 的數據允許修改和自動識別非數字數據。的數據允許修改和自動

11、識別非數字數據。 （1）利用文本框輸入和編輯數據，輸入時去除非法數字。）利用文本框輸入和編輯數據，輸入時去除非法數字。合法字符包括數字、逗號（，）、小數點合法字符包括數字、逗號（，）、小數點（.）和負號（）和負號（-）。）。 2）輸入結束利用）輸入結束利用Replace函數去除重復輸入的分隔符；函數去除重復輸入的分隔符；將重復的分隔符（，）替換成（，）將重復的分隔符（，）替換成（，） Replace的用法：的用法： Replace （c，c1，c2），作用是在），作用是在c字符串字符串用用c2代替代替c1，如，如Replace（“ABCDABCD”,”CD”,”123”）,結結果是果是AB12

12、3AB1235.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業 3）對利用）對利用Split函數按分隔符分離，放到數組中；函數按分隔符分離，放到數組中； Split的用法：的用法： Split（c，d），作用是將），作用是將c字符串按分字符串按分隔符隔符d分割成字符數組，分割成字符數組，s= Split（“123,56，ab”，“，”）結果為結果為s（0）=123，s（1）=“56”，s（2）=“ab”。 4）利用）利用Join函數將數組中各

13、元素合并成一個字符串。函數將數組中各元素合并成一個字符串。Join的用法：的用法： Join（a，d），作用是將數組），作用是將數組a中各元素按中各元素按d分分隔符連接成字符串變量。隔符連接成字符串變量。A= Join（“123”，“ab”，“c”），），結果為結果為123abc。5.4 動態數組動態數組 浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5.2 5.3 5.4 5.5 小結 作業5.4 動態數組動態數組 文本框輸入和編輯數據：文本框輸入和編輯數據：浙江科技學院教信系計算機基礎教學網站：浙江科技學院教信系計算機基礎教學網站：www.Goit.Netwww.Goit.Net目錄5.1 5