【正文】 ReDim Preserve a(k) For i = 1 To k Print a(i) Next i End Sub 例 ReDim語(yǔ)句應(yīng)用示例 數(shù)組刷新語(yǔ)句可以作用于動(dòng)態(tài)數(shù)組和靜態(tài)數(shù)組 格式： Erase 數(shù)組名 [，數(shù)組名 ]… 功能： 該語(yǔ)句用來(lái)清除靜態(tài)數(shù)組的內(nèi)容，或者釋放動(dòng)態(tài)數(shù) 例如 : Dim Array1(20) As Integer Dim Array2() As Single ReDim Array2(9,10) ?? Erase Array1,Array2 對(duì)靜態(tài)數(shù)組， Erase語(yǔ)句將數(shù)組重新初始化 。產(chǎn)生 10個(gè)隨機(jī)數(shù) a(i) = Int(91 * Rnd + 10) Print a(i)。輸出 20個(gè)減號(hào)“ ” Print String(20, ) For r = 1 To 5 s = 0 39。程序中設(shè)置兩重循環(huán)，用以 實(shí)現(xiàn)每行和每列上的累加 。設(shè)定初值 min = score(1) For i = 2 To 10 If max score(i) Then 39。 _ 個(gè)學(xué)生的成績(jī) , 輸入成績(jī) )) Next i total = 0 For i = 1 To 5 39。處理成批的數(shù)據(jù)時(shí)，必須使用數(shù)組來(lái)處理表示 100個(gè)學(xué)生的成績(jī)，采用簡(jiǎn)單變量來(lái)表示： s1， s2， s3， … s99 ， s100 采用數(shù)組來(lái)表示： t(0), t(1), t(2),… t(98), t(99) t(k) (k=0,1,2,…99) 為數(shù)組元素 (或稱 下標(biāo)變量 )，它表示第 k個(gè)學(xué)生的成績(jī) , k稱為下標(biāo)變量的 下標(biāo) 數(shù)組的一個(gè)主要特點(diǎn)是通過下標(biāo) (相當(dāng)于索引 )來(lái)引用數(shù)組元素 數(shù)組的概念 例如計(jì)算這 100個(gè)學(xué)生成績(jī)的平均分，可用： S＝ 0 For k=0 To 99 S = S + t(k) ‘ 累加分?jǐn)?shù) Next k Aver=S/100 ‘ 求平均分 數(shù)組是一組按一定順序排列的數(shù)據(jù)的集合 例如，學(xué)生成績(jī)Ｔ＝ [t(0), t(1), … t(99) ] 是一個(gè)數(shù)組 a11 a12 a13 A＝ a21 a22 a23 a31 a31 a33 也是一個(gè)數(shù)組 數(shù)組名 (不能與簡(jiǎn)單變量同名 )；數(shù)組類型 又稱有序的變量 ——下標(biāo)變量 默認(rèn)情況下，下標(biāo)從 0開始 例如，由一行共 5個(gè)元素組成的數(shù)組 x，它的 5個(gè)下標(biāo)變 x(0) x(1) x(2) x(3) x(4) 由三行四列元素組成的數(shù)組 y，它的 12個(gè)下標(biāo)變量可表 y(0,0) y(0,1) y(0,2) y(0,3) y(1,0) y(1,1) y(1,2) y(1,3) y(2,0) y(2,1) y(2,2) y(2,3) 下標(biāo)變量 與 簡(jiǎn)單變量 具有基本相同的性質(zhì)和作用 數(shù)組元素 下標(biāo)用來(lái)標(biāo)明該下標(biāo)變量在數(shù)組中的位置 下標(biāo)可以是常數(shù)值，也可以是變量 (包括下標(biāo)變量 )或數(shù)值表達(dá)式 例如： 若 x(2)=10, k=2，則 y(x(2))就是 y(10), y(x(2)+k)就是 y(12) 只要有規(guī)則地改變下標(biāo)值，就可以很方便地使下標(biāo)變量(如 a(i))成為所需要的具體下標(biāo)變量 數(shù)組的維數(shù) 下標(biāo)和數(shù)組的維數(shù) 數(shù)組聲明語(yǔ)句 使用數(shù)組之前，一般需要定義數(shù)組，以便讓系統(tǒng)分配相應(yīng)的存儲(chǔ)單元。格式為： Dim 數(shù)組名 ([下界 1 to]上界 1[,[下界 2 to]上界2?])[As 數(shù)據(jù)類型 ] 功能：指定數(shù)組的維數(shù)、各維的上下界和數(shù)據(jù)類型 舉例： Dim Sum(10) As Long ?下標(biāo)號(hào)從 0～ 10，共 11個(gè)元素 Dim Ary(1 to 20) As Integer ?下標(biāo)號(hào)從 1～ 20，共 20個(gè)元素 Dim d(1 to 5,1 to 10) As Double ?定義二維數(shù)組 還可以使用 Public、 Static、 Private等語(yǔ)句來(lái)聲明數(shù)組 數(shù)組的聲明和應(yīng)用 設(shè)定下界的方法 Option Base 1 ?設(shè)定下界為 1 Dim Data(10) As Single ?下標(biāo)號(hào)從 1～ 10 Array函數(shù) 使用 Array函數(shù)可以為數(shù)組元素賦值 示例 Dim D As Variant ?定義數(shù)組名 (變體類型 ) D = Array(1, 2, 3, 4) 執(zhí)行結(jié)果： 1→D(0) ， 2→D(1), 3→D(2), 4→D(3) 例 輸入某小組 5個(gè)同學(xué)的成績(jī)，計(jì)算總分和平均分 (取小數(shù)后一位 ) 本例利用 InputBox函數(shù)來(lái)輸入成績(jī)，輸入完畢后經(jīng)過計(jì)算，再采用 Print直接在窗體上輸出結(jié)果 數(shù)組的應(yīng)用 Private Sub Form_Load() Dim d(5) As Integer Dim i As Integer, total As Single, average As Single Show For i = 1 To 5 39。計(jì)算總分和平均分 total = total + d(i) Next i average = total / 5 Print 總分： amp。找最高分 max = score(i) End If If min score(i) Then 39。本例采用賦值語(yǔ)句來(lái)輸入學(xué)生成績(jī)，并采用 Print直接在窗體上輸出結(jié)果 r=1 c=1, 2, 3 r=2 c=1, 2, 3 r=3 c=1, 2, 3 r=4 c=1, 2, 3 r=5 c=1, 2, 3 求 5個(gè)學(xué)生的平均分 下標(biāo)使用情況 來(lái)自 中國(guó)最大的資料庫(kù)下載 Option Base 1 Private Sub Form_Load() Dim a(5, 3) As Integer Dim r As Integer, c As Integer, s As Integer k = Array(數(shù)學(xué) , 英語(yǔ) , 計(jì)算機(jī) ) 39。累加前清 0 For c = 1 To 3 39。 Next i (3) 程序結(jié)構(gòu) Print: Print For i = 1 To 9 For j = i + 1 To 10 If