【正文】 d Sub 程序運行結(jié)果如圖 。 控制矩陣行數(shù) For m = 1 To 3 39。 輸出產(chǎn)生的隨機(jī)數(shù) Next : 39。 如果再次單擊 “ 重置 ”按鈕 ， 則重新產(chǎn)生數(shù)據(jù) ， 如圖 。 聲明一個未指定維數(shù)及大小的數(shù)組 Dim num As Integer 修改 “ 輸入 ” 命令按鈕 Command1的 Click事件代碼為 第 7章 數(shù)組 Private Sub Command1_Click() Static i As Integer 39。 (2) 編寫代碼 。 使得每行兩邊的元素值為 1 Next Print Tab(20)。 Space(2)。 (2) 將現(xiàn)有的控件復(fù)制并粘貼到窗體或框架 、 圖片框上 。 (2) 當(dāng)控件獲得焦點時 ， 單擊 “ 復(fù)制 ” 按鈕 ， 或按Ctrl+C組合鍵 。 單選鈕 Option1的 Click事件代碼為 Private Sub Option1_Click(Index As Integer) Dim x As Single, y As Single x = Val() y = Val() Select Case Index 39。 指數(shù) = x ^ y Case Else 39。 第 7章 數(shù)組 表 72 屬性設(shè)置 第 7章 數(shù)組 圖 建立程序界面 第 7章 數(shù)組 (3) 設(shè)計代碼 。 For j = i + 1 To 10 a(j).BackColor = RGB(255, 0, 255) MsgBox 比較 A( amp。 ), , A( amp。 第 7章 數(shù)組 圖 建立用戶界面和設(shè)置對象屬性 第 7章 數(shù)組 (2) 編寫事件代碼 。 如果遇到值大于 90的元素 ， 則退出循環(huán) 。 值大于 90的元素 MsgBox 數(shù)據(jù)超過 90!, 0, 退出 39。 隨機(jī)產(chǎn)生 10個兩位整數(shù) ， 找出其最大值 、 最小值和平均值 。2～ n2中的各數(shù)依次按以下規(guī)律排列： (1) 每一個數(shù)存放的行比前一個數(shù)的行數(shù)減 1， 列數(shù)加 1。 試編寫求這 4個百貨公司一天銷售電視機(jī)總金額的程序 。 (2) 計算各科平均分?jǐn)?shù) 。 (5) 存一次 2年期 ， 三次 1年期 。 當(dāng)用戶在下拉列表框中選擇某一人名后 ， 在 “ 電話號碼 ” 文本框中顯示出對應(yīng)的電話號碼 。 這個過程一直進(jìn)行到除數(shù)為為止 (如果不是整數(shù)就取其整數(shù)部分 )。 具體做法是： 第 7章 數(shù)組 (1) 先將 1挖掉 。 利用隨機(jī)函數(shù)模擬投幣結(jié)果 。 今有本金 a元 ， 5年以后使用 ， 共有以下 6種存法： (1) 存一次 5年期 。 第 7章 數(shù)組 表 75 學(xué)生成績表 第 7章 數(shù)組 設(shè)有一個 5 5的方陣 ， 其中元素是由計算機(jī)隨機(jī)生成的小于 100的整數(shù) 。 第 7章 數(shù)組 設(shè)某班共 10名學(xué)生 ， 為了評定某門課程的獎學(xué)金 ， 按規(guī)定超過全班平均成績 10%者發(fā)給一等獎 ， 超過全班成績 5%者發(fā)給二等獎 。第 4個月時老兔子又生出一對小兔子 ， 上個月的小兔子變成大兔子 (一對老 ， 一對大 ， 一對小 )。字符如下： a b q r s t w x y e m n 從鍵盤輸入 10個數(shù) ， 要求按從小到大的順序打印出來 。 產(chǎn)生隨機(jī)數(shù) Next i For Each a In aa If a 50 Then = amp。 累加 第 7章 數(shù)組 Next = s 39。 ) 第 7章 數(shù)組 t = a(i).Text: a(i).Text = a(j).Text: a(j).Text = t End If a(j).BackColor = RGB(255, 255, 255) Next j a(i).BackColor = RGB(0, 255, 0) Next i a(10).BackColor = RGB(0, 255, 0) = End Sub 第 7章 數(shù)組 圖 排序演示過程 第 7章 數(shù)組 圖 排序結(jié)果 第 7章 數(shù)組 For Each...Next語句 For Each...Next與 For...Next循環(huán)類似 ， 兩者都用來執(zhí)行指定重復(fù)次數(shù)的一組語句 。 ), , 比較法排序 If Val(a(i).Text) Val(a(j).Text) Then MsgBox 交換 A( amp。 )為擂主與后邊的元素依次比較 ,如有比 A( amp。 設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面。 乘 = x * y Case 3 39。 第 7章 數(shù)組 控件數(shù)組的使用 【 例 78】 設(shè)計窗體 ， 輸入兩個數(shù) ， 根據(jù)不同運算符計算結(jié)果 。 (3) 在為數(shù)組中的其他控件輸入相同名稱時 ， VB將顯示一個對話框 ， 要求確認(rèn)是否要創(chuàng)建控件數(shù)組 。 Chr(13) Next End If End Sub 第 7章 數(shù)組 圖 楊輝三角形 第 7章 數(shù)組 控 件 數(shù) 組 控件數(shù)組的概念 如果在應(yīng)用程序中用到一些類型相同且功能類似的控件 ， 則可將這些相同的控件視為一個數(shù)組 ——“控件數(shù)組 ” 。 Space(2) amp。 設(shè)定不超過 10行 MsgBox 請不要超過 10 39。 位同志的情況 第 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。 例如： ReDim a(2,4) ReDim Preserve a(2,6) 第 7章 數(shù)組 【 例 76】 用動態(tài)數(shù)組修改例 74， 從而能輸入個人情況并可根據(jù)姓名進(jìn)行查詢 。 確定輸出位置 第 7章 數(shù)組 For n = 1 To 5 For m = 1 To 3 Format(c(n, m), )。 清空圖片框 = 80: = 80 39。 選擇 “ 新建 ”工程 ， 進(jìn)入窗體設(shè)計器 ， 在窗體中增加 3個圖片框Picture1～ Picture3， 兩個標(biāo)簽 Label Label2和兩個命令按鈕