【正文】 = 最高分： + Str(max) + _ Chr(13) + 最低分： + Str(min) End Sub 例 分別計算 5個學(xué)生和 3門課的平均分 某學(xué)習(xí)小組有 5名學(xué)生，成績?nèi)绫? 分析： 用一個 二維數(shù)組 a(5, 3)來描述。程序中設(shè)置兩重循環(huán)，用以 實現(xiàn)每行和每列上的累加 。本例采用賦值語句來輸入學(xué)生成績，并采用 Print直接在窗體上輸出結(jié)果 r=1 c=1, 2, 3 r=2 c=1, 2, 3 r=3 c=1, 2, 3 r=4 c=1, 2, 3 r=5 c=1, 2, 3 求 5個學(xué)生的平均分 下標(biāo)使用情況 來自 中國最大的資料庫下載 Option Base 1 Private Sub Form_Load() Dim a(5, 3) As Integer Dim r As Integer, c As Integer, s As Integer k = Array(數(shù)學(xué) , 英語 , 計算機(jī) ) 39。輸入課程名 a(1, 1) = 69: a(1, 2) = 89: a(1, 3) = 74 39。輸入學(xué)生成績 a(2, 1) = 94: a(2, 2) = 80: a(2, 3) = 90 a(3, 1) = 57: a(3, 2) = 62: a(3, 3) = 73 a(4, 1) = 98: a(4, 2) = 94: a(4, 3) = 90 a(5, 1) = 73: a(5, 2) = 76: a(5, 3) = 63 例 Show Print 學(xué)生 , 平均分“ 39。輸出 20個減號“ ” Print String(20, ) For r = 1 To 5 s = 0 39。累加前清 0 For c = 1 To 3 39。累加同一行數(shù)據(jù) s = s + a(r, c) Next c Print r, Format(s / 3, .0) Next r Print Print 課程 , 平均分 Print String(20, ) For c = 1 To 3 s = 0 For r = 1 To 5 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個數(shù)放入數(shù)組 a a(1), a(2), a(3), … ， a(10) ① 從這 10個下標(biāo)變量中，選出最小值，通過交換把該值存入 a(1)中 ② 除 a(1)之外 (a(1)已存放最小值 )，從其余 9個下標(biāo)變量中選出最小值 (即10個數(shù)中的次小值 )，通過交換把該值存入 a(2)中 ③ 選出 a(3)～ a(10)中的最小值，通過交換，把該值存入 a(3) ④ 重復(fù)上述處理， 至 a(8)，可使 a(1)～ a(8)按小到大排列 ⑤ 第 9次處理，選出 a(9)及 a(10)中的最小值，通過交換把該值存入 a(9)中，此時 a(10)存放的就是最大值 例 隨機(jī)產(chǎn)生十個 10～ 100的整數(shù)，用 “ 選擇排序法 ” 按值從小到大順序排序，最后輸出結(jié)果 排列要求 小 大 示例： a(1) a(2) a(3) a(4) 90 64 65 59 1. a(1)與 a(2) ～ a(4)比較，選出最小值，結(jié)果 59 90 65 64 2. a(2)與 a(3) ～ a(4)比較，選出次小值，結(jié)果 59 64 90 65 3. a(3)與 a(4)比較，選出較小值，結(jié)果 59 64 65 90 i=1 j=2, 3, 4 i=2 j=3, 4 i=3 j=4 For i=1 to 3 For j=i+1 to 4 …… Next j Next i 程 序 結(jié) 構(gòu) 完成上述比較及排序處理過程，可以采用兩重循環(huán)結(jié)構(gòu)，外循環(huán)的循環(huán)變量 i從 1到 9，共循環(huán)九次；內(nèi)循環(huán)的循環(huán)變量 j從 i+1到 10 本例采用默認(rèn)的用戶界面，所需數(shù)據(jù)由隨機(jī)函數(shù)產(chǎn)生，處理后結(jié)果信息通過 Print Private Sub Form_Load() Show Randomize Dim a(1 To 10) As Integer Print 原始數(shù)據(jù)： For i = 1 To 10 39。產(chǎn)生 10個隨機(jī)數(shù) a(i) = Int(91 * Rnd + 10) Print a(i)。 Next i (3) 程序結(jié)構(gòu) Print: Print For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t 39。交換位置 End If Next j Next i Print 排序結(jié)果： For i = 1 To 10 Print a(i)。 Next i End Sub 改寫中間程序段“ For i=1 To 9”～“ Next i”(共 7個程序行 ) For i = 1 To 9 k = i ?k用來記錄每次選擇的最小值的下標(biāo) For j = i + 1 To 10 If a(k) a(j) Then k = j End If Next j t = a(k): a(k) = a(i): a(i) = t 39。交換位置 Next i 變量 k記錄每一次選出的最小值的下標(biāo)，在本次比較結(jié)束后，使 a(i)與 a(k)一次換位即可 兩種形式的數(shù)組： 靜態(tài)數(shù)組 和 動態(tài)數(shù)組 靜態(tài)數(shù)組是指數(shù)組元素的個數(shù)固定不變；動態(tài)數(shù)組的元素個數(shù)，在程序運(yùn)行時可以改變 動態(tài)數(shù)組可以在運(yùn)行過程中