【正文】 室號碼輸出在文本框 Text2中 Dim rm(6, 3) As Integer Private Sub Form_Load() ?輸入數(shù)組數(shù)據(jù) rm(1, 1) = 2101: rm(1, 2) = 2147: rm(1, 3) = 102 rm(2, 1) = 1741: rm(2, 2) = 1802: rm(2, 3) = 103 rm(3, 1) = 1201: rm(3, 2) = 1287: rm(3, 3) = 114 rm(4, 1) = 3333: rm(4, 2) = 3387: rm(4, 3) = 209 rm(5, 1) = 1803: rm(5, 2) = 1829: rm(5, 3) = 305 rm(6, 1) = 2511: rm(6, 2) = 2576: rm(6, 3) = 306 End Sub Private Sub Command1_Click() Dim no As Integer, flag As Integer flag = 0 39。設定文本框中的字號 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index 39。 ③ 單擊工具欄上的“粘貼”按鈕 (或按 Ctrl+V)，此時系統(tǒng)彈出一個如圖 單擊“是”，就建立一個控件數(shù)組元素，其 Index屬性為 1，而已畫出的第一個控件的 Index屬性值為 0。語法格式： For Each 成員 In 數(shù)組名 循環(huán)體 [Exit For] Next 成員 “成員”是一個 Variant變量，它實際上代表數(shù)組中每一個元素 本語句可以對數(shù)組元素進行讀取、查詢或顯示，它所重復執(zhí)行的次數(shù)由數(shù)組中元素的個數(shù)確定 在不知道數(shù)組中元素的數(shù)目時非常有用 For Each...Next循環(huán)語句 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! =。 Next i End Sub 改寫中間程序段“ For i=1 To 9”～“ Next i”(共 7個程序行 ) For i = 1 To 9 k = i ?k用來記錄每次選擇的最小值的下標 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。累加同一列數(shù)據(jù) s = s + a(r, c) Next r Print k(c), Format(s / 5, .0) Next c End Sub 程序運行結(jié)果 解題方法： (1)利用 Int(91*Rnd+10)產(chǎn)生值為 10到 100 使用 Randomize得到不同的隨機數(shù)序列 (2) 將 10個數(shù)放入數(shù)組 a a(1), a(2), a(3), … ， a(10) ① 從這 10個下標變量中，選出最小值，通過交換把該值存入 a(1)中 ② 除 a(1)之外 (a(1)已存放最小值 )，從其余 9個下標變量中選出最小值 (即10個數(shù)中的次小值 )，通過交換把該值存入 a(2)中 ③ 選出 a(3)～ a(10)中的最小值，通過交換，把該值存入 a(3) ④ 重復上述處理， 至 a(8)，可使 a(1)～ a(8)按小到大排列 ⑤ 第 9次處理，選出 a(9)及 a(10)中的最小值，通過交換把該值存入 a(9)中，此時 a(10)存放的就是最大值 例 隨機產(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 本例采用默認的用戶界面，所需數(shù)據(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。輸入學生成績 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 學生 , 平均分“ 39。Chr(13)起換行作用 = 最高分： + Str(max) + _ Chr(13) + 最低分： + Str(min) End Sub 例 分別計算 5個學生和 3門課的平均分 某學習小組有 5名學生，成績?nèi)绫? 分析： 用一個 二維數(shù)組 a(5, 3)來描述。 Format(average, .0) End Sub 程序中，先通