一、數(shù)組的分類
1.按維數(shù)分：一維,二維，多維
我是這樣理解的，線是由點組成的，面是由線組成的，一維數(shù)組就像一條線，如我們工作表里的行，列，一行里的單元格，一列里的單元格就是數(shù)組里的元素，我通常把它叫做數(shù)組里的成員，二維數(shù)組就像一個面，如我們的工作表就是一個平面，工作表里的單元格也是二組數(shù)組里的元素.
2.按空間結(jié)構(gòu)大小是否改變分：靜態(tài)數(shù)組和動態(tài)數(shù)組
Option Explicit
Sub 靜態(tài)數(shù)組1()'這個是表示8行1列的一維數(shù)組
Dim arr1(1 To 8)
End Sub
Sub 靜態(tài)數(shù)組2()'這個是表示8行2列的二數(shù)數(shù)組
Dim arr1(1 To 8, 1 To 2)
End Sub
Sub 靜態(tài)數(shù)組3()'這個是表示9行1列的一維數(shù)組
Dim arr1(8)
End Sub
Sub 靜態(tài)數(shù)組4()' 這個是表示9行3列的二維數(shù)組
Dim arr1(8, 2)
End Sub
上面是靜態(tài)的數(shù)組
===========================================================
Option Explicit
Sub 動態(tài)數(shù)組1()
Dim x%
Dim arr1()'定義動態(tài)數(shù),為什么要定義動態(tài)數(shù)組呢,是因為我們剛開始時不知數(shù)組的空間結(jié)構(gòu),所以用dim arr1()
x = 5
ReDim arr1(1 To 5)'由于我們后來可以確定它的大小 ,所以用關(guān)鍵詞Redim重新給數(shù)組arr1分配空間,5行1列的一維數(shù)組
x = 10
ReDim arr1(1 To 10)'又重新給數(shù)組arr1分配空間,10行1列的一維數(shù)組,不過大家要注意,如果沒有加Preserve ,重新分配空間之后,會刪除前面的值,也就是說不會
''保留數(shù)組原有值,這一點很重要.同學(xué)們一定要記住.
End Sub
Sub 動態(tài)數(shù)組2()
Dim x%
Dim arr1()
x = 5
x = 10
ReDim arr1(1 To 10, 1 To x)
End Sub
ReDim arr1(1 To 5, 1 To x)'表示5行5列的二維數(shù)組,有的同學(xué)說,老師,可不可以把定義成這樣,Dim arr1(1 to x,1 to 5),答案是否定的,不可以,也就是我們只能改變末維的大小,如三維的 Redim (1 to 1 ,1 to 1, 1 to x),也就是說我們變量只能放在三維上,不能放在一維Redim (1 to x,1 to 1, 1 to 1),
也不能放在二維上 如Redim (1 to x,1 to x, 1 to 1),
正確的定義:Redim (1 to 1 ,1 to 1, 1 to x),
錯誤的定義:Redim (1 to x,1 to 1, 1 to 1)
錯誤的定義:Redim (1 to x,1 to x, 1 to 1)
Sub 動態(tài)數(shù)組3()
Dim x%
Dim arr1()
x = 1
ReDim Preserve arr1(1 To 2, 1 To x)'表示2行1列的二維數(shù)組且保留原有值
x = 2
ReDim arr1(1 To 2, 1 To x)'表示2行2列的二維數(shù)組且保留原有值
End Sub
上面是動態(tài)數(shù)組
===================================================
下面是一段對白：
小白學(xué)生說：,我的老鼠老師,你說了那么一大堆,
漢……
哇……啦……啦……啦……啦……啦……
看得我云里霧里了,我都暈倒電腦旁邊
老鼠老師說：我的親：您可千萬別暈啊，您暈了沒有人關(guān)電腦了，我可不會幫你關(guān)機！
小白學(xué)生說：那老鼠老師您有沒有什么絕招讓我們不暈啊？
老鼠老師說：有啊，其實，我早就告訴您了，那一個神器，只是你上課不認真呢？
小白學(xué)生說：我的好老師，你就別買關(guān)子了，就告訴我們吧
老鼠老師說：再學(xué)習(xí)一遍一樓的帖
小白學(xué)生說：老鼠老師，我明白了，視圖菜單，本地窗口，把光標點到你要測試代碼里，F(xiàn)8逐步運行，查看本地窗口，哈哈，點一個那個節(jié)點+號，原來數(shù)組的空間結(jié)構(gòu)一目了然了。明白了明白了。真開心啊
老鼠老師說：真聰明
總結(jié)一下，不開玩笑了，言歸正傳
我們現(xiàn)在舉一個實例來學(xué)習(xí)
打開excel程序--->alt+f11---->插入菜單--->插入模塊---> 把下面代碼復(fù)制到模塊里去
Sub 動態(tài)數(shù)組理解()
Dim arr1(), x% '定義變量
x = 1 '第一次給x賦值為1
ReDim arr1(1 To 2, 1 To x) '給數(shù)組arr1分配空間,2行1列的二維數(shù)組
arr1(1, 1) = "佛山小老鼠" '把"佛山小老鼠"賦值給arr1里第1行第1列位置
arr1(2, 1) = "學(xué)生" '把"學(xué)生"賦值給arr1里第1行第2列位置
x = 2 '第二次給x賦值為1
ReDim Preserve arr1(1 To 2, 1 To x) '再給數(shù)組arr1重新分配空間,2行2列的二維數(shù)組
'且保留原有值
arr1(1, 2) = 99 '把99賦值給數(shù)組arr1里第1行第2列位置
arr1(2, 2) = 88 '把88賦值給數(shù)組arr1里第1行第2列位置
End Sub
同學(xué)們注意,把光標點到上面這段代碼里 F8逐上步運行,按照老師下面的截圖步驟
