【正文】 Visual Basic (下 ) 第 5章 數(shù)組 本章內(nèi)容 ?基本概念及操作 –靜態(tài)數(shù)組 –動(dòng)態(tài)數(shù)組 –控件數(shù)組 ? 控件 –列表框（ ListBox） –組合框（ ComboBox） 基本概念及操作 ? 數(shù)組 – 一組具有相同名字不同下標(biāo)的變量構(gòu)成了數(shù)組 score(1),score(2),score(3)…… score(50) – 例： 求 50個(gè)學(xué)生的平均成績(jī)，并 統(tǒng)計(jì)高于平均成績(jī)的人數(shù) 。 數(shù)組元素 下標(biāo) 基本概念及操作 For i = 1 To 50 score = val(InputBox(“請(qǐng)輸入學(xué)生的成績(jī) ” )) sum = sum + score Next i ave = sum / (i 1) Print ave End Sub 基本概念及操作 For i = 1 To 50 score(i) = InputBox(請(qǐng)輸入學(xué)生的成績(jī) ) sum = sum + score(i) Next i ave = sum / (i 1) Print ave For i = 1 To 50 If score(i) ave Then n = n + 1 Next i Print n 基本概念及操作 ? 數(shù)組 – 靜態(tài)數(shù)組 ? 一維數(shù)組 ? 二維數(shù)組 – 動(dòng)態(tài)數(shù)組 )1in t( ??步長(zhǎng) 初值終值一維數(shù)組 ?聲明 –聲明一維數(shù)組的形式如下： Dim 數(shù)組名（ [下界 To]上界） [As 類型 ] 例： Dim score(50) As Single score(0),score(1),score(2)…… score(50) Dim a(5 To 3) As Integer a(5)， a(4)， a(3)， a(2)， a(1)， a(0)， a(1)， a(2)， a(3) s(0) s(1) s（ 2） …… s(49) s(50) 數(shù)組的基本操作 ?數(shù)組的輸入 ?數(shù)組的輸出 數(shù)組的基本操作 ——數(shù)組的輸入 ?利用循環(huán)結(jié)構(gòu)分別給數(shù)組元素賦值 ?在一維數(shù)組中利用 Array函數(shù)為數(shù)組元素賦值 ? 數(shù)組名到數(shù)組名的直接賦值。 數(shù)組的基本操作 ——數(shù)組的輸入 ? 利用循環(huán)結(jié)構(gòu)分別給數(shù)組元素賦值 For i = 1 To 50 score(i) = InputBox(請(qǐng)輸入學(xué)生的成績(jī) ) Next i 數(shù)組的基本操作 ——數(shù)組的輸入 ?在一維數(shù)組中利用 Array函數(shù)為數(shù)組元素賦值 其格式為 ： 數(shù)組名 =Array（數(shù)組元素值） 例： Dim s() s=Array(1,2,3,4,5) 將 1， 2， 3， 4， 5這 5個(gè)數(shù)賦值給數(shù)組 s即s(0),s(1),s(2),s(3),s(4)的值分別為 1， 2， 3，4， 5。 數(shù)組的基本操作 ——數(shù)組的輸入 ?數(shù)組名到數(shù)組名的直接賦值 例如： Dim a(), b() a = Array(1, 2, 3, 4, 5) b = a 將數(shù)組 a的值 1， 2， 3， 4， 5賦值給數(shù)組 b相應(yīng)的元素。 數(shù)組的基本操作 ——數(shù)組的輸出 ? For Each．．． Next語(yǔ)句 ?其一般格式為： For Each 成員 In 數(shù)組 循環(huán)體 [Exit For] …… Next [成員 ] 例如： Dim s() S=array(1,2,3,4,5) For Each x in s print x。 Next x 數(shù)組的基本操作 ——數(shù)組的輸出 ?用循環(huán)結(jié)構(gòu) 例： Dim s() S=array(1,2,3,4,5) For i=0 to 4 print s(i)。 Next i 數(shù)組的使用 ?【 實(shí)例 】 輸入大賽選手的姓名和成績(jī)，輸出成績(jī)列表 。 編寫(xiě)代碼 ——數(shù)組賦值 ?數(shù)組賦值 Dim nam(9) As String, score(9) As Single, b As Boolean, i As Integer, j As Integer Const N = 9 編寫(xiě)代碼 ——數(shù)組賦值 Private Sub txtname_LostFocus() If Then nam(i) = Else nam(i) = * End If i = i + 1 If i N Then = False End Sub 編寫(xiě)代碼 ——數(shù)組賦值 Private Sub txtscore_LostFocus() If Then score(j) = Val() Else score(j) = 0 End If j = j + 1 = = If j N Then = False End Sub 編寫(xiě)代碼 ——顯示選手的成績(jī) ? 列表框 lstscore中顯示選手的成績(jī) Private Sub cmdshow_Click() Dim i As Integer If b = False Then For i = 0 To N Lstscore. AddItem Space$(3) + nam(i) + Space$(7) + Str$(score(i)) Next i End If b = True End Sub 編寫(xiě)代碼 ——“排序 ” 按鈕代碼 ?列表框中的數(shù)據(jù)賦值給數(shù)組 For i = 0 To N liststr = LTrim$(Lstscore. List(i)) 39。去掉列表項(xiàng) (i)中左邊的空格 s = Split(liststr, ) 39。將列表項(xiàng)字符分割成字符數(shù)組。分割符是 7個(gè)空格，由于列表項(xiàng)中姓名和成績(jī)之間由 7個(gè)空格分隔。 nam(i) = s(0) score(i) = Val(s(1)) Next i 編寫(xiě)代碼 ——“排序 ” 按鈕代碼 ?數(shù)組排序 For i = 0 To N 1 max = i For j = i + 1 To N If score(j) score(max) Then max = j Next j t = score(i): score(i) = score(max): score(max) = t st = nam(i): nam(i) = nam(max): nam(max) = st Next i 編寫(xiě)代碼 ——“排序 ” 按鈕代碼 ?排好序的數(shù)據(jù)輸出到列表框 For i = 0 To N (i) = Space$(3) + nam(i) + Space$(7) + Str$(score(i)) Next i End If 二維數(shù)組 ? 二維數(shù)組的聲明形式如下： – Dim 數(shù)組名 (下標(biāo) 1，下標(biāo) 2) [As 類型 ] Dim a(2,3) As Integer 存儲(chǔ)結(jié)構(gòu)為 ： a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(1,1) a(1,2) a(1,3) a(2,0) a(2,1) a(2,2) a(2,3) a(0,0) …… a(0,3) a(1,0) …… a(1,3) a(2,0) …… a(2,3) 二維數(shù)組 ? Option Base n語(yǔ)句 –其中 n可以取 1或 0 。當(dāng) n為 1時(shí)，可以使所有定義時(shí)省略下界的數(shù)組的初始下標(biāo)從 1開(kāi)始；為 0下標(biāo)從 0開(kāi)始。 此語(yǔ)句必須出現(xiàn)在數(shù)組聲明之前，且位于所有事件過(guò)程的前面 。其作用范圍僅限于出現(xiàn)在同一代碼窗口的未聲明下界的數(shù)組。一個(gè)代碼窗口中 Option Base n語(yǔ)句只能出現(xiàn)一次。 二維數(shù)組的應(yīng)用 ?【 實(shí)例 】 輸入 10個(gè)學(xué)生某門課程的平時(shí)成績(jī)，期中考試成績(jī)以及期末考試成績(jī)，按照平時(shí)成績(jī)占 15%，期中成績(jī)占25%，期末成績(jī)占 60%的比例，計(jì)算出10個(gè)學(xué)生此門課程的最后成績(jī)。 編寫(xiě)代碼 ——“錄入 ” 按鈕代碼 Option Base 1 Dim i As Integer Dim studentn(10, 2) As String, students(10, 4) As Single Const M = 10, N1 = 2, N2 = 4 Private Sub cmdin_Click() Dim s() As String i = i + 1 If i = M Then s = Split(, ,) studentn(i, 1) = s(0) studentn(i, 2) = s(1) For j = 1 To N2 1 students(i, j) = s(j + 1) Next j Else = False End If End Sub 編寫(xiě)代碼 ——文本框代碼 Private Sub txttable_Click() Dim i As Integer, j As Integer Dim tstr As String ?計(jì)算 “ 最后成績(jī) ” For i = 1 To M students(i, 4) = students(i, 1) * + students(i, 2) * + students(i, 3) * Next i 編寫(xiě)代碼 ——文本框代碼 39。輸出數(shù)組到文本框 For i = 1 To M For j = 1 To N1 tstr = tstr + studentn(i, j) + Space$(10 Len(studentn(i, j))) Next j For j = 1 To N2 tstr = tstr + str$(students(i, j)) + Space$(10 Len(str$(students(i, j)))) Next j = tstr + Chr$(13)+chr$(10) Next i 編寫(xiě)代碼 ——其它代碼 Private Sub txtin_GotFocus() = 0 39。選定的開(kāi)始位置，第一個(gè)字符的位置是零 = Len() 39。選定的長(zhǎng)度 End Sub 動(dòng)態(tài)數(shù)組 Option Base 1 Dim s() As String Private Sub Form_Click() Dim n As Integer 39。輸入學(xué)生人數(shù) n = InputBox(請(qǐng)輸入學(xué)生人數(shù) ) ReDim s(n) For i = 1 To n s(i) = InputBox(輸入學(xué)生姓名 ) Print Spc(2)。 s(i)。 Spc(2)。 Next 動(dòng)態(tài)數(shù)組 Print 改變數(shù)組的大小且保留數(shù)組中的值 ReDim Preserve s(n + 1) Print For i = 1 To n + 1 Print Spc(2)。 s(i)。 Spc(2)。 Next i 動(dòng)態(tài)數(shù)組 Print 改變數(shù)組的維數(shù)，原數(shù)組值丟失 ReDim s(n, 3) For i = 1 To n Print Spc(2)。 s(i, 1)。 Spc(2)。 Next i 自定義數(shù)據(jù)類型 ?用戶自定義類型通過(guò) Type語(yǔ)句實(shí)現(xiàn)，形式如下： Type 自定義類型名 元素 1 As 類型 元素 2 As 類型 …… End Type 自定義數(shù)據(jù)類型 ?說(shuō)明： ① “ 元素 ” 表示自定義類型中的一個(gè)成員。 ② “ 類型 ” 為標(biāo)準(zhǔn)數(shù)據(jù)類型。若為字符串型，必須是定長(zhǎng)字符串。 ③自定義類型必須在標(biāo)準(zhǔn)模塊（ .BAS）中定義，默認(rèn)是 Public。 自定義數(shù)據(jù)類型 ?例： 在模塊中定義一個(gè)學(xué)生成績(jī)處理的類型student 。 ①打開(kāi)模塊代碼窗口。 【 工程 】 |【 添加模塊 】 ，打開(kāi) “ 添加模塊 ” 對(duì)話框，單擊【 打開(kāi) 】 按鈕，打開(kāi)模塊 Modulel代碼窗口 自定義數(shù)據(jù)類型 ② 在 Modulel代碼窗口輸入自定義類型代碼： Type student Name As string*10 39。姓名，字符串長(zhǎng)度為 10。 Number As string*7 39。學(xué)號(hào)，字符串長(zhǎng)度為 7。 Score(1 To 4) As single 39。 4種成績(jī) End Type 自定義數(shù)據(jù)類型 ? 錄入數(shù)據(jù)代碼 Option Base 1 Dim stud