利用數(shù)組可以有效地存儲和處理成批數(shù)據(jù)本章主要內(nèi)容數(shù)組-資料下載頁
2025-09-20 13:09本頁面
【導(dǎo)讀】處理成批的數(shù)據(jù)時，必須使用數(shù)組來處理表。采用數(shù)組來表示：t,t,t,…99)為數(shù)組元素，它表。默認(rèn)情況下，下標(biāo)從0開始,下標(biāo)號從0～10，共11個元素。對靜態(tài)數(shù)組，Erase語句將數(shù)組重新初始化;對動態(tài)數(shù)組，重新對靜太數(shù)組進(jìn)行初始化，數(shù)值置0，字符為空字符串，而原數(shù)組存在。釋放動態(tài)數(shù)組存儲空間，原有數(shù)組不再。數(shù)組的引用下標(biāo)不能越界。但ForEach...Next語句專門作用于數(shù)組或?qū)?。象集合中的每一成員。
【正文】 d() 39。學(xué)號存放在數(shù)組 h()中 h(1) = 1201: h(2) = 1202: h(3) = 1203 h(4) = 1205: h(5) = 1206: h(6) = 1207 h(7) = 1209: h(8) = 1210: h(9) = 1211: h(10) = 1215 39。成績存放在數(shù)組 d(,)中 d(1, 1) = 92: d(1, 2) = 86 d(2, 1) = 78: d(2, 2) = 71 d(3, 1) = 83: d(3, 2) = 74 d(4, 1) = 67: d(4, 2) = 75 d(5, 1) = 71: d(5, 2) = 55 d(6, 1) = 62: d(6, 2) = 80 d(7, 1) = 98: d(7, 2) = 83 d(8, 1) = 99: d(8, 2) = 80 d(9, 1) = 57: d(9, 2) = 67 d(10, 1) = 80: d(10, 2) = 78 End Sub Private Sub Command1_Click() Dim no As Integer, flag As Integer Dim m As Integer, top As Integer, bott As Integer flag = 1 39。置未找到標(biāo)志 top = 1: bott = 10 39。設(shè)定范圍 no = Val() 39。取學(xué)號 If no h(top) Or no h(bott) Then flag = 2 39。若超出學(xué)號范圍 , 置特殊標(biāo)志 2 End If Do While flag = 1 And top = bott m = (top + bott) / 2 39。取中點 Select Case True Case no = h(m) 39。找到 flag = m 39。置找到標(biāo)志 = h(m) = d(m, 1) = d(m, 2) = (d(m, 1) + d(m, 2)) / 2 Case no h(m) 39。小于中間數(shù)據(jù) bott = m 1 39。上半部 Case no h(m) 39。大于中間數(shù)據(jù) top = m + 1 39。下半部 End Select Loop If flag 0 Then 39。判是否找不到 = = = = MsgBox 無此學(xué)生 ! End If End Sub (1)解題方法 數(shù)據(jù)排序的常用方法： “選擇排序法”及“起泡排序法” “起泡法”排序就是每次將兩個相鄰的數(shù)進(jìn)行比較，然后將大數(shù)調(diào)換 (或稱“下沉” )到下面。 例如，若有 4個數(shù)，則通過三次外循環(huán)來完成排序過程： 7 5 3 4 初始 第 1次 第 2次 第 3次 尋 找 最 大 數(shù)（第一次外循環(huán)） 5 7 3 4 5 3 7 4 5 3 4 7 大數(shù)“沉底”，小數(shù)“浮起”； 如有 n 個數(shù)，則要進(jìn)行 n1趟比較； 需要兩重循環(huán) 例 起泡排序法演示程序 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 窗體上含有一個文本框控件數(shù)組和一個命令按鈕 文本框控件數(shù)組（ Text1(1)～ Text1(8)）用來顯示演示的 8個數(shù) (3)編寫程序代碼 功能要求： 程序運行后自動產(chǎn)生 8個兩位隨機(jī)整數(shù) 單擊“排序”按鈕 (Command1)時，即啟動排序過程 通過 MsgBox函數(shù)來暫停程序運行 Const n = 8 39。聲明符號常量 Option Base 1 Private Sub Form_Load() Randomize For i = 1 To n 39。產(chǎn)生 n 個隨機(jī)數(shù) Text1(i).ForeColor = RGB(0, 0, 0) 39。用黑色顯示 Text1(i).Text = Int(90 * Rnd + 10) Next i End Sub Private Sub Command1_Click() For j = 1 To n 1 39。外循環(huán) MsgBox 準(zhǔn)備進(jìn)行第 + Str(j) + 次比較，按回車鍵繼續(xù) For i = 1 To n j 39。內(nèi)循環(huán) If Val(Text1(i).Text) Val(Text1(i + 1).Text) Then t = Text1(i).Text Text1(i) . Text = Text1(i + 1).Text Text1(i + 1).Text = t End If Next i 39。沉底數(shù)用紅色表示 Text1(n j + 1).ForeColor = RGB(255, 0, 0) Next j MsgBox 排序完畢 “ End Su
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1