【文章內(nèi)容簡(jiǎn)介】 改變數(shù)組的大小，提高存儲(chǔ)區(qū)的使用效率 建立動(dòng)態(tài)數(shù)組 建立動(dòng)態(tài)數(shù)組的步驟： 第一步：聲明一個(gè)沒(méi)有下標(biāo) (或稱空維數(shù) )的數(shù)組為動(dòng)態(tài)數(shù)組 第二步：在過(guò)程中用 ReDim語(yǔ)句重新定義帶下標(biāo)的動(dòng)態(tài)數(shù)組 ReDim語(yǔ)句 格式 ： ReDim [Preserve] 數(shù)組名 ([下界 1 T0] 上界 1[， [下界２ T0] 上界 2…]) [As 數(shù)據(jù)類型 ] 功能： 重新定義動(dòng)態(tài)數(shù)組，按定義的上下界重新分配存儲(chǔ)單元 動(dòng)態(tài)數(shù)組 聲明 F為動(dòng)態(tài)數(shù)組的示例： Private Sub Command1_Click() Dim F() As Integer ?聲明一個(gè)整型動(dòng)態(tài)數(shù)組 …… Size=20 ReDim F(Size) …… End Sub 每次執(zhí)行 ReDim時(shí)，系統(tǒng)會(huì)清除指定數(shù)組的內(nèi)容 若采用： ReDim Preserve F(Size) 則能保留數(shù)組中原有的數(shù)據(jù) Private Sub Form_Load() Dim a() As Integer Show ReDim a(800) k = 0 For x = 200 To 600 Step 3 If x Mod 8 = 0 Then k = k + 1 a(k) = x End If Next x 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ù)組重新初始化 。 對(duì)動(dòng)態(tài)數(shù)組，Erase語(yǔ)句將釋放動(dòng)態(tài)數(shù)組所使用的內(nèi)存 數(shù)組刷新語(yǔ)句 (Erase) 與前面的循環(huán)語(yǔ)句 For...Next類似，都是用來(lái)執(zhí)行指定重復(fù)次數(shù)的循環(huán)。但 For Each...Next語(yǔ)句專門作用于數(shù)組或?qū)ο蠹现械拿恳怀蓡T。語(yǔ)法格式： For Each 成員 In 數(shù)組名 循環(huán)體 [Exit For] Next 成員 “成員”是一個(gè) Variant變量，它實(shí)際上代表數(shù)組中每一個(gè)元素 本語(yǔ)句可以對(duì)數(shù)組元素進(jìn)行讀取、查詢或顯示，它所重復(fù)執(zhí)行的次數(shù)由數(shù)組中元素的個(gè)數(shù)確定 在不知道數(shù)組中元素的數(shù)目時(shí)非常有用 For Each...Next循環(huán)語(yǔ)句 Private Sub Form_Load() Dim a(1 To 10) As Long, sum As Long, t As Long Dim n As Integer Show t = 1 For n = 1 To 10 t = t * n a(n) = t Next n sum = 0 For Each x In a sum = sum + x Next x Print 1! + 2! + 3! + …… 10! =。 sum End Sub 1! + 2! + 3! + … + 10! ＝ 4037913 例 求 1! + 2! + … + 10! 的值 兩類數(shù)組： 一般數(shù)組 和 控件數(shù)組 控件數(shù)組的概念 控件數(shù)組是一組具有相同名稱、類型和事件過(guò)程的控件 例如， Label1(0)， Label1(1)， Label1(2)， …… 但 Label1, Label2, Label3, …… 不是控件數(shù)組 (1)相同的控件名稱 (即 Name屬性 ) (2)控件數(shù)組中的控件具有相同的一般屬性； (3)所有控件共用相同的事件過(guò)程。 以下標(biāo)索引值 (Index)來(lái)標(biāo)識(shí)各個(gè)控件，第一個(gè)下標(biāo)索引號(hào)為 0 控件數(shù)組 控件數(shù)組的建立 建立控件數(shù)組有三種方法： (1) (2) (3)將控件的 Index屬性設(shè)置為非 Null數(shù)值 控件數(shù)組的使用 例 按圖 ，其中一組 (共 5個(gè) )單選按鈕構(gòu)成控件數(shù)組，要求當(dāng)單擊某個(gè)單選按鈕時(shí)，能夠改變文本框中文字的大小 控件數(shù)組 設(shè)計(jì)步驟： (1)設(shè)計(jì)控件數(shù)組 Option1，其中包含 5個(gè)單選按鈕對(duì)象 具體操作方法： ① 畫出第一個(gè)單選按鈕控件，名稱采用默認(rèn)的 Option1。此 ② 單擊工具欄上的“復(fù)制”按鈕 (或按 Ctrl+C)。 ③ 單擊工具欄上的“粘貼”按鈕 (或按 Ctrl+V)，此時(shí)系統(tǒng)彈出一個(gè)如圖 單擊“是”，就建立一個(gè)控件數(shù)組元素，其 Index屬性為 1，而已畫出的第一個(gè)控件的 Index屬性值為 0。 通過(guò)鼠標(biāo)拖放可以調(diào)整新控件的位置 ④ 繼續(xù)單擊“粘貼”按鈕 (或按 Ctrl+V)和調(diào)整控件位置，可得到控件數(shù)組中的其他三個(gè)控件，其 Index屬性值分別為 2，3和 4(即從上而下為 0， 1， 2， 3， 4) ⑤ 設(shè)置控件數(shù)組各元素 (從上而下 )的 Caption屬性分別為10， 14， 18， 24和 28 (2)建立一個(gè)文本框 Text1，其 Text屬性設(shè)置為“控件數(shù)組的使用”。 再建立一個(gè)標(biāo)簽 ，其 Caption屬性為“字號(hào)控制” (3)編寫程序代碼 Private Sub Form_Load() Option1(0).Value = True 39。選定第一個(gè)單選按鈕 = 10 39。設(shè)定文本框中的字號(hào) End Sub Private Sub Option1_Click(Index As Integer) Select Case Index 39。系統(tǒng)自動(dòng)返回 Index值 Case 0 = 10 Case 1 = 14 Case 2 = 18 Case 3 = 24 Case 4 = 28 End Select End Sub 程序舉例 例 查找考場(chǎng)教室號(hào) 某課程統(tǒng)考憑準(zhǔn)考證入場(chǎng)，考場(chǎng)教室安排如表 。編制程序，查找準(zhǔn)考證號(hào)碼所對(duì)應(yīng)的教室號(hào)碼 (1)分析 ：為便于查找，通過(guò)二維數(shù)組 rm建立這兩種號(hào)碼對(duì)照表。 數(shù)組 rm由 Form_Load事件過(guò)程來(lái)建立，它的每一行存放了一個(gè)教室資料 (包含準(zhǔn)考證號(hào)碼范圍和教室號(hào)碼 )。當(dāng)判斷到某個(gè)給定準(zhǔn)考證號(hào)碼落在某一行的準(zhǔn)考證號(hào)碼范圍內(nèi)時(shí)，則該行中的教室號(hào)碼為所求 (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 (3)編寫程序代碼 功能要求： 用戶在文本框 Text1中輸入準(zhǔn)考證號(hào)碼