【正文】 (2) 設(shè)置對象屬性 ， 見表 72。 第 7章 數(shù)組 【 例 79】 編制程序 ， 演示排序過程 。 余數(shù) = x Mod y 第 7章 數(shù)組 Case 6 39。 減 第 7章 數(shù)組 = x y Case 2 39。 第 7章 數(shù)組 圖 用戶界面與程序運(yùn)行結(jié)果 第 7章 數(shù)組 (2) 編寫程序代碼 。 第 7章 數(shù)組 圖 新數(shù)組元素的索引值與其添加到控件數(shù)組中的次序一樣 第 7章 數(shù)組 3. 指定控件的索引值 直接指定控件數(shù)組中第一個控件的索引值為 0， 然后利用前兩種方法中的任何一種添加控件數(shù)組的成員 ，將不會出現(xiàn)對話框詢問是否創(chuàng)建控件數(shù)組 。 具體步驟如下： (1) 畫出控件數(shù)組中的第一個控件 。 (2) 選定控件并將其 Name屬性設(shè)置成數(shù)組名稱 。 第 7章 數(shù)組 控件數(shù)組的建立 建立控件數(shù)組的方法有 3種： (1) 給控件起相同的名字 。 Format(a(i, i), !) amp。 Format(a(i, 1), !) amp。 Format(1, !) amp。 分配動態(tài)數(shù)組實(shí)際的元素個數(shù) For i = 1 To n a(i, 1) = 1: a(i, i) = 1 39。 在文本框中輸入的行數(shù) If n 10 Then 39。 設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對象屬性 ， 參見圖 。 Str(i + 1) amp。 在通用段聲明數(shù)組： Dim a( ) As Variant 39。 格式為 ReDim [ Preserve ] 數(shù)組名 (〈 維數(shù)定義 〉 ) [ As〈 類型 〉 ] 第 7章 數(shù)組 保留動態(tài)數(shù)組的內(nèi)容 有時希望改變數(shù)組大小而又不丟失數(shù)組中的數(shù)據(jù) ，這時可以使用具有 Preserve關(guān)鍵字的 ReDim語句 。 換行 Next End Sub 運(yùn)行程序 ， 單擊 “ 重置 ” 按鈕產(chǎn)生原始數(shù)據(jù) ， 單擊 “ 計算 ” 按鈕得到相加結(jié)果 。 清空 = 80 39。 39。 產(chǎn)生隨機(jī)數(shù) 第 7章 數(shù)組 Next Next : : 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。 設(shè)計步驟如下： (1) 設(shè)計程序界面和設(shè)置對象屬性 。 跳出本過程 第 7章 數(shù)組 End If Next i MsgBox 查無此人 ！ , vbOKOnly, 抱歉 39。 數(shù)據(jù)輸入 a(i, 2) = a(i, 3) = a(i, 4) = a(i, 5) = a(i, 6) = 第 7章 數(shù)組 num = i = 39。 用 Static聲明 ， 只重設(shè) 0一次 ， 其值可保留到下次過程調(diào)用 39。 設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對象屬性，如圖。 輸出排序后的結(jié)果 = amp。 a(i) amp。 設(shè)計步驟如下： (1) 建立用戶界面并設(shè)置對象屬性 ， 如圖 。 = amp。 將 A～ Z大寫字母轉(zhuǎn)換成 1～ 26的下標(biāo) a(j) = a(j) + 1 39。 第 7章 數(shù)組 圖 建立用戶界面和程序運(yùn)行結(jié)果 第 7章 數(shù)組 (2) 編寫事件代碼。 Str(i) amp。 第 7章 數(shù)組 圖 建立用戶界面 第 7章 數(shù)組 圖 在“代碼窗口”中輸入 第 7章 數(shù)組 (4) 編寫事件過程代碼 。 設(shè)計步驟如下： (1) 從 “ 文件 ” 菜單中選擇 “ 新建工程 ” ， 在打開的“ 新建工程 ” 對話框中雙擊 “ 標(biāo)準(zhǔn) EXE”， 新建一個標(biāo)準(zhǔn)工程 。 第 7章 數(shù)組 ③ 數(shù)組名 、 數(shù)組類型和維數(shù)必須與數(shù)組聲明時一致 。 第 7章 數(shù)組 靜 態(tài) 數(shù) 組 數(shù)組的聲明 聲明數(shù)組的格式為 Dim 數(shù)組名 (〈 維數(shù)定義 〉 ) [ As 〈 類型 〉 ] 第 7章 數(shù)組 數(shù)組的使用 在建立 (聲明 )一個數(shù)組之后 ， 就可以使用數(shù)組 。 一維數(shù)組中的下標(biāo)又稱為索引 (Index)。 可以聲明任何基本數(shù)據(jù)類型的數(shù)組 ， 包括用戶自定義類型和對象變量 ， 但是一個數(shù)組中的所有元素應(yīng)該具有相同的數(shù)據(jù)類型 。第 7章 數(shù)組 第 7章 數(shù)組 數(shù)組的概念 靜態(tài)數(shù)組 動態(tài)數(shù)組 控件數(shù)組 For Each...Next語句 習(xí)題七 第 7章 數(shù)組 數(shù) 組 的 概 念 數(shù)組與數(shù)組元素 數(shù)組是一組用一個統(tǒng)一的名稱表示的 、 順序排列的變量 。 第 7章 數(shù)組 數(shù)組的類型 VB中的數(shù)據(jù)有多種類型 ， 相應(yīng)的數(shù)組也有多種類型 。 一維數(shù)組中的各個元素又稱為單下標(biāo)變量 。靜態(tài)數(shù)組是指數(shù)組元素的個數(shù)固定不變 ， 而動態(tài)數(shù)組的大小 (其元素的個數(shù) )在運(yùn)行時可以改變 。 ② 引用數(shù)組元素的方法是在數(shù)組名后的括號中指定下標(biāo) t = a(2) : s = b(3,4) 其中 ， a(2)表示數(shù)組 a中索引值為 2的元素 ， b(3,4)表示二維數(shù)組 b中行下標(biāo)為 3， 列下標(biāo)為 4的元素 。 第 7章 數(shù)組 靜態(tài)數(shù)組的應(yīng)用 【 例 71】 計算某組 10個同學(xué)的總分 、 平均分 。 (3) 設(shè)置對象屬性 ， 參見圖 。 第 7章 數(shù)組 Option Base 1 Dim a(1 To 10) As Single “統(tǒng)計 ” 按鈕 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(請輸入第 amp。 設(shè)計步驟如下： (1) 建立用戶界面并設(shè)置對象屬性 ， 如圖 。 取一個字符，將其轉(zhuǎn)換成相應(yīng)的大寫字母 第 7章 數(shù)組 If c = A And c = Z Then j = Asc(c) 65 + 1 39。 Chr$(j + 64) amp。 第 7章 數(shù)組 【 例 73】 隨機(jī)產(chǎn)生 10個數(shù) ， 用 “ 選擇排序法 ” 按遞增順序排序 。 產(chǎn)生 10個隨機(jī)數(shù) a(i