1、聲明數(shù)組。

數(shù)組的聲明方式和其它的變量是一樣的，它可以使用Dim、Static、Private 或 Public 語(yǔ)句來(lái)聲明。標(biāo)量變量（非數(shù)組）與數(shù)組變量的不同在于通常必須指定數(shù)組的大小。若數(shù)組的大小被指定的話(huà)，則它是個(gè)固定大小數(shù)組。若程序運(yùn)行時(shí)數(shù)組的大小可以被改變，則它是個(gè)動(dòng)態(tài)數(shù)組。

數(shù)組是否從0 或1 索引是根據(jù)Option Base 語(yǔ)句的設(shè)置。如果Option Base 沒(méi)有指定為 1，則數(shù)組索引從零開(kāi)始。

（1）聲明固定大小的數(shù)組

下面這行代碼聲明了一個(gè)固定大小的數(shù)組，它是個(gè) 11 行乘以 11 列的 Integer 數(shù)組：

Dim MyArray(10, 10) As Integer

（2）聲明動(dòng)態(tài)數(shù)組

若聲明為動(dòng)態(tài)數(shù)組，則可以在執(zhí)行代碼時(shí)去改變數(shù)組大小。可以利用 Static、Dim、Private 或 Public 語(yǔ)句來(lái)聲明數(shù)組，并使括號(hào)內(nèi)為為空，如下示例所示。

Dim sngArray() As Single

2、獲得數(shù)組的最大與最小下標(biāo)。利用LBound 函數(shù)與UBound 函數(shù)函數(shù)可以分別來(lái)獲得數(shù)組的最小與最大下標(biāo)，其語(yǔ)法是：

LBound(arrayname[, dimension])

UBound(arrayname[, dimension])

語(yǔ)法包含下面部分：

部分 描述

arrayname 必需的。數(shù)組變量的名稱(chēng)，遵循標(biāo)準(zhǔn)的變量命名約定。

dimension 可選的；Variant (Long)。指定返回哪一維的下界。1 表示第一維，2 表示第二維，如此類(lèi)推。如果省略dimension，就認(rèn)為是 1。

3、ReDim 語(yǔ)句。ReDim 語(yǔ)句用來(lái)定義或重定義原來(lái)已經(jīng)用帶空?qǐng)A括號(hào)（沒(méi)有維數(shù)下標(biāo)）的 Private、Public 或 Dim 語(yǔ)句聲明過(guò)的動(dòng)態(tài)數(shù)組的大小，其語(yǔ)法是：

ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .

ReDim 語(yǔ)句的語(yǔ)法包括以下幾個(gè)部分：

部分 描述

Preserve 可選的。關(guān)鍵字，當(dāng)改變?cè)袛?shù)組最末維的大小時(shí)，使用此關(guān)鍵字可以保持?jǐn)?shù)組中原來(lái)的數(shù)據(jù)。

varname 必需的。變量的名稱(chēng)；遵循標(biāo)準(zhǔn)的變量命名約定。

subscripts 必需的。數(shù)組變量的維數(shù)；最多可以定義 60 維的多維數(shù)組。subscripts 參數(shù)使用下面的語(yǔ)法：

[lower To] upper [,[lower To] upper] . . .

如果不顯式指定lower，則數(shù)組的下界由Option Base 語(yǔ)句控制。如果沒(méi)有Option Base 語(yǔ)句則下界為 0。

type 可選的。變量的數(shù)據(jù)類(lèi)型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（對(duì)變長(zhǎng)的字符串）、String * length（對(duì)定長(zhǎng)的字符串）、Object、Variant、用戶(hù)定義類(lèi)型或?qū)ο箢?lèi)型。所聲明的每個(gè)變量都要有一個(gè)單獨(dú)的 As type 子句。對(duì)于包含數(shù)組的 Variant 而言，type 描述的是該數(shù)組的每個(gè)元素的類(lèi)型，不能將此 Variant 改為其它類(lèi)型。

可以使用 ReDim 語(yǔ)句反復(fù)地改變數(shù)組的元素以及維數(shù)的數(shù)目，但是不能在將一個(gè)數(shù)組定義為某種數(shù)據(jù)類(lèi)型之后，再使用ReDim 將該數(shù)組改為其它數(shù)據(jù)類(lèi)型，除非是 Variant 所包含的數(shù)組。如果該數(shù)組確實(shí)是包含在某個(gè)Variant 中，且沒(méi)有使用Preserve 關(guān)鍵字，則可以使用As type 子句來(lái)改變其元素的類(lèi)型，但在使用了此關(guān)鍵字的情況下，是不允許改變?nèi)魏螖?shù)據(jù)類(lèi)型的。

如果使用了Preserve關(guān)鍵字，就只能重定義數(shù)組最末維的大小，且根本不能改變維數(shù)的數(shù)目。例如，如果數(shù)組就是一維的，則可以重定義該維的大小，因?yàn)樗亲钅┚S，也是僅有的一維。不過(guò)，如果數(shù)組是二維或更多維時(shí)，則只有改變其最末維才能同時(shí)仍保留數(shù)組中的內(nèi)容。

Dim MyArray(10, 10) As Integer

在金字塔中把As Integer去掉就能定義 不報(bào)錯(cuò)了