VisualBasic第6章數(shù)組及其應(yīng)用

1、浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 1第第6章章 數(shù)組及其應(yīng)用數(shù)組及其應(yīng)用 本章主要任務(wù)：本章主要任務(wù)： （1） 明確數(shù)組的用途，即什么問(wèn)題應(yīng)該考慮應(yīng)明確數(shù)組的用途，即什么問(wèn)題應(yīng)該考慮應(yīng)用數(shù)組進(jìn)行求解。用數(shù)組進(jìn)行求解。 （2） 掌握一維數(shù)組和二維數(shù)組的定義及引用方掌握一維數(shù)組和二維數(shù)組的定義及引用方法。法。 （3） 掌握動(dòng)態(tài)數(shù)組的使用方法。掌握動(dòng)態(tài)數(shù)組的使用方法。 （4） 掌握控件數(shù)組的建立與應(yīng)用方法。掌握控件數(shù)組的建立與應(yīng)用方法。 （5）掌握數(shù)組

2、的基本算法。）掌握數(shù)組的基本算法。 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 21數(shù)組不是一種數(shù)據(jù)類(lèi)型數(shù)組不是一種數(shù)據(jù)類(lèi)型數(shù)組有點(diǎn)類(lèi)似于數(shù)學(xué)上數(shù)組有點(diǎn)類(lèi)似于數(shù)學(xué)上“集合集合”的概念，其作用就是存放一的概念，其作用就是存放一批性質(zhì)相同的數(shù)據(jù)（稱(chēng)之為批性質(zhì)相同的數(shù)據(jù)（稱(chēng)之為數(shù)組元素?cái)?shù)組元素）。）。 2數(shù)組是一組相同類(lèi)型變量的有序集合數(shù)組是一組相同類(lèi)型變量的有序集合VB通過(guò)通過(guò)下標(biāo)下標(biāo)來(lái)給數(shù)組元素編號(hào)，數(shù)組名代表內(nèi)存中的一組來(lái)給數(shù)組元素編號(hào)，數(shù)組名代表內(nèi)存中的

3、一組數(shù)據(jù)，下標(biāo)與數(shù)組名相結(jié)合可以實(shí)現(xiàn)對(duì)具體元素的訪問(wèn)數(shù)據(jù)，下標(biāo)與數(shù)組名相結(jié)合可以實(shí)現(xiàn)對(duì)具體元素的訪問(wèn) 3數(shù)組在內(nèi)存中的存放形式數(shù)組在內(nèi)存中的存放形式 從本質(zhì)上講，定義數(shù)組就是在內(nèi)存中分配一塊連續(xù)的存儲(chǔ)區(qū)從本質(zhì)上講，定義數(shù)組就是在內(nèi)存中分配一塊連續(xù)的存儲(chǔ)區(qū)域，數(shù)組元素按照一定次序在這塊區(qū)域中連續(xù)存放。域，數(shù)組元素按照一定次序在這塊區(qū)域中連續(xù)存放。數(shù)組存儲(chǔ)空間數(shù)組存儲(chǔ)空間=元素個(gè)數(shù)元素個(gè)數(shù)該類(lèi)型數(shù)據(jù)占用字節(jié)數(shù)該類(lèi)型數(shù)據(jù)占用字節(jié)數(shù) 6.1 6.1 數(shù)組的基本概念數(shù)組的基本概念 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net

4、目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 31 1定義：定義：Dim Dim 數(shù)組名數(shù)組名( (下標(biāo)下標(biāo))As )As 類(lèi)型類(lèi)型 說(shuō)明：說(shuō)明：（1）數(shù)組名的命名規(guī)則與變量的命名規(guī)則相同。）數(shù)組名的命名規(guī)則與變量的命名規(guī)則相同。（2）下標(biāo)的形式為：）下標(biāo)的形式為：下界下界 To 上界上界下界與上界必須為常量，不可以是表達(dá)式或變量。下界與上界必須為常量，不可以是表達(dá)式或變量。下界可以省略，其缺省值默認(rèn)為下界可以省略，其缺省值默認(rèn)為0 0，可在模塊的通用聲，可在模塊的通用聲明部分使用明部分使用Option Base 1Option Base 1語(yǔ)句，將默認(rèn)缺省值設(shè)置為語(yǔ)句，將默認(rèn)缺

5、省值設(shè)置為1 1。元素個(gè)數(shù)元素個(gè)數(shù)= =上界上界- -下界下界+1+1 （3 3）類(lèi)型可以為）類(lèi)型可以為VBVB標(biāo)準(zhǔn)數(shù)據(jù)類(lèi)型，也可以為用戶(hù)自定義數(shù)標(biāo)準(zhǔn)數(shù)據(jù)類(lèi)型，也可以為用戶(hù)自定義數(shù)據(jù)類(lèi)型。據(jù)類(lèi)型。 6.2 6.2 一維一維數(shù)組數(shù)組6.2.1一維數(shù)組的定義及引用一維數(shù)組的定義及引用 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 42引用：引用：數(shù)組名數(shù)組名（下標(biāo)下標(biāo)） 一維數(shù)組各元素在內(nèi)存中按照下標(biāo)遞增的順序連續(xù)存放一維數(shù)組各元素在內(nèi)存中按照下標(biāo)遞增的順序連續(xù)

6、存放 下標(biāo)可以為整型常量、變量或表達(dá)式。下標(biāo)可以為整型常量、變量或表達(dá)式。 引用時(shí)下標(biāo)取值不能超出范圍（下界引用時(shí)下標(biāo)取值不能超出范圍（下界下標(biāo)下標(biāo)上界），否則將出現(xiàn)上界），否則將出現(xiàn)“下標(biāo)越界下標(biāo)越界”錯(cuò)誤。錯(cuò)誤。 84108數(shù)組元素?cái)?shù)組元素a(1) a(2) a(3) a(10)a3 3賦值賦值 與變量相同，數(shù)組定義完畢后，系統(tǒng)會(huì)自動(dòng)為每個(gè)元素賦初值。在與變量相同，數(shù)組定義完畢后，系統(tǒng)會(huì)自動(dòng)為每個(gè)元素賦初值。在程序中，可通過(guò)程序中，可通過(guò)循環(huán)循環(huán)給數(shù)組元素賦值，例如：給數(shù)組元素賦值，例如：For i=1 To 10 a(i)=Val(InputBox(“請(qǐng)輸入一個(gè)整數(shù)請(qǐng)輸入一個(gè)整數(shù)”)Ne

7、xt I6.2 一維數(shù)組一維數(shù)組浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 5例例6- 16- 1 統(tǒng)計(jì)某班（假設(shè)有統(tǒng)計(jì)某班（假設(shè)有3030人）程序設(shè)計(jì)課程考試的平均成績(jī)，人）程序設(shè)計(jì)課程考試的平均成績(jī)，并輸出高于平均分的成績(jī)。并輸出高于平均分的成績(jī)。Private Sub Form_Click() Const NUM = 30定義符號(hào)常量代表學(xué)生人數(shù)定義符號(hào)常量代表學(xué)生人數(shù) Dim a(1 To NUM) As Integer, sum%, ave！,

8、i%, n% sum = 0初始化求和變量初始化求和變量 For i = 1 To NUM輸入學(xué)生成績(jī)并計(jì)算總成績(jī)輸入學(xué)生成績(jī)并計(jì)算總成績(jī) a(i) = Val(InputBox(請(qǐng)輸入第請(qǐng)輸入第 & i & 個(gè)學(xué)生的成績(jī)個(gè)學(xué)生的成績(jī)) sum = sum + a(i) Next i ave = sum / NUM求平均成績(jī)求平均成績(jī) Print 平均成績(jī)：平均成績(jī)：; ave For i = 1 To NUM輸出高于平均分的成績(jī)輸出高于平均分的成績(jī) If a(i) ave Then Print a(i); n = n + 1 If n Mod 5 = 0 Then Print End If

9、Next i End Sub 6.2 6.2 一維一維數(shù)組數(shù)組浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 6 例例6-26-2 隨機(jī)產(chǎn)生隨機(jī)產(chǎn)生N N個(gè)大寫(xiě)字母，然后將第一個(gè)字母與最后一個(gè)個(gè)大寫(xiě)字母，然后將第一個(gè)字母與最后一個(gè)字母交換位置、第二個(gè)字母與倒數(shù)第二個(gè)字母交換位置、依次類(lèi)字母交換位置、第二個(gè)字母與倒數(shù)第二個(gè)字母交換位置、依次類(lèi)推，輸出最后的結(jié)果。推，輸出最后的結(jié)果。分析分析：首先找出交換的規(guī)律，即首先找出交換的規(guī)律，即第第i i個(gè)和第個(gè)和第N-i

10、+1N-i+1個(gè)字母交換個(gè)字母交換。然后判斷交換的次數(shù)為然后判斷交換的次數(shù)為N2N2 a(1) a(2) a(3) a(N-2)a(N-1)a(N)6.2 6.2 一維一維數(shù)組數(shù)組浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 7Private Sub Form_Click() Const N = 10 Dim a(1 To N) As String * 1, i As Integer,t As Integer For i = 1 To N a(i) = Ch

11、r(Int(Rnd * 25) + Asc(A)隨機(jī)產(chǎn)生大寫(xiě)字母隨機(jī)產(chǎn)生大寫(xiě)字母 Print a(i); Next i For i = 1 To N 2對(duì)稱(chēng)字母進(jìn)行交換對(duì)稱(chēng)字母進(jìn)行交換 t = a(i): a(i) = a(N - i + 1): a(N - i + 1) = t Next i Print For i = 1 To N Print a(i); Next iEnd Sub 6.2 一維數(shù)組一維數(shù)組浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 8

12、6.3 6.3 二維二維數(shù)組數(shù)組6.3.1 二維數(shù)組的定義及引用二維數(shù)組的定義及引用 1 1定義定義 ：Dim Dim 數(shù)組名數(shù)組名( (下標(biāo)下標(biāo)1 1, ,下標(biāo)下標(biāo)2 2) )As As 類(lèi)型類(lèi)型 二維數(shù)組的元素個(gè)數(shù)可以通過(guò)二維數(shù)組的元素個(gè)數(shù)可以通過(guò)（上界（上界1-1-下界下界1+11+1）（上界（上界2-2-下界下界2+12+1）計(jì)算。計(jì)算。 例如：例如： Dim x(1 To 2,1 To 3)As IntegerDim x(1 To 2,1 To 3)As Integer 定義了一個(gè)包含定義了一個(gè)包含6 6個(gè)元素的二維整型數(shù)組個(gè)元素的二維整型數(shù)組x x。 2引用：引用：數(shù)組名數(shù)組名（下

13、標(biāo)下標(biāo)1，下標(biāo)下標(biāo)2） 習(xí)慣上稱(chēng)二維數(shù)組第一維下標(biāo)為習(xí)慣上稱(chēng)二維數(shù)組第一維下標(biāo)為行下標(biāo)行下標(biāo)，第二維下標(biāo)為，第二維下標(biāo)為列下標(biāo)列下標(biāo)。 可以把二維數(shù)組看作一張可以把二維數(shù)組看作一張二維表二維表，各元素在內(nèi)存中按照，各元素在內(nèi)存中按照“先行先行后列后列”的順序連續(xù)存放的順序連續(xù)存放 841082數(shù)組元素?cái)?shù)組元素x(1,1) x(1,2) x(1,3)x8x(2,1) x(2,2) x(2,3)浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 9For i=1 To

14、 2輸出輸出For j=1 To 3Print x(i,j);Next jPrintNext I For i=1 To 2輸入輸入 For j=1 To 3x(i,j)=Int(Rnd*10) Next jNext i 3賦值賦值在程序中經(jīng)常使用在程序中經(jīng)常使用二重循環(huán)二重循環(huán)對(duì)二維數(shù)組中元素進(jìn)行輸入和輸出對(duì)二維數(shù)組中元素進(jìn)行輸入和輸出 一般而言，外循環(huán)控制行下標(biāo)的變化，內(nèi)循環(huán)控制列下標(biāo)的變一般而言，外循環(huán)控制行下標(biāo)的變化，內(nèi)循環(huán)控制列下標(biāo)的變化。化。 例例6-36-3 編程輸出某班（假設(shè)有編程輸出某班（假設(shè)有3030人）期末考試（假設(shè)共有人）期末考試（假設(shè)共有5 5門(mén)課程門(mén)課程考試）總成績(jī)最

15、高的學(xué)生的各門(mén)課程成績(jī)。考試）總成績(jī)最高的學(xué)生的各門(mén)課程成績(jī)。分析分析：一共需要處理：一共需要處理30306 6個(gè)數(shù)據(jù)（包括一個(gè)總成績(jī)），可以個(gè)數(shù)據(jù)（包括一個(gè)總成績(jī)），可以定義一個(gè)二維數(shù)組用來(lái)存放這些數(shù)據(jù)。查找最高總成績(jī)時(shí)，先定義一個(gè)二維數(shù)組用來(lái)存放這些數(shù)據(jù)。查找最高總成績(jī)時(shí)，先假設(shè)第一個(gè)學(xué)生的總成績(jī)最高，然后再拿其他學(xué)生的成績(jī)依次假設(shè)第一個(gè)學(xué)生的總成績(jī)最高，然后再拿其他學(xué)生的成績(jī)依次比較，最終得到最高的總成績(jī)。比較，最終得到最高的總成績(jī)。 6.3 二維數(shù)組二維數(shù)組浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6

16、.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 106.3.2 多維數(shù)組的定義及引用多維數(shù)組的定義及引用 多維數(shù)組的定義形式多維數(shù)組的定義形式Dim 數(shù)組名數(shù)組名(下標(biāo)下標(biāo)1,下標(biāo)下標(biāo)2)As 類(lèi)型類(lèi)型多維數(shù)組的引用形式多維數(shù)組的引用形式數(shù)組名數(shù)組名(下標(biāo)下標(biāo)1,下標(biāo)下標(biāo)2)多維數(shù)組的使用方法多維數(shù)組的使用方法一般通過(guò)一般通過(guò)多重循環(huán)多重循環(huán)進(jìn)行處理，其中每一重循環(huán)的循環(huán)變量進(jìn)行處理，其中每一重循環(huán)的循環(huán)變量變化范圍對(duì)應(yīng)一個(gè)下標(biāo)的變化范圍。變化范圍對(duì)應(yīng)一個(gè)下標(biāo)的變化范圍。 6.3 6.3 二維二維數(shù)組數(shù)組浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.

17、Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 116.4 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組 6.4.1 動(dòng)態(tài)數(shù)組的定義及引用動(dòng)態(tài)數(shù)組的定義及引用 1 1定義定義 ：Dim Dim 數(shù)組名數(shù)組名()As ()As 類(lèi)型類(lèi)型 動(dòng)態(tài)數(shù)組在定義時(shí)并未確定數(shù)組大?。ㄊ÷粤讼聵?biāo)說(shuō)明，動(dòng)態(tài)數(shù)組在定義時(shí)并未確定數(shù)組大小（省略了下標(biāo)說(shuō)明，但是但是括號(hào)并不能省略括號(hào)并不能省略 ） 2引用引用 在程序中使用動(dòng)態(tài)數(shù)組之前，必須指明數(shù)組的大小在程序中使用動(dòng)態(tài)數(shù)組之前，必須指明數(shù)組的大小 ReDim 數(shù)組名數(shù)組名(下標(biāo)下標(biāo)) 下標(biāo)說(shuō)明可以是常量，也可以是下標(biāo)說(shuō)明可以是常量，也可以是有

18、確定值的數(shù)值型變量有確定值的數(shù)值型變量。 可以多次使用可以多次使用ReDim語(yǔ)句來(lái)改變數(shù)組元素個(gè)數(shù)和維數(shù)，語(yǔ)句來(lái)改變數(shù)組元素個(gè)數(shù)和維數(shù)，但不能使用但不能使用ReDim語(yǔ)句改變數(shù)組的類(lèi)型。語(yǔ)句改變數(shù)組的類(lèi)型。 可通過(guò)可通過(guò)Preserve參數(shù)保留數(shù)組中原來(lái)的數(shù)據(jù)，但使用參數(shù)保留數(shù)組中原來(lái)的數(shù)據(jù)，但使用Preserve參數(shù)后就只能改變最后一維的大小，不能改變數(shù)參數(shù)后就只能改變最后一維的大小，不能改變數(shù)組的維數(shù)組的維數(shù) 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè)

19、 126.4 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組 例如：例如：Dim c() As Integer定義動(dòng)態(tài)數(shù)組定義動(dòng)態(tài)數(shù)組ReDim c(1 To 10)指明數(shù)組大小指明數(shù)組大小ReDim c(3, 4)改變數(shù)組元素個(gè)數(shù)和維數(shù)改變數(shù)組元素個(gè)數(shù)和維數(shù)ReDim Preserve c(3, 5)在保留原來(lái)數(shù)據(jù)的基礎(chǔ)上，增加一列在保留原來(lái)數(shù)據(jù)的基礎(chǔ)上，增加一列6.4.2 數(shù)組操作的相關(guān)函數(shù)數(shù)組操作的相關(guān)函數(shù) 1 1ArrayArray函數(shù)函數(shù) 功能：功能：給一個(gè)給一個(gè)VariantVariant類(lèi)型動(dòng)態(tài)數(shù)組賦值，同時(shí)確定數(shù)組大小類(lèi)型動(dòng)態(tài)數(shù)組賦值，同時(shí)確定數(shù)組大小 使用使用ArrayArray函數(shù)給動(dòng)態(tài)數(shù)組賦值后，該數(shù)

20、組被確定為一維數(shù)組，函數(shù)給動(dòng)態(tài)數(shù)組賦值后，該數(shù)組被確定為一維數(shù)組，其下標(biāo)下界由其下標(biāo)下界由Option BaseOption Base語(yǔ)句決定，下標(biāo)上界由參數(shù)個(gè)數(shù)決定語(yǔ)句決定，下標(biāo)上界由參數(shù)個(gè)數(shù)決定2 2LboundLbound函數(shù)和函數(shù)和UboundUbound函數(shù)函數(shù) 功能：功能：幫助用戶(hù)決定數(shù)組每一維下標(biāo)的變化范圍，幫助用戶(hù)決定數(shù)組每一維下標(biāo)的變化范圍，LboundLbound函數(shù)函數(shù)返回下界，返回下界，UboundUbound函數(shù)返回上界函數(shù)返回上界 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1

21、6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 136.4 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組 3 3SplitSplit函數(shù)和函數(shù)和JoinJoin函數(shù)函數(shù) 使用使用SplitSplit函數(shù)可以從一個(gè)字符串中，以指定字符為分隔符，函數(shù)可以從一個(gè)字符串中，以指定字符為分隔符，分離出若干個(gè)子字符串，并保存在一個(gè)下標(biāo)從分離出若干個(gè)子字符串，并保存在一個(gè)下標(biāo)從0 0開(kāi)始的一維數(shù)開(kāi)始的一維數(shù)組中組中 使用使用JoinJoin函數(shù)可以把一個(gè)函數(shù)可以把一個(gè)String類(lèi)型或類(lèi)型或Variant類(lèi)型數(shù)組類(lèi)型數(shù)組中的各個(gè)元素連接成為一個(gè)字符串中的各個(gè)元素連接成為一個(gè)字符串 例例6-56-5 通過(guò)輸入對(duì)話框輸入一批成績(jī)，把及格的

22、和不及格的通過(guò)輸入對(duì)話框輸入一批成績(jī)，把及格的和不及格的成績(jī)分別存放在數(shù)組成績(jī)分別存放在數(shù)組a a和和b b中，并以每行中，并以每行5 5 個(gè)數(shù)據(jù)的形式輸出數(shù)個(gè)數(shù)據(jù)的形式輸出數(shù)組組a a和和b b。 分析：分析：由于事先并不知道及格的和不及格的成績(jī)各有多少個(gè)，由于事先并不知道及格的和不及格的成績(jī)各有多少個(gè)，因此需要使用動(dòng)態(tài)數(shù)組存放成績(jī)。因此需要使用動(dòng)態(tài)數(shù)組存放成績(jī)。 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 146.36.3動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組 Privat

23、e Sub Form_Click() Dim a() As Integer, b() As Integer Dim n%, pa%, pb%, i% n = Val(InputBox(請(qǐng)輸入一個(gè)成績(jī)，輸入請(qǐng)輸入一個(gè)成績(jī)，輸入-1結(jié)束結(jié)束) pa = 0: pb = 0分別表示數(shù)組分別表示數(shù)組a和和b中元素個(gè)數(shù)中元素個(gè)數(shù) Do Until n = -1 If n = 60 Then pa = pa + 1 ReDim Preserve a(1 To pa) a(pa) = n Else pb = pb + 1 ReDim Preserve b(1 To pb) b(pb) = n End If

24、n = Val(InputBox(請(qǐng)輸入一個(gè)成績(jī)，輸入請(qǐng)輸入一個(gè)成績(jī)，輸入-1結(jié)束結(jié)束) Loop 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 156.3 6.3 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組 Print Print 及格成績(jī)：及格成績(jī)： For i = LBound(a) To UBound(a) Print a(i); If i Mod 5 = 0 Then Print Next i Print 不及格成績(jī)：不及格成績(jī)： For i = LBound(b) To

25、UBound(b) Print b(i); If i Mod 5 = 0 Then Print Next iEnd Sub浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 166.5 6.5 控件數(shù)組控件數(shù)組 6.5.1 控件數(shù)組的概念控件數(shù)組的概念 VBVB允許將一組相同類(lèi)型的控件構(gòu)成一個(gè)控件數(shù)組，它們?cè)试S將一組相同類(lèi)型的控件構(gòu)成一個(gè)控件數(shù)組，它們共共用同一個(gè)控件名，共享同樣的事件過(guò)程用同一個(gè)控件名，共享同樣的事件過(guò)程。系統(tǒng)自動(dòng)為控件數(shù)組中的每個(gè)控件分配一個(gè)唯

26、一的下標(biāo)，系統(tǒng)自動(dòng)為控件數(shù)組中的每個(gè)控件分配一個(gè)唯一的下標(biāo)，即控件的即控件的IndexIndex屬性屬性，第一個(gè)元素的下標(biāo)為，第一個(gè)元素的下標(biāo)為0 0。 控件數(shù)組中的每個(gè)控件都有自己的屬性設(shè)置。控件數(shù)組中的每個(gè)控件都有自己的屬性設(shè)置。6.5.2 控件數(shù)組的建立控件數(shù)組的建立 1 1在設(shè)計(jì)階段靜態(tài)創(chuàng)建在設(shè)計(jì)階段靜態(tài)創(chuàng)建 （1）在窗體上創(chuàng)建控件數(shù)組中的第一個(gè)控件，并設(shè)置好控）在窗體上創(chuàng)建控件數(shù)組中的第一個(gè)控件，并設(shè)置好控件名等相關(guān)屬性。件名等相關(guān)屬性。（2）選擇該控件，執(zhí)行）選擇該控件，執(zhí)行“編輯編輯”菜單中的菜單中的“復(fù)制復(fù)制”命令。命令。（3 3）根據(jù)需要執(zhí)行若干次）根據(jù)需要執(zhí)行若干次“編輯編

27、輯”菜單中的菜單中的“粘貼粘貼”命令。命令。 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 176.5 6.5 控件數(shù)組控件數(shù)組2在運(yùn)行階段動(dòng)態(tài)添加在運(yùn)行階段動(dòng)態(tài)添加 （1）在窗體上創(chuàng)建控件數(shù)組中的第一個(gè)控件，設(shè)置好控件名等）在窗體上創(chuàng)建控件數(shù)組中的第一個(gè)控件，設(shè)置好控件名等相關(guān)屬性后，設(shè)置其相關(guān)屬性后，設(shè)置其Index屬性值為屬性值為0，表示這是一個(gè)控件數(shù)組。，表示這是一個(gè)控件數(shù)組。 （2）在代碼中根據(jù)使用）在代碼中根據(jù)使用Load語(yǔ)句和語(yǔ)句和Unload

28、語(yǔ)句進(jìn)行控件元素語(yǔ)句進(jìn)行控件元素的添加和刪除，具體使用形式為：的添加和刪除，具體使用形式為： Load 控件數(shù)組名控件數(shù)組名(下標(biāo)下標(biāo)) Unload 控件數(shù)組名控件數(shù)組名(下標(biāo)下標(biāo)) （3 3）設(shè)置新添加控件的相關(guān)屬性，其中可通過(guò)）設(shè)置新添加控件的相關(guān)屬性，其中可通過(guò)LeftLeft屬性和屬性和TopTop屬性確定其位置，并將屬性確定其位置，并將VisibleVisible屬性設(shè)置為屬性設(shè)置為T(mén)rueTrue。.3控件數(shù)組的應(yīng)用控件數(shù)組的應(yīng)用 使用控件數(shù)組主要是利用其共享事件過(guò)程的特點(diǎn)來(lái)簡(jiǎn)化編程。使用控件數(shù)組主要是利用其共享事件過(guò)程的特點(diǎn)來(lái)簡(jiǎn)化編程。當(dāng)對(duì)一個(gè)建立好的控件數(shù)組編

29、寫(xiě)事件過(guò)程時(shí)，為區(qū)別各個(gè)控件當(dāng)對(duì)一個(gè)建立好的控件數(shù)組編寫(xiě)事件過(guò)程時(shí)，為區(qū)別各個(gè)控件，VB把控件的把控件的Index屬性作為過(guò)程參數(shù)屬性作為過(guò)程參數(shù)在過(guò)程中可以通過(guò)如下形式引用相關(guān)控件：在過(guò)程中可以通過(guò)如下形式引用相關(guān)控件： 控件數(shù)組名控件數(shù)組名(Index)(Index) 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 186.6 應(yīng)用舉例應(yīng)用舉例 6.6.1 統(tǒng)計(jì)問(wèn)題統(tǒng)計(jì)問(wèn)題例例6-76-7 輸入一批學(xué)生成績(jī)，分別統(tǒng)計(jì)輸入一批學(xué)生成績(jī)，分別統(tǒng)計(jì)09、1019

30、9099和和100分的學(xué)生人數(shù)，界面如圖分的學(xué)生人數(shù)，界面如圖7-5所示，要求如下：所示，要求如下：（1 1）通過(guò)文本框）通過(guò)文本框txtInputtxtInput輸入一批成績(jī)，以逗號(hào)分隔。除輸入一批成績(jī)，以逗號(hào)分隔。除數(shù)字符、小數(shù)點(diǎn)、逗號(hào)和回車(chē)符外，文本框不接受其它字符。數(shù)字符、小數(shù)點(diǎn)、逗號(hào)和回車(chē)符外，文本框不接受其它字符。（2 2）成績(jī)輸入完畢按回車(chē)鍵后，程序自動(dòng)將文本框中的數(shù)）成績(jī)輸入完畢按回車(chē)鍵后，程序自動(dòng)將文本框中的數(shù)據(jù)以逗號(hào)為分隔符進(jìn)行分離，統(tǒng)計(jì)并在圖形框據(jù)以逗號(hào)為分隔符進(jìn)行分離，統(tǒng)計(jì)并在圖形框picOutputpicOutput中顯中顯示各分?jǐn)?shù)段學(xué)生人數(shù)。示各分?jǐn)?shù)段學(xué)生人數(shù)。 浙

31、江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 196.6 應(yīng)用舉例應(yīng)用舉例 分析分析： （1）程序中需要判斷用戶(hù)輸入的字符，因此應(yīng)考慮編寫(xiě)）程序中需要判斷用戶(hù)輸入的字符，因此應(yīng)考慮編寫(xiě)txtInput_KeyPress事件過(guò)程。事件過(guò)程。 （2）分離出來(lái)的數(shù)據(jù)存放在數(shù)組中，由于不確定數(shù)據(jù)個(gè)數(shù)）分離出來(lái)的數(shù)據(jù)存放在數(shù)組中，由于不確定數(shù)據(jù)個(gè)數(shù)，因此應(yīng)該使用動(dòng)態(tài)數(shù)組。，因此應(yīng)該使用動(dòng)態(tài)數(shù)組。 （3 3）需要）需要09、10199099和和100分十種條件進(jìn)行分類(lèi)分十

32、種條件進(jìn)行分類(lèi)統(tǒng)計(jì)，考慮定義一個(gè)有統(tǒng)計(jì)，考慮定義一個(gè)有1010個(gè)元素一維數(shù)組個(gè)元素一維數(shù)組b b作為計(jì)數(shù)器，作為計(jì)數(shù)器，b(0)b(0)記錄記錄09分的人數(shù)，分的人數(shù)，b(1)b(1)記錄記錄1 1019分的人數(shù)，分的人數(shù)，b（10）記錄記錄100分的人數(shù)。分的人數(shù)。 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 206.6 應(yīng)用舉例應(yīng)用舉例 6.6.2 排序問(wèn)題排序問(wèn)題 1選擇法排序（假設(shè)對(duì)選擇法排序（假設(shè)對(duì)n個(gè)數(shù)按升序排列）個(gè)數(shù)按升序排列）（1）從）從n

33、個(gè)數(shù)中選出最小的數(shù)，與第個(gè)數(shù)中選出最小的數(shù)，與第1個(gè)數(shù)交換位置。個(gè)數(shù)交換位置。（2）從除第）從除第1 個(gè)數(shù)外的剩余個(gè)數(shù)外的剩余n-1個(gè)數(shù)中選出最小的數(shù)，與第個(gè)數(shù)中選出最小的數(shù)，與第2個(gè)數(shù)個(gè)數(shù)交換位置。交換位置。（3）重復(fù)選擇）重復(fù)選擇n-1次后，最終得到遞增序列。次后，最終得到遞增序列。 例例6-8 對(duì)隨機(jī)產(chǎn)生的對(duì)隨機(jī)產(chǎn)生的5個(gè)兩位整數(shù)，使用選擇法按遞增排序后輸出。個(gè)兩位整數(shù)，使用選擇法按遞增排序后輸出。 分析：分析：每次選出的陰影表示的最小數(shù)總是和方框表示的選擇范圍內(nèi)的每次選出的陰影表示的最小數(shù)總是和方框表示的選擇范圍內(nèi)的第一個(gè)數(shù)交換位置。第一個(gè)數(shù)交換位置。 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)

34、網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 216.5應(yīng)用舉例應(yīng)用舉例 Private Sub Form_Click() Const N = 5 Dim a(1 To N) As Integer, i%, j%, k%, t% Randomize For i = 1 To N a(i) = Int(Rnd * 90) + 10隨機(jī)產(chǎn)生一個(gè)兩位整數(shù)隨機(jī)產(chǎn)生一個(gè)兩位整數(shù) Print a(i); Next i For i = 1 To N 1選擇選擇N-1次次 k = ik代表最小元素下標(biāo)代表

35、最小元素下標(biāo) For j = i + 1 To N比較的范圍比較的范圍 If a(j) a(j+1) Then t = a(j): a(j) = a(j+1): a(j+1) = tEnd If Next j Next i Print For i = 1 To N Print a(i); Next iEnd Sub浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 246.6 應(yīng)用舉例應(yīng)用舉例 6.6.3查找問(wèn)題查找問(wèn)題 1順序查找順序查找順序查找的基本思想是根據(jù)

36、查找的關(guān)鍵值與數(shù)組中的元順序查找的基本思想是根據(jù)查找的關(guān)鍵值與數(shù)組中的元素素一一比較一一比較，如果相同，則查找成功，返回該元素的下標(biāo)；，如果相同，則查找成功，返回該元素的下標(biāo)；如果均不相同，則返回如果均不相同，則返回-1表示查找失敗。表示查找失敗。例例6-106-10 編程實(shí)現(xiàn)順序查找。編程實(shí)現(xiàn)順序查找。 key = Val(InputBox(請(qǐng)輸入查找的關(guān)鍵值請(qǐng)輸入查找的關(guān)鍵值, 順序查找順序查找) For i = LBound(a) To UBound(a) If a(i) = key Then Print key & 為數(shù)組中第為數(shù)組中第 & i & 個(gè)元素個(gè)元素 Exit For En

37、d If Next i If i UBound(a) Then Print key & “不是數(shù)組中的元素不是數(shù)組中的元素” 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 256.6 應(yīng)用舉例應(yīng)用舉例 2 2二分查找二分查找 前提條件：所查找的數(shù)組必須已經(jīng)排好序前提條件：所查找的數(shù)組必須已經(jīng)排好序 算法描述（假設(shè)在一個(gè)升序排列的數(shù)組算法描述（假設(shè)在一個(gè)升序排列的數(shù)組a中查找關(guān)鍵值中查找關(guān)鍵值key）（1）確定查找范圍，下界）確定查找范圍，下界low=LBou

38、nd(a)，上界，上界high=Ubound(a)，計(jì)算，計(jì)算m=(low+high)2。（2）比較）比較a(m)與與key的大小關(guān)系：的大小關(guān)系：若若a(m)=key，則查找成功，返回，則查找成功，返回m，算法結(jié)束。，算法結(jié)束。若若a(m)key，則重新確定查找范圍，則重新確定查找范圍，low=m+1，high保保持不變，重新計(jì)算持不變，重新計(jì)算m=(low+high)2。（3）重復(fù)（）重復(fù)（2）直到查找成功，或者）直到查找成功，或者lowhigh。若。若lowhigh則則說(shuō)明數(shù)組不無(wú)此關(guān)鍵值。說(shuō)明數(shù)組不無(wú)此關(guān)鍵值。 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站

39、：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 266.6 應(yīng)用舉例應(yīng)用舉例 方框表示查找范圍，加下劃線的數(shù)表示當(dāng)前進(jìn)行比較的元方框表示查找范圍，加下劃線的數(shù)表示當(dāng)前進(jìn)行比較的元素，二分查找每進(jìn)行一次，查找范圍就縮小一半。素，二分查找每進(jìn)行一次，查找范圍就縮小一半。 浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 276.6 應(yīng)用舉例應(yīng)用舉例 key = Val(InputBox(請(qǐng)輸入查找的關(guān)鍵值

40、請(qǐng)輸入查找的關(guān)鍵值, 二分查找二分查找) low = LBound(a) high = UBound(a) Do While low key Then high = m - 1 Else low = m + 1 End If Loop If low high Then Print key & 不在數(shù)組中不在數(shù)組中浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 286.6 應(yīng)用舉例應(yīng)用舉例 6.6.4插入和刪除問(wèn)題插入和刪除問(wèn)題 1插入插入假設(shè)要在一個(gè)具有假設(shè)要

41、在一個(gè)具有n個(gè)升序排列元素的一維數(shù)組中插入一個(gè)新個(gè)升序排列元素的一維數(shù)組中插入一個(gè)新的元素的元素k，算法描述如下：，算法描述如下：（1）從第）從第1個(gè)元素開(kāi)始逐個(gè)與個(gè)元素開(kāi)始逐個(gè)與k比較，一旦發(fā)現(xiàn)第比較，一旦發(fā)現(xiàn)第p個(gè)元素大于個(gè)元素大于k，則確定插入的位置為，則確定插入的位置為p，如果所有元素均小于，如果所有元素均小于k，則確定插，則確定插入的位置為入的位置為n+1。（2）重新定義數(shù)組大小，從第）重新定義數(shù)組大小，從第n個(gè)元素到第個(gè)元素到第p個(gè)元素逐一向后個(gè)元素逐一向后移動(dòng)一個(gè)位置。移動(dòng)一個(gè)位置。 （3 3）將）將k k賦值給第賦值給第p p個(gè)元素，完成插入操作。個(gè)元素，完成插入操作。 246108待插入元素待插入元素ka(1) a(2) a(3) a(4) a(5) a(6)7浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：浙江科技學(xué)院教信系計(jì)算機(jī)基礎(chǔ)教學(xué)網(wǎng)站：www.Goit.Netwww.Goit.Net目錄6.1 6.2 6.3 6.4 6.5 本章小結(jié) 作業(yè) 296.6 應(yīng)用舉例應(yīng)用舉例 例例6-6-12 編程實(shí)現(xiàn)插入算法。編程實(shí)現(xiàn)插入算法。 k = Val(InputBox(請(qǐng)輸入待插入的元素請(qǐng)輸入待插入的元素, 插入插入) For i = LBound(a) To UBound(a)確定插入位置確定插入位