求教一個數(shù)組的構建　[金字塔]

1、聲明數(shù)組。

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

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

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

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

Dim MyArray(10, 10) As Integer

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

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

Dim sngArray() As Single

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

LBound(arrayname[, dimension])

UBound(arrayname[, dimension])

語法包含下面部分：

部分 描述

arrayname 必需的。數(shù)組變量的名稱，遵循標準的變量命名約定。

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

3、ReDim 語句。ReDim 語句用來定義或重定義原來已經(jīng)用帶空圓括號（沒有維數(shù)下標）的 Private、Public 或 Dim 語句聲明過的動態(tài)數(shù)組的大小，其語法是：

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

ReDim 語句的語法包括以下幾個部分：

部分 描述

Preserve 可選的。關鍵字，當改變原有數(shù)組最末維的大小時，使用此關鍵字可以保持數(shù)組中原來的數(shù)據(jù)。

varname 必需的。變量的名稱；遵循標準的變量命名約定。

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

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

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

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

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

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

Dim MyArray(10, 10) As Integer

在金字塔中把As Integer去掉就能定義 不報錯了