【導(dǎo)讀】利用數(shù)組可以有效地存儲和處理成批數(shù)據(jù)。數(shù)組的聲明和應(yīng)用。簡單變量用一個變量名標(biāo)識，不同的變量使用不同的。采用數(shù)組來表示：t,t,t,…99)為數(shù)組元素，它表。示第k個學(xué)生的成績,k稱為下標(biāo)變量的下標(biāo)。數(shù)組的一個主要特點是通過下標(biāo)來引用。數(shù)組是一組按一定順序排列的數(shù)據(jù)的集合。默認情況下，下標(biāo)從0開始。由三行四列元素組成的數(shù)組y，它的12個下標(biāo)變量可表。下標(biāo)變量與簡單變量具有基本相同的性質(zhì)和作用。量)或數(shù)值表達式。只要有規(guī)則地改變下標(biāo)值，就可以很方便地使下標(biāo)變量。使用數(shù)組之前，一般需要定義數(shù)組，以便讓系統(tǒng)分配相應(yīng)。下標(biāo)號從0～10，共11個元素。例輸入某小組5個同學(xué)的成績，計算總分和。例輸入10名學(xué)生的成績，求出最高分和最低分。功能要求：通過Array函數(shù)輸入10個分數(shù)；單擊“查找”按。鈕后，開始查找最高分和最低分，找到后顯示在標(biāo)。環(huán)，用以實現(xiàn)每行和每列上的累加。入學(xué)生成績，并采用Print直接在窗體上輸出結(jié)果

　　

【正文】 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ù)進行比較，然后將大數(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ù)，則要進行 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個兩位隨機整數(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 個隨機數(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)備進行第 + 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 Sub 輸入一個含有數(shù)字字符和非數(shù)字字符的字符串，如 t345+abc12spc2768t56? 將其中的數(shù)字串 (1至多個連續(xù)數(shù)字字符 )存放到列表框中，例如將 345放在第一行， 12放在第二行， 276放在第三行， 8放在第四行， 56放在第五行。統(tǒng)計共有多少個數(shù)字串 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 附錄 從字符串中抽取數(shù)字字符串 (例 ) (2)編寫程序代碼 功能要求： 用戶在文本框 (Text1)中輸入要處理的字符串內(nèi)容，單擊“處理”按鈕 (Command1)后，則按要求取出各個數(shù)字串并顯示在列表框 List1中，統(tǒng)計出數(shù)字串的個數(shù)并顯示在標(biāo)簽 Label3 Private Sub Command1_Click() k = 0 : n = 1 : s = 39。取字符串 For i = 1 To Len(s) 39。按順序逐個字符判斷 t = Mid(s, i, 1) 39。取 i位置的一個字符 If t 0 Or t 9 Then 39。判是否數(shù)字 k = 0 39。非數(shù)字，置 k=0 Else If k = 0 Then n = n + 1 39。指向列表框的下一行 (n) = t 39。存入列表框 k = 1 39。表示剛存過數(shù)字 Else 39。把數(shù)字加入到列表框當(dāng)前行的末尾 (n) = (n) + t End If End If Next i = Str(n + 1) + 個數(shù)字串 End Sub 本程序采用按順序逐個字符判斷方式，大致處理過程如下 ： (1)取出字符串中的第一個字符，若該字符不是數(shù)字，則k=0；若是數(shù)字，則 k=1，并將該數(shù)字存入列表框的第一行中 (2)取出下一個字符，判斷是不是數(shù)字，若不是數(shù)字，則k=0；若是數(shù)字，則再判斷 k是否為 0，若 k非 0(說明上一個字符也是數(shù)字 )，則將該數(shù)字加入到列表框的當(dāng)前行末尾，若 k為 0(說明這是新數(shù)字串的開頭 )，則把該數(shù)字存入列表框的下一個新行中，并使 k=1 (3)重復(fù) (2)的處理過程，直到把字符串中所有字符都判斷完為止