【正文】 (3) 用 3去除它后面的每個(gè)數(shù) ， 把 3的倍數(shù)挖掉 。 某校召開(kāi)運(yùn)動(dòng)會(huì) ， 有 10人參加男子 100米短跑決賽 ， 運(yùn)動(dòng)員號(hào)碼和成績(jī)見(jiàn)表 77， 試設(shè)計(jì)程序 ， 按成績(jī)排名次 。 (3) 存一次 3年期 ， 兩次 1年期 。 設(shè)有 10位同學(xué)的數(shù)學(xué) 、 語(yǔ)文 、 外語(yǔ)三門(mén)成績(jī) ，見(jiàn)表 76。 有一個(gè) 6 6的矩陣 ， 各元素的值由鍵盤(pán)輸入 ，求全部元素的平均值 ， 并輸出高于平均值的元素以及它們的行 、 列號(hào) 。 輸出魔方陣 ， 魔方陣是由自然數(shù) 1～ n2(n為奇數(shù) )構(gòu)成的方陣 ， 其各行 、 各列以及對(duì)角線元素之和均相等 。 即第 1個(gè)元素與第 20個(gè)元素互換 ， 第 2個(gè)元素與第 19個(gè)元素互換 ……第 10個(gè)元素與第 11個(gè)元素互換 。 a 第 7章 數(shù)組 s = s + a 39。 第 7章 數(shù)組 圖 程序運(yùn)行結(jié)果 第 7章 數(shù)組 【 例 711】 本例建立一個(gè)數(shù)組 ， 并通過(guò) Rnd函數(shù)為每個(gè)數(shù)組元素賦給一個(gè) 1～ 100之間的整數(shù) 。 語(yǔ)法為 For Each〈 成員 〉 In〈 數(shù)組 〉 [〈 語(yǔ)句列 〉 ] [Exit For] Next [〈 成員 〉 ] 第 7章 數(shù)組 【 例 710】 利用 For Each...Next循環(huán)語(yǔ)句 ， 求1+2+3+...+100的值 。 )和 A( amp。 Trim(i) amp。然后在窗體中增加一個(gè)命令按鈕控件數(shù)組Command1(0)、 Command1(1)和一個(gè)標(biāo)簽 Label2，如圖。 整除 = X \ Y Case 5 39。 利用Label控件 ， 在窗體上拖曳出 4個(gè)標(biāo)簽對(duì)象 Label1～Label4；利用 TextBox控件 ， 拖曳出 Text1和 Text2文本框?qū)ο螅焕?Frame控件 ， 拖曳出 Frame1框?qū)ο?。 第 7章 數(shù)組 圖 確認(rèn)創(chuàng)建控件數(shù)組 第 7章 數(shù)組 2. 復(fù)制現(xiàn)存控件 利用復(fù)制 、 粘貼的功能建立控件數(shù)組 ， 如同文本編輯一樣方便 。 (2) 以下標(biāo)索引值 (Index)來(lái)識(shí)別各個(gè)控件 。 Chr(13) For i = 3 To n Print Tab(20 i * 2)。 退出過(guò)程 End If 第 7章 數(shù)組 ReDim a(n, n) 39。 第 7章 數(shù)組 【 例 77】 編寫(xiě)程序 ， 輸出楊輝三角形 ， 如圖 所示 。 接著修改事件編碼 。 輸出結(jié)果數(shù)據(jù) Next 39。 ? 輸出產(chǎn)生的隨機(jī)數(shù) Format(b(n, m), )。 第 7章 數(shù)組 圖 設(shè)計(jì)窗體界面與運(yùn)行程序 第 7章 數(shù)組 (2) 編寫(xiě)代碼 。 調(diào)出相應(yīng)數(shù)據(jù) = a(i, 3) = a(i, 4) = a(i, 5) = a(i, 6) Exit Sub 39。 定義變體數(shù)組 ， 其數(shù)組元素可以是 Integer、 Long等類(lèi)型 Dim num As Integer “輸入 ” 命令按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() Static i As Integer 39。 交換數(shù)據(jù) a(i) = a(j) a(j) = t 第 7章 數(shù)組 End If Next j Next i For i = 1 To 10 39。 第 7章 數(shù)組 【 例 73】 隨機(jī)產(chǎn)生 10個(gè)數(shù) ， 用 “ 選擇排序法 ” 按遞增順序排序 。 取一個(gè)字符，將其轉(zhuǎn)換成相應(yīng)的大寫(xiě)字母 第 7章 數(shù)組 If c = A And c = Z Then j = Asc(c) 65 + 1 39。 第 7章 數(shù)組 Option Base 1 Dim a(1 To 10) As Single “統(tǒng)計(jì) ” 按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() Dim i As Integer, total As Single, average As Single For i = 1 To 10 a(i) = Val(InputBox(請(qǐng)輸入第 amp。 第 7章 數(shù)組 靜態(tài)數(shù)組的應(yīng)用 【 例 71】 計(jì)算某組 10個(gè)同學(xué)的總分 、 平均分 。靜態(tài)數(shù)組是指數(shù)組元素的個(gè)數(shù)固定不變 ， 而動(dòng)態(tài)數(shù)組的大小 (其元素的個(gè)數(shù) )在運(yùn)行時(shí)可以改變 。 第 7章 數(shù)組 數(shù)組的類(lèi)型 VB中的數(shù)據(jù)有多種類(lèi)型 ， 相應(yīng)的數(shù)組也有多種類(lèi)型 。 可以聲明任何基本數(shù)據(jù)類(lèi)型的數(shù)組 ， 包括用戶自定義類(lèi)型和對(duì)象變量 ， 但是一個(gè)數(shù)組中的所有元素應(yīng)該具有相同的數(shù)據(jù)類(lèi)型 。 第 7章 數(shù)組 靜 態(tài) 數(shù) 組 數(shù)組的聲明 聲明數(shù)組的格式為 Dim 數(shù)組名 (〈 維數(shù)定義 〉 ) [ As 〈 類(lèi)型 〉 ] 第 7章 數(shù)組 數(shù)組的使用 在建立 (聲明 )一個(gè)數(shù)組之后 ， 就可以使用數(shù)組 。 設(shè)計(jì)步驟如下： (1) 從 “ 文件 ” 菜單中選擇 “ 新建工程 ” ， 在打開(kāi)的“ 新建工程 ” 對(duì)話框中雙擊 “ 標(biāo)準(zhǔn) EXE”， 新建一個(gè)標(biāo)準(zhǔn)工程 。 Str(i) amp。 將 A～ Z大寫(xiě)字母轉(zhuǎn)換成 1～ 26的下標(biāo) a(j) = a(j) + 1 39。 設(shè)計(jì)步驟如下： (1) 建立用戶界面并設(shè)置對(duì)象屬性 ， 如圖 。 輸出排序后的結(jié)果 = amp。 用 Static聲明 ， 只重設(shè) 0一次 ， 其值可保留到下次過(guò)程調(diào)用 39。 跳出本過(guò)程 第 7章 數(shù)組 End If Next i MsgBox 查無(wú)此人 ！ , vbOKOnly, 抱歉 39。 在 “ 通用 ” 段聲明數(shù)組： Dim a(5, 3) As Integer, b(5, 3) As Integer “重置 ” 按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() For n = 1 To 5 39。 39。 換行 Next End Sub 運(yùn)行程序 ， 單擊 “ 重置 ” 按鈕產(chǎn)生原始數(shù)據(jù) ， 單擊 “ 計(jì)算 ” 按鈕得到相加結(jié)果 。 在通用段聲明數(shù)組： Dim a( ) As Variant 39。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性 ， 參見(jiàn)圖 。 分配動(dòng)態(tài)數(shù)組實(shí)際的元素個(gè)數(shù) For i = 1 To n a(i, 1) = 1: a(i, i) = 1 39。 Format(a(i, 1), !) amp。 第 7章 數(shù)組 控件數(shù)組的建立 建立控件數(shù)組的方法有 3種： (1) 給控件起相同的名字 。 具體步驟如下： (1) 畫(huà)出