【正文】 …… 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īng)用示例 數(shù)組刷新語句可以作用于動(dòng)態(tài)數(shù)組和靜態(tài)數(shù)組 格式： Erase 數(shù)組名 [，數(shù)組名 ]… 功能： 該語句用來清除靜態(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語句將數(shù)組重新初始化 。查找標(biāo)記， 0表示未找到 no = Val() For i = 1 To 6 If no = rm(i, 1) And no = rm(i, 2) Then = rm(i, 3) 39。小于中間數(shù)據(jù) bott = m 1 39。判是否數(shù)字 k = 0 39。統(tǒng)計(jì)共有多少個(gè)數(shù)字串 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 附錄 從字符串中抽取數(shù)字字符串 (例 ) (2)編寫程序代碼 功能要求： 用戶在文本框 (Text1)中輸入要處理的字符串內(nèi)容，單擊“處理”按鈕 (Command1)后，則按要求取出各個(gè)數(shù)字串并顯示在列表框 List1中，統(tǒng)計(jì)出數(shù)字串的個(gè)數(shù)并顯示在標(biāo)簽 Label3 Private Sub Command1_Click() k = 0 : n = 1 : s = 39。若超出學(xué)號(hào)范圍 , 置特殊標(biāo)志 2 End If Do While flag = 1 And top = bott m = (top + bott) / 2 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)教室安排如表 。產(chǎn)生 10個(gè)隨機(jī)數(shù) a(i) = Int(91 * Rnd + 10) Print a(i)。 _ 個(gè)學(xué)生的成績 , 輸入成績 )) Next i total = 0 For i = 1 To 5 39。找最高分 max = score(i) End If If min score(i) Then 39。 對(duì)動(dòng)態(tài)數(shù)組，Erase語句將釋放動(dòng)態(tài)數(shù)組所使用的內(nèi)存 數(shù)組刷新語句 (Erase) 與前面的循環(huán)語句 For...Next類似，都是用來執(zhí)行指定重復(fù)次數(shù)的循環(huán)。顯示教室號(hào)碼 flag = 1 39。上半部 Case no h(m) 39。非數(shù)字，置 k=0 Else If k = 0 Then n = n + 1 39。沉底數(shù)用紅色表示 Text1(n j + 1).ForeColor = RGB(255, 0, 0) Next j MsgBox 排序完畢 “ End Sub 輸入一個(gè)含有數(shù)字字符和非數(shù)字字符的字符串，如 t345+abc12spc2768t56? 將其中的數(shù)字串 (1至多個(gè)連續(xù)數(shù)字字符 )存放到列表框中，例如將 345放在第一行， 12放在第二行， 276放在第三行， 8放在第四行， 56放在第五行。取學(xué)號(hào) If no h(top) Or no h(bott) Then flag = 2 39。設(shè)定文本框中的字號(hào) End Sub Private Sub Option1_Click(Index As Integer) Select Case Index 39。累加同一列數(shù)據(jù) s = s + a(r, c) Next r Print k(c), Format(s / 5, .0) Next c End Sub 程序運(yùn)行結(jié)果 解題方法： (1)利用 Int(91*Rnd+10)產(chǎn)生值為 10到 100 使用 Randomize得到不同的隨機(jī)數(shù)序列 (2) 將 10個(gè)數(shù)放入數(shù)組 a a(1), a(2), a(3), … ， a(10) ① 從這 10個(gè)下標(biāo)變量中，選出最小值，通過交換把該值存入 a(1)中 ② 除 a(1)之外 (a(1)已存放最小值 )，從其余 9個(gè)下標(biāo)變量中選出最小值 (即10個(gè)數(shù)中的次小值 )，通過交換把該值存入 a(2)中 ③ 選出 a(3)～ a(10)中的最小值，通過交換，把該值存入 a(3) ④ 重復(fù)上述處理， 至 a(8)，可使 a(1)～ a(8)按小到大排列 ⑤ 第 9次處理，選出 a(9)及 a(10)中的最小值，通過交換把該值存入 a(9)中，此時(shí) a(10)存放的就是最大值 例 隨機(jī)產(chǎn)生十個(gè) 10～ 100的整數(shù)，用 “ 選擇排序法 ” 按值從小到大順序排序，最后輸出結(jié)果 排列要求 小 大 示例： a(1) a(2) a(3) a(4) 90 64 65 59 1. a(