【正文】 章 數(shù)組 【 例 72】 輸入一串字符 ， 統(tǒng)計(jì)各字母出現(xiàn)的次數(shù) ，不區(qū)分大小寫 。 Str(i) amp。 從“ 視圖 ” 菜單中選擇 “ 代碼窗口 ” ， 在 “ 代碼窗口 ”中的對象下拉列表框中選 “ (通用 )”， 在事件程序下拉列表框中選 “ (聲明 )”， 輸入下列代碼 ， 如圖 。 第 7章 數(shù)組 圖 建立用戶界面 第 7章 數(shù)組 圖 在“代碼窗口”中輸入 第 7章 數(shù)組 (4) 編寫事件過程代碼 。 在窗體設(shè)計(jì)器中加入兩個(gè)標(biāo)簽 Label Label2和一個(gè)命令按鈕 Command1， 調(diào)整它們的位置及大小 ， 如圖 。 設(shè)計(jì)步驟如下： (1) 從 “ 文件 ” 菜單中選擇 “ 新建工程 ” ， 在打開的“ 新建工程 ” 對話框中雙擊 “ 標(biāo)準(zhǔn) EXE”， 新建一個(gè)標(biāo)準(zhǔn)工程 。 ⑤ 在同一過程中 ， 數(shù)組與簡單變量不能同名 。 第 7章 數(shù)組 ③ 數(shù)組名 、 數(shù)組類型和維數(shù)必須與數(shù)組聲明時(shí)一致 。 對數(shù)組元素的操作與對簡單變量的操作基本一樣 ，但在引用數(shù)組元素的時(shí)候要注意以下幾點(diǎn)： 第 7章 數(shù)組 ① 數(shù)組聲明語句不僅定義數(shù)組 、 為數(shù)組分配存儲控件 ， 而且還能對數(shù)組進(jìn)行初始化 ， 使得數(shù)值型數(shù)組的元素值初始化為 0， 字符型數(shù)組的元素值初始化為空等等 。 第 7章 數(shù)組 靜 態(tài) 數(shù) 組 數(shù)組的聲明 聲明數(shù)組的格式為 Dim 數(shù)組名 (〈 維數(shù)定義 〉 ) [ As 〈 類型 〉 ] 第 7章 數(shù)組 數(shù)組的使用 在建立 (聲明 )一個(gè)數(shù)組之后 ， 就可以使用數(shù)組 。 第 7章 數(shù)組 表 71 學(xué)生成績表 第 7章 數(shù)組 數(shù)組的形式 在 VB中有兩種形式的數(shù)組：靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組 。 一維數(shù)組中的下標(biāo)又稱為索引 (Index)。 例如 ， 數(shù)組 a有 10個(gè)元素： a(1)、 a(2)、a(3)……a(10)， 依次保存 10個(gè)學(xué)生的一門功課的成績 ，則 a為一維數(shù)組 。 可以聲明任何基本數(shù)據(jù)類型的數(shù)組 ， 包括用戶自定義類型和對象變量 ， 但是一個(gè)數(shù)組中的所有元素應(yīng)該具有相同的數(shù)據(jù)類型 。 可以用數(shù)組名及下標(biāo)惟一地識別一個(gè)數(shù)組的元素 ，比如 x(2)表示名稱為 x的數(shù)組中順序號 (下標(biāo) )為 2的那個(gè)數(shù)組元素 (變量 )。第 7章 數(shù)組 第 7章 數(shù)組 數(shù)組的概念 靜態(tài)數(shù)組 動(dòng)態(tài)數(shù)組 控件數(shù)組 For Each...Next語句 習(xí)題七 第 7章 數(shù)組 數(shù) 組 的 概 念 數(shù)組與數(shù)組元素 數(shù)組是一組用一個(gè)統(tǒng)一的名稱表示的 、 順序排列的變量 。 數(shù)組中的變量稱為數(shù)組元素 ， 用數(shù)字 (下標(biāo) )來標(biāo)識它們 ， 因此數(shù)組元素又稱為下標(biāo)變量 。 第 7章 數(shù)組 數(shù)組的類型 VB中的數(shù)據(jù)有多種類型 ， 相應(yīng)的數(shù)組也有多種類型 。 第 7章 數(shù)組 數(shù)組的維數(shù) 如果一個(gè)數(shù)組的元素只有一個(gè)下標(biāo) ， 則稱這個(gè)數(shù)組為一維數(shù)組 。 一維數(shù)組中的各個(gè)元素又稱為單下標(biāo)變量 。 如果有 10個(gè)學(xué)生 ， 每個(gè)學(xué)生有 5門功課的成績 ， 如表 71所示 。靜態(tài)數(shù)組是指數(shù)組元素的個(gè)數(shù)固定不變 ， 而動(dòng)態(tài)數(shù)組的大小 (其元素的個(gè)數(shù) )在運(yùn)行時(shí)可以改變 。 使用數(shù)組就是對數(shù)組元素進(jìn)行各種操作 ， 如賦值 、 表達(dá)式運(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的元素 。 ④ 下標(biāo)值應(yīng)在數(shù)組聲明時(shí)所指定的范圍之內(nèi) 。 第 7章 數(shù)組 靜態(tài)數(shù)組的應(yīng)用 【 例 71】 計(jì)算某組 10個(gè)同學(xué)的總分 、 平均分 。 (2) 建立應(yīng)用程序用戶界面 。 (3) 設(shè)置對象屬性 ， 參見圖 。 考慮到要在不同的過程中使用數(shù)組 ， 所以首先在模塊的通用段聲明數(shù)組 。 第 7章 數(shù)組 Option Base 1 Dim a(1 To 10) As Single “統(tǒng)計(jì) ” 按鈕 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。 個(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è)計(jì)步驟如下： (1) 建立用戶界面并設(shè)置對象屬性 ， 如圖 。 “ 統(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。 取一個(gè)字符，將其轉(zhuǎn)換成相應(yīng)的大寫字母 第 7章 數(shù)組 If c = A And c = Z Then j = Asc(c) 65 + 1 39。 對應(yīng)數(shù)組元素加 1 End If Next i For j = 1 To 26 39。 Chr$(j + 64) amp。 a(j) amp。 第 7章 數(shù)組 【 例 73】 隨機(jī)產(chǎn)生 10個(gè)數(shù) ， 用 “ 選擇排序法 ” 按遞增順序排序 。 (2) 編寫事件代碼 。 產(chǎn)生 10個(gè)隨機(jī)數(shù) a(i) = Int(Rnd * 90 + 10) = amp。 Next i For i = 1 To 9 39。 交換數(shù)據(jù) a(i) = a(j) a(j) = t 第 7章 數(shù)組 End If Next j Next i For i = 1 To 10 39。 a(i) amp。 第 7章 數(shù)組 圖 用戶界面和排序結(jié)果 第 7章 數(shù)組 【 例 74】 將文本框的數(shù)據(jù)存入數(shù)組中 ， 編寫程序 ，要求能輸入個(gè)人情況并可根據(jù)姓名進(jìn)行查詢 。 (2) 編寫事件代碼。 定義變體數(shù)組 ， 其數(shù)組元素可以是 Integer、 Long等類型 Dim num As Integer “輸入 ” 命令按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() Static i As Integer 39。 使程序開始時(shí) ， 光標(biāo) (焦點(diǎn)