【正文】 識(shí)它們 ， 因此數(shù)組元素又稱為下標(biāo)變量 。 ④ 下標(biāo)值應(yīng)在數(shù)組聲明時(shí)所指定的范圍之內(nèi) 。 “ 統(tǒng)計(jì)字母 ” 命令按鈕Command1的 Click事件代碼為 Private Sub Command1_Click() Dim a(1 To 26) As Integer Dim i As Integer, j As Integer, c As String * 1 tot = Len(Text1) 39。 Next i For i = 1 To 9 39。 清空各文本框內(nèi)容 ， 為下次輸入或查詢做準(zhǔn)備 = = = = = End Sub “查詢 ” 命令按鈕 Command2的 Click事件代碼為 第 7章 數(shù)組 Private Sub Command2_Click() Static i As Integer For i = 1 To num If a(i, 1) = Then 39。 清空圖片框 = 80: = 80 39。 例如： ReDim a(2,4) ReDim Preserve a(2,6) 第 7章 數(shù)組 【 例 76】 用動(dòng)態(tài)數(shù)組修改例 74， 從而能輸入個(gè)人情況并可根據(jù)姓名進(jìn)行查詢 。 設(shè)定不超過 10行 MsgBox 請不要超過 10 39。 Chr(13) Next End If End Sub 第 7章 數(shù)組 圖 楊輝三角形 第 7章 數(shù)組 控 件 數(shù) 組 控件數(shù)組的概念 如果在應(yīng)用程序中用到一些類型相同且功能類似的控件 ， 則可將這些相同的控件視為一個(gè)數(shù)組 ——“控件數(shù)組 ” 。 第 7章 數(shù)組 控件數(shù)組的使用 【 例 78】 設(shè)計(jì)窗體 ， 輸入兩個(gè)數(shù) ， 根據(jù)不同運(yùn)算符計(jì)算結(jié)果 。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面。 ), , 比較法排序 If Val(a(i).Text) Val(a(j).Text) Then MsgBox 交換 A( amp。 累加 第 7章 數(shù)組 Next = s 39。字符如下： a b q r s t w x y e m n 從鍵盤輸入 10個(gè)數(shù) ， 要求按從小到大的順序打印出來 。 第 7章 數(shù)組 設(shè)某班共 10名學(xué)生 ， 為了評(píng)定某門課程的獎(jiǎng)學(xué)金 ， 按規(guī)定超過全班平均成績 10%者發(fā)給一等獎(jiǎng) ， 超過全班成績 5%者發(fā)給二等獎(jiǎng) 。 今有本金 a元 ， 5年以后使用 ， 共有以下 6種存法： (1) 存一次 5年期 。 具體做法是： 第 7章 數(shù)組 (1) 先將 1挖掉 。 當(dāng)用戶在下拉列表框中選擇某一人名后 ， 在 “ 電話號(hào)碼 ” 文本框中顯示出對應(yīng)的電話號(hào)碼 。 (2) 計(jì)算各科平均分?jǐn)?shù) 。2～ n2中的各數(shù)依次按以下規(guī)律排列： (1) 每一個(gè)數(shù)存放的行比前一個(gè)數(shù)的行數(shù)減 1， 列數(shù)加 1。 值大于 90的元素 MsgBox 數(shù)據(jù)超過 90!, 0, 退出 39。 第 7章 數(shù)組 圖 建立用戶界面和設(shè)置對象屬性 第 7章 數(shù)組 (2) 編寫事件代碼 。 For j = i + 1 To 10 a(j).BackColor = RGB(255, 0, 255) MsgBox 比較 A( amp。 指數(shù) = x ^ y Case Else 39。 (2) 當(dāng)控件獲得焦點(diǎn)時(shí) ， 單擊 “ 復(fù)制 ” 按鈕 ， 或按Ctrl+C組合鍵 。 Space(2)。 (2) 編寫代碼 。 如果再次單擊 “ 重置 ”按鈕 ， 則重新產(chǎn)生數(shù)據(jù) ， 如圖 。 控制矩陣行數(shù) For m = 1 To 3 39。 使程序開始時(shí) ， 光標(biāo) (焦點(diǎn) )位于輸入框 Text1中 i = i + 1 第 7章 數(shù)組 = 請輸入第 amp。 (2) 編寫事件代碼 。 個(gè)學(xué)生的成績 , 輸入成績 )) 第 7章 數(shù)組 total = total + a(i) Next i average = total / 10 = + Format(total) = + Format(average) End Sub 運(yùn)行程序 ， 單擊 “ 統(tǒng)計(jì) ” 按鈕 ， 依次輸入 10個(gè)學(xué)生的成績 ， 如圖 ， 計(jì)算結(jié)果如圖 。 使用數(shù)組就是對數(shù)組元素進(jìn)行各種操作 ， 如賦值 、 表達(dá)式運(yùn)算 、 輸入或輸出等 。 可以用數(shù)組名及下標(biāo)惟一地識(shí)別一個(gè)數(shù)組的元素 ，比如 x(2)表示名稱為 x的數(shù)組中順序號(hào) (下標(biāo) )為 2的那個(gè)數(shù)組元素 (變量 )。 ⑤ 在同一過程中 ， 數(shù)組與簡單變量不能同名 。 求字符串的長度 For i = 1 To tot c = UCase(Mid(Text1, i, 1)) 39。 進(jìn)行排序 For j = i + 1 To 10 If a(j) a(i) Then t = a(i) 39。 確定輸入姓名存在 = a(i, 2) 39。 控制輸出位置 For n = 1 To 5 第 7章 數(shù)組 For m = 1 To 3 Format(a(n, m), “”)。 建立應(yīng)用程序用戶界面并設(shè)置對象屬性 ， 如例 74所示 。 消息框 Exit Sub 39。 控件數(shù)組的使用類似數(shù)組變量的使用 ， 也具有如下特點(diǎn)： (1) 相同的名稱 (Name)。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對象屬性 。選擇 “ 新建 ” 工程，進(jìn)入窗體設(shè)計(jì)器，首先增加一個(gè)用作容器的框架Frame1，選中 Frame1，在其中增加一個(gè)文本框控件數(shù)組 Text1(0)～ Text1(10)和一個(gè)標(biāo)簽控件數(shù)組 Label1(0)～Label1(10)。 Trim(i) amp。 輸出結(jié)果 End Sub “退出 ” 命令按鈕 Command2的 Click事件代碼為 Private Sub Command2_Click() Unload Me End Sub 程序運(yùn)行結(jié)果如圖 。 第 7章 數(shù)組 某數(shù)組有 20個(gè)元素 ， 元素的值由鍵盤輸入 ，要求將前 10個(gè)元素與后 10個(gè)元素對換 。 試編制程序 ， 輸出應(yīng)獲獎(jiǎng)學(xué)金的學(xué)生名單 (包括姓名 、 學(xué)號(hào) 、 成績 、 獎(jiǎng)學(xué)金等級(jí) )。 (2) 存一次 3年期 ， 一次 2年期 。 (2) 用 2去除它后面的每個(gè)數(shù) ， 把能被 2整除的數(shù)挖掉 ， 即把 2的倍數(shù)挖掉 。 第 7章 數(shù)組 表 77 運(yùn)動(dòng)員號(hào)碼和成績 第 7章 數(shù)組 設(shè)計(jì)一個(gè) “ 通訊錄 ” 程序 。 第 7章 數(shù)組 表 76 學(xué)生成績表 第 7章 數(shù)組 試編寫程序 ， 實(shí)現(xiàn)： (1) 查詢成績 。 第 7章 數(shù)組 排列魔方陣中各元素時(shí) ， 先將數(shù) “ 1”放在第 1行的當(dāng)中一列 。 累加求和 End If If a 90 Then