【正文】 ) = Int(Rnd * 90 + 10) = amp。 交換數(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ù)組 圖 用戶界面和排序結(jié)果 第 7章 數(shù)組 【 例 74】 將文本框的數(shù)據(jù)存入數(shù)組中 ， 編寫程序 ，要求能輸入個(gè)人情況并可根據(jù)姓名進(jìn)行查詢 。 定義變體數(shù)組 ， 其數(shù)組元素可以是 Integer、 Long等類型 Dim num As Integer “輸入 ” 命令按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() Static i As Integer 39。 位同志的情況 a(i, 1) = 39。 調(diào)出相應(yīng)數(shù)據(jù) = a(i, 3) = a(i, 4) = a(i, 5) = a(i, 6) Exit Sub 39。 兩個(gè)相同階數(shù)的矩陣A和 B相加 ， 是將相應(yīng)位置上的元素相加后放到同階矩陣 C的相應(yīng)位置 。 第 7章 數(shù)組 圖 設(shè)計(jì)窗體界面與運(yùn)行程序 第 7章 數(shù)組 (2) 編寫代碼 。 產(chǎn)生隨機(jī)數(shù) x = Int(Rnd * 100): b(n, m) = Val(x) 39。 ? 輸出產(chǎn)生的隨機(jī)數(shù) Format(b(n, m), )。 求兩矩陣相加的各項(xiàng)值 Next Next 39。 輸出結(jié)果數(shù)據(jù) Next 39。 格式為 Public | Private | Dim | Static 數(shù)組名 () As 類型 ② 用 ReDim語句分配實(shí)際的元素個(gè)數(shù) 。 接著修改事件編碼 。 聲明動(dòng)態(tài)數(shù)組 ， 保留原先數(shù)據(jù) = 請(qǐng)輸入第 amp。 第 7章 數(shù)組 【 例 77】 編寫程序 ， 輸出楊輝三角形 ， 如圖 所示 。 按回車鍵時(shí)執(zhí)行 n = Val() 39。 退出過程 End If 第 7章 數(shù)組 ReDim a(n, n) 39。 Chr(13) Print Tab(18)。 Chr(13) For i = 3 To n Print Tab(20 i * 2)。 Next Print Space(2) amp。 (2) 以下標(biāo)索引值 (Index)來識(shí)別各個(gè)控件 。 第 7章 數(shù)組 1. 給控件起相同的名稱 通過改變已有控件的名稱 ， 可以將一組控件組成控件數(shù)組 ， 具體步驟如下： (1) 畫出控件數(shù)組中要添加的控件 (必須為同一類型的控件 )， 并且決定哪一個(gè)控件作為數(shù)組中的第一個(gè)元素 。 第 7章 數(shù)組 圖 確認(rèn)創(chuàng)建控件數(shù)組 第 7章 數(shù)組 2. 復(fù)制現(xiàn)存控件 利用復(fù)制 、 粘貼的功能建立控件數(shù)組 ， 如同文本編輯一樣方便 。 (4) 繼續(xù)單擊“粘貼”按鈕 (或按 Ctrl+V組合鍵 )，可得到控件數(shù)組中的其他控件。 利用Label控件 ， 在窗體上拖曳出 4個(gè)標(biāo)簽對(duì)象 Label1～Label4；利用 TextBox控件 ， 拖曳出 Text1和 Text2文本框?qū)ο螅焕?Frame控件 ， 拖曳出 Frame1框?qū)ο?。 加 = x + y Case 1 39。 整除 = X \ Y Case 5 39。 y End Select End Sub 程序運(yùn)行結(jié)果如圖 。然后在窗體中增加一個(gè)命令按鈕控件數(shù)組Command1(0)、 Command1(1)和一個(gè)標(biāo)簽 Label2，如圖。 顯示數(shù)據(jù)的對(duì)象數(shù)組 窗體的 Activate事件代碼為 Private Sub Form_Activate() Randomize For i = 1 To 10 Set a(i) = Text1(i) a(i).Text = Int(Rnd * 199) 99 第 7章 數(shù)組 a(i).BackColor = RGB(255, 255, 255) Next End Sub 命令按鈕控件數(shù)組 Command1的 Click事件代碼為 Private Sub Command1_Click(Index As Integer) Command1(0).Enabled = False For i = 1 To 9 a(i).BackColor = RGB(255, 0, 255) 第 7章 數(shù)組 = 以 A( amp。 Trim(i) amp。 )和 A( amp。 )和 A( amp。 _ ) A( amp。 語法為 For Each〈 成員 〉 In〈 數(shù)組 〉 [〈 語句列 〉 ] [Exit For] Next [〈 成員 〉 ] 第 7章 數(shù)組 【 例 710】 利用 For Each...Next循環(huán)語句 ， 求1+2+3+...+100的值 。 給各數(shù)組元素賦值 a(i) = i Next i For Each b In a() 39。 第 7章 數(shù)組 圖 程序運(yùn)行結(jié)果 第 7章 數(shù)組 【 例 711】 本例建立一個(gè)數(shù)組 ， 并通過 Rnd函數(shù)為每個(gè)數(shù)組元素賦給一個(gè) 1～ 100之間的整數(shù) 。 第 7章 數(shù)組 圖 建立用戶界面和設(shè)置對(duì)象屬性 第 7章 數(shù)組 (2) 編寫事件代碼 。 a 第 7章 數(shù)組 s = s + a 39。 退出本循環(huán) End If Next a = s End Sub 程序運(yùn)行結(jié)果如圖 。 即第 1個(gè)元素與第 20個(gè)元素互換 ， 第 2個(gè)元素與第 19個(gè)元素互換 ……第 10個(gè)元素與第 11個(gè)元素互換 。 Fibonacci數(shù)列問題起源于一個(gè)古典的有關(guān)兔子繁殖的問題 。 輸出魔方陣 ， 魔方陣是由自然數(shù) 1～ n2(n為奇數(shù) )構(gòu)成的方陣 ， 其各行 、 各列以及對(duì)角線元素之和均相等 。 (3) 若上一個(gè)數(shù)在第 n列 ， 則下一個(gè)數(shù)在第 1列 ， 而行數(shù)減 1。 有一個(gè) 6 6的矩陣 ， 各元素的值由鍵盤輸入 ，求全部元素的平均值 ， 并輸出高于平均值的元素以及它們的行 、 列號(hào) 。 第 7章 數(shù)組 表 73 日銷售電視機(jī)數(shù) 第 7章 數(shù)組 表 74 電視機(jī)單價(jià) 第 7章 數(shù)組 計(jì)算全班學(xué)生每門課的總分 ， 同時(shí)計(jì)算每個(gè)學(xué)生的總分 ， 最后計(jì)算總平均分?jǐn)?shù) 。 設(shè)有 10位同學(xué)的數(shù)學(xué) 、 語文 、 外語三門成績(jī) ，見表 76。 第 7章 數(shù)組 使用選項(xiàng)按鈕組計(jì)算銀行本息和 。 (3) 存一次 3年期 ， 兩次 1年期 。 分別計(jì)算各種存法 5年后到期時(shí)的本息合計(jì)。 某校召開運(yùn)動(dòng)會(huì) ， 有 10人參加男子 100米短跑決賽 ， 運(yùn)動(dòng)員號(hào)碼和成績(jī)見表 77， 試設(shè)計(jì)程序 ， 按成績(jī)排名次 。 用 “ 篩法 ” 找 1～ 100之間的全部素?cái)?shù) 。 (3) 用 3去除它后面的每個(gè)數(shù) ， 把 3的倍數(shù)挖掉 。