【正文】 )位于輸入框 Text1中 i = i + 1 第 7章 數(shù)組 = 請輸入第 amp。 位同志的情況 a(i, 1) = 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。 調(diào)出相應(yīng)數(shù)據(jù) = a(i, 3) = a(i, 4) = a(i, 5) = a(i, 6) Exit Sub 39。 姓名不相符時(shí) ，輸出消息框 End Sub “結(jié)束 ” 命令按鈕 Command3的 Click事件代碼為 Private Sub Command3_Click() Unload Me End Sub 程序運(yùn)行結(jié)果如圖 。 兩個(gè)相同階數(shù)的矩陣A和 B相加 ， 是將相應(yīng)位置上的元素相加后放到同階矩陣 C的相應(yīng)位置 。 選擇 “ 新建 ”工程 ， 進(jìn)入窗體設(shè)計(jì)器 ， 在窗體中增加 3個(gè)圖片框Picture1～ Picture3， 兩個(gè)標(biāo)簽 Label Label2和兩個(gè)命令按鈕 Command Command2。 第 7章 數(shù)組 圖 設(shè)計(jì)窗體界面與運(yùn)行程序 第 7章 數(shù)組 (2) 編寫代碼 。 控制矩陣行數(shù) For m = 1 To 3 39。 產(chǎn)生隨機(jī)數(shù) x = Int(Rnd * 100): b(n, m) = Val(x) 39。 清空圖片框 = 80: = 80 39。 ? 輸出產(chǎn)生的隨機(jī)數(shù) Format(b(n, m), )。 輸出產(chǎn)生的隨機(jī)數(shù) Next : 39。 求兩矩陣相加的各項(xiàng)值 Next Next 39。 確定輸出位置 第 7章 數(shù)組 For n = 1 To 5 For m = 1 To 3 Format(c(n, m), )。 輸出結(jié)果數(shù)據(jù) Next 39。 如果再次單擊 “ 重置 ”按鈕 ， 則重新產(chǎn)生數(shù)據(jù) ， 如圖 。 格式為 Public | Private | Dim | Static 數(shù)組名 () As 類型 ② 用 ReDim語句分配實(shí)際的元素個(gè)數(shù) 。 例如： ReDim a(2,4) ReDim Preserve a(2,6) 第 7章 數(shù)組 【 例 76】 用動(dòng)態(tài)數(shù)組修改例 74， 從而能輸入個(gè)人情況并可根據(jù)姓名進(jìn)行查詢 。 接著修改事件編碼 。 聲明一個(gè)未指定維數(shù)及大小的數(shù)組 Dim num As Integer 修改 “ 輸入 ” 命令按鈕 Command1的 Click事件代碼為 第 7章 數(shù)組 Private Sub Command1_Click() Static i As Integer 39。 聲明動(dòng)態(tài)數(shù)組 ， 保留原先數(shù)據(jù) = 請輸入第 amp。 位同志的情況 第 7章 數(shù)組 a(1, i) = a(2, i) = a(3, i) = a(4, i) = a(5, i) = a(6, i) = num = i = = = 第 7章 數(shù)組 = = = End Sub “查詢 ” 命令按鈕 Command2的 Click事件代碼為 Private Sub Command2_Click() Static i As Integer For i = 1 To num If a(1, i) = Then 第 7章 數(shù)組 = a(2, i) = a(3, i) = a(4, i) = a(5, i) = a(6, i) Exit Sub 39。 第 7章 數(shù)組 【 例 77】 編寫程序 ， 輸出楊輝三角形 ， 如圖 所示 。 (2) 編寫代碼 。 按回車鍵時(shí)執(zhí)行 n = Val() 39。 設(shè)定不超過 10行 MsgBox 請不要超過 10 39。 退出過程 End If 第 7章 數(shù)組 ReDim a(n, n) 39。 使得每行兩邊的元素值為 1 Next Print Tab(20)。 Chr(13) Print Tab(18)。 Space(2) amp。 Chr(13) For i = 3 To n Print Tab(20 i * 2)。 Space(2)。 Next Print Space(2) amp。 Chr(13) Next End If End Sub 第 7章 數(shù)組 圖 楊輝三角形 第 7章 數(shù)組 控 件 數(shù) 組 控件數(shù)組的概念 如果在應(yīng)用程序中用到一些類型相同且功能類似的控件 ， 則可將這些相同的控件視為一個(gè)數(shù)組 ——“控件數(shù)組 ” 。 (2) 以下標(biāo)索引值 (Index)來識(shí)別各個(gè)控件 。 (2) 將現(xiàn)有的控件復(fù)制并粘貼到窗體或框架 、 圖片框上 。 第 7章 數(shù)組 1. 給控件起相同的名稱 通過改變已有控件的名稱 ， 可以將一組控件組成控件數(shù)組 ， 具體步驟如下： (1) 畫出控件數(shù)組中要添加的控件 (必須為同一類型的控件 )， 并且決定哪一個(gè)控件作為數(shù)組中的第一個(gè)元素 。 (3) 在為數(shù)組中的其他控件輸入相同名稱時(shí) ， VB將顯示一個(gè)對話框 ， 要求確認(rèn)是否要?jiǎng)?chuàng)建控件數(shù)組 。 第 7章 數(shù)組 圖 確認(rèn)創(chuàng)建控件數(shù)組 第 7章 數(shù)組 2. 復(fù)制現(xiàn)存控件 利用復(fù)制 、 粘貼的功能建立控件數(shù)組 ， 如同文本編輯一樣方便 。 (2) 當(dāng)控件獲得焦點(diǎn)時(shí) ， 單擊 “ 復(fù)制 ” 按鈕 ， 或按Ctrl+C組合鍵 。 (4) 繼續(xù)單擊“粘貼”按鈕 (或按 Ctrl+V組合鍵 )，可得到控件數(shù)組中的其他控件。 第 7章 數(shù)組 控件數(shù)組的使用 【 例 78】 設(shè)計(jì)窗體 ， 輸入兩個(gè)數(shù) ， 根據(jù)不同運(yùn)算符計(jì)算結(jié)果 。 利用Label控件 ， 在窗體上拖曳出 4個(gè)標(biāo)簽對象 Label1～Label4；利用 TextBox控件 ， 拖曳出 Text1和 Text2文本框?qū)ο?；利?Frame控件 ， 拖曳出 Frame1框?qū)ο?。 單選鈕 Option1的 Click事件代碼為 Private Sub Option1_Click(Index As Integer) Dim x As Single, y As Single x = Val() y = Val() Select Case Index 39。 加 = x + y Case 1 39。 乘 = x * y Case 3 39。 整除 = X \ Y Case 5 39。 指數(shù) = x ^ y Case Else