第六章數(shù)組1

1、第六章第六章 數(shù)數(shù) 組組6.1 概 述 數(shù)組的概念：數(shù)組的概念：數(shù)組并不是一種數(shù)據(jù)類型，而數(shù)組并不是一種數(shù)據(jù)類型，而是是一組相同類型數(shù)據(jù)一組相同類型數(shù)據(jù)的集合。用一個統(tǒng)一的名字的集合。用一個統(tǒng)一的名字（數(shù)組名）數(shù)組名）代表邏輯上相關(guān)的一批數(shù)據(jù)，每個元代表邏輯上相關(guān)的一批數(shù)據(jù)，每個元素用素用下標(biāo)變量下標(biāo)變量來區(qū)分；下標(biāo)變量代表元素在數(shù)組來區(qū)分；下標(biāo)變量代表元素在數(shù)組中的位置。中的位置。其表示形式： A(1)，A(10) X(1,1), X1(1,10), X(2,10) Y(0,0,0), Y(1,2,5)Visual Basic中的數(shù)組，按不同的方式可分為中的數(shù)組，按不同的方式可分為以下幾類：

2、以下幾類：按數(shù)組的大?。ㄔ貍€數(shù)）是否可以改變來分為：定長數(shù)組、動態(tài)（可變長）數(shù)組。按元素的數(shù)據(jù)類型可分為：數(shù)值型數(shù)組、字符串?dāng)?shù)組、日期型數(shù)組、變體數(shù)組等。按數(shù)組的維數(shù)可分為：一維數(shù)組、二維數(shù)組、多維數(shù)組。對象數(shù)組：菜單對象數(shù)組、控件數(shù)組。6.2 一維數(shù)組一維數(shù)組 6.2.1 一維數(shù)組的聲明一維數(shù)組的聲明 形式: Dim 數(shù)組名數(shù)組名(to)As 或：或： Dim 數(shù)組名數(shù)組名(to)例：Dim a(1 to 10) As Integer 聲明了a數(shù)組有10個元素與上面聲明等價形式： Dim a%(1 to 10) 1是下標(biāo)的下界10是下標(biāo)的上界數(shù)組元數(shù)的數(shù)據(jù)類型說明：1數(shù)組名的命名規(guī)則與變量

3、的命名相同。2數(shù)組的元素個數(shù)：上界-下界+1。3缺省為0，若希望下標(biāo)從1開始，可在模塊的通用部分使用Option Base語句將設(shè)為1。其使用格式是： Option Base 0|1 后面的參數(shù)只能取0或1例如： Option Base 1 將數(shù)組聲明中缺省下標(biāo)設(shè)為1 4和不能使用變量，必須是常量，常量可以是直接常量、符號常量，一般是整型常量。5如果省略As子句，則數(shù)組的類型為變體類型。6數(shù)組中各元素在內(nèi)存占一片連續(xù)的存儲空間，一維數(shù)組在內(nèi)存中存放的順序是下標(biāo)大小的順序，如圖5-1所示：6.2.2 一維數(shù)組元素的引用一維數(shù)組元素的引用使用形式：使用形式： 數(shù)組名數(shù)組名(下標(biāo)下標(biāo)) 其中：下標(biāo)可

4、以是整型變量、常量或表達(dá)式。例如： 設(shè)有下面的數(shù)組B(10) As Integer 則下面的語句都是正確的。 A(1)=A(2)+B(1)+5 取數(shù)組元素運算 A(i)=B(i) 下標(biāo)使用變量 B(i+1)=A(i+2) 下標(biāo)使用表達(dá)式6.2.3 6.2.3 一維數(shù)組的基本操作一維數(shù)組的基本操作 1. 可通過循環(huán)給數(shù)組元素的初值可通過循環(huán)給數(shù)組元素的初值 For i = 1 To 10 A數(shù)組的每個元素值為1 A(i)=1 Next i 2. 數(shù)組的輸入數(shù)組的輸入For i = 1 To 4 For j = 1 To 5 sc(i, j) = InputBox(輸入輸入sc( &i & , &

5、 j & ) 的值的值) Next j Next I例例6.16.1 求求100100個學(xué)生的平均成績，并統(tǒng)計高于平均分的個學(xué)生的平均成績，并統(tǒng)計高于平均分的人數(shù)。人數(shù)。用簡單變量和循環(huán)，求平均成績程序段如下：用簡單變量和循環(huán)，求平均成績程序段如下： aver = 0aver = 0 For i = 1 To 100 For i = 1 To 100 mark = InputBox mark = InputBox(輸入學(xué)生成績輸入學(xué)生成績) aver = aver + mark aver = aver + mark Next i Next i aver = aver / 100 aver =

6、aver / 100問題問題（1 1）markmark只能放一個學(xué)生的成績，無法統(tǒng)計高于平均只能放一個學(xué)生的成績，無法統(tǒng)計高于平均分的人數(shù)。分的人數(shù)。（2 2）若用簡單變量保存）若用簡單變量保存100100個學(xué)生的成績，則需定義個學(xué)生的成績，則需定義100100個變量和使用個變量和使用100100句輸入語句。由此引入了數(shù)組。句輸入語句。由此引入了數(shù)組。 本章目錄本章目錄mark用數(shù)組用數(shù)組解決問題的程序如下：解決問題的程序如下： Dim mark(99) As Integer Dim mark(99) As Integer 聲明數(shù)組聲明數(shù)組mark Dim aver!, overn Dim a

7、ver!, overn%, i%, i% aver = 0 aver = 0 For i = 0 To 99 For i = 0 To 99 輸入成績，求分?jǐn)?shù)和輸入成績，求分?jǐn)?shù)和 mark(i) = InputBoxmark(i) = InputBox(輸入學(xué)生的成績輸入學(xué)生的成績) aver = aver + mark(i) aver = aver + mark(i) Next i Next i aver = aver / 100 aver = aver / 100 求求100人的平均分人的平均分 overnovern = 0 = 0 For i = 0 To 99 For i = 0 To

8、 99 統(tǒng)計高于平均分的人數(shù)統(tǒng)計高于平均分的人數(shù) If mark(i) aver Then overn = overnIf mark(i) aver Then overn = overn + 1 + 1 Next i Next i MsgBoxMsgBox ( (平均分平均分: : & aver & & aver & 高于平均分人數(shù)高于平均分人數(shù): : & & overnovern) ) 本章目錄本章目錄mark(99)mark(99)mark(98)mark(98)mark(2)mark(2)mark(1)mark(1)mark(0)mark(0)3. 3. 數(shù)組的輸出數(shù)組的輸出 輸出如下圖

9、所示的下三角數(shù)據(jù)輸出如下圖所示的下三角數(shù)據(jù)Dim sc(5,5) As Integer,i%,j%For i = 1 To 5 For j = 1 To i sc(i, j) = i * 5 + j Print sc(i, j); ; Next j Print 換行換行 Next I4. 求數(shù)組中最大元素及所在下標(biāo)求數(shù)組中最大元素及所在下標(biāo) Dim Max As Integer,iMax As Integer Max=A(1)：iMax=1 For i = 2 To 10 If A(i)Max ThenMax=A(i)iMax=i End If Next I5. 將數(shù)組元素倒置將數(shù)組元素倒置F

10、or i =1 To 102 t=A(i) A(i)=A(10-i+1) A(10-i+1)=tNext I例例6.1 6.2.4 一維數(shù)組的應(yīng)用一維數(shù)組的應(yīng)用 一、分類統(tǒng)計一、分類統(tǒng)計 例例6.2 在例在例6.1中如果還要統(tǒng)計中如果還要統(tǒng)計09，1019，2020，.8089，9099分?jǐn)?shù)段及分?jǐn)?shù)段及100分的學(xué)生人。分的學(xué)生人。 則可另用數(shù)組則可另用數(shù)組bn來存各分?jǐn)?shù)段的人數(shù)，并用來存各分?jǐn)?shù)段的人數(shù)，并用bn(0)存存09分的人數(shù)，分的人數(shù)，bn(1)存存1019分的人數(shù)，分的人數(shù)，bn(9)存存9099分分的人數(shù)，的人數(shù)，bn(10)存存100分的人數(shù)。分的人數(shù)。 二、二、 排序問題排序

11、問題排序是將一組數(shù)按遞增或遞減的次序排列，排序是將一組數(shù)按遞增或遞減的次序排列，例如按學(xué)生的成績、球賽積分等排序。排例如按學(xué)生的成績、球賽積分等排序。排序的算法有許多，常用的有序的算法有許多，常用的有選擇法選擇法、冒泡冒泡法法、插入法插入法、合并排序合并排序等。等。 （1）選擇法排序選擇法排序基本思想：每次在若干個無序數(shù)中找最小基本思想：每次在若干個無序數(shù)中找最小(大大)數(shù)，并放在相應(yīng)的位置。數(shù)，并放在相應(yīng)的位置。本章目錄本章目錄 算法思想：算法思想： 1）對有）對有n個數(shù)的序列（存放在個數(shù)的序列（存放在數(shù)組數(shù)組a(n)中），從中選出最小中），從中選出最?。ㄉ颍┗蜃畲螅ń敌颍┑臄?shù)，（升序）或

12、最大（降序）的數(shù)，與第與第1個數(shù)交換位置；個數(shù)交換位置； 2）除第）除第1 個數(shù)外，其余個數(shù)外，其余n-1個個數(shù)中選最小或最大的數(shù)，與第數(shù)中選最小或最大的數(shù)，與第1個數(shù)交換位置；個數(shù)交換位置； 3）依次類推，選擇了）依次類推，選擇了n-1次后，次后，這個數(shù)列已按升序排列。這個數(shù)列已按升序排列。原 始 數(shù) 據(jù) 8 6 9 3 2 7第 1趟 交 換 后 2 6 9 3 8 7第 2趟 交 換 后 2 3 9 6 8 7第 3趟 交 換 后 2 3 6 9 8 7第 4趟 交 換 后 2 3 6 7 8 9第 5趟 無 交 換 2 3 6 7 8 9 圖1-3-27 交 換 過 程1對于有對于有n

13、個數(shù)的數(shù)組，按遞增個數(shù)的數(shù)組，按遞增（降）（降）次序次序排序排序的步驟：的步驟：2選擇法排序程序流程圖選擇法排序程序流程圖For i = 1 To n - 1For i = 1 To n - 1 p = i p = i For j = i + 1 To n For j = i + 1 To n If a(p) a(j) Then p = j If a(p) a(j) Then p = j Next j Next j temp = a(i) temp = a(i) a(i) = a(p) a(i) = a(p) a(p) = temp a(p) = tempNext iNext i選擇法排序（升

14、序）的選擇法排序（升序）的VB程序程序：例例6.3 6.3 對已知存放在數(shù)組中的對已知存放在數(shù)組中的6 6個數(shù)，用選擇個數(shù)，用選擇法按遞增順序排序。法按遞增順序排序。 原始數(shù)據(jù)原始數(shù)據(jù)8 6 9 3 2 7a(1) a(2) a(3) a(4) a(5) a(6) 第第1輪比較輪比較2 6 9 3 8 7 a(2) a(3) a(4) a(5) a(6) 第第2輪比較輪比較2 3 9 6 8 7 a(3) a(4) a(5) a(6) 第第3輪比較輪比較2 3 6 9 8 7 a(4) a(5) a(6) 第第4輪比較輪比較2 3 6 7 8 9 a(5) a(6) 第第5輪比較輪比較2 3

15、6 7 8 9選擇法排序過程示意選擇法排序過程示意 本章目錄本章目錄2冒泡法排序（遞增）冒泡法排序（遞增） 算法思想：算法思想：(將相鄰兩個數(shù)比較，小的調(diào)到前頭將相鄰兩個數(shù)比較，小的調(diào)到前頭) 1）有）有n個數(shù)（存放在數(shù)組個數(shù)（存放在數(shù)組a(n)中），第一趟將中），第一趟將每相鄰兩個數(shù)比較，小的調(diào)到前頭，經(jīng)每相鄰兩個數(shù)比較，小的調(diào)到前頭，經(jīng)n-1次兩兩次兩兩相鄰比較后，最大的數(shù)已相鄰比較后，最大的數(shù)已“沉底沉底”，放在最后一，放在最后一個位置，小數(shù)上升個位置，小數(shù)上升“浮起浮起”； 2）第二趟對余下的）第二趟對余下的n-1個數(shù)（最大的數(shù)已個數(shù)（最大的數(shù)已“沉沉底底”）按上法比較，經(jīng)）按上法比較

16、，經(jīng)n-2次兩兩相鄰比較后得次次兩兩相鄰比較后得次大的數(shù)；大的數(shù)； 3）依次類推，）依次類推，n個數(shù)共進行個數(shù)共進行n-1趟比較，在第趟比較，在第j趟中要進行趟中要進行n-j次兩兩比較。次兩兩比較。For i = 1 To n - 1For i = 1 To n - 1 For j = 1 To n-i For j = 1 To n-i If a(j) a(j+1) Then If a(j) a(j+1) Then temp=a(j) temp=a(j) a(j)=a(j+1) a(j)=a(j+1) a(j+1)=temp a(j+1)=temp End if End if Next j N

17、ext jNext iNext i冒泡法排序（升序）的冒泡法排序（升序）的VB程序程序： 例例6.4 用隨機函數(shù)產(chǎn)生50個10，100 ）的隨機整數(shù)，并按照由小到大的順序打印出來。程序界面如下：三三. .插入數(shù)據(jù)插入數(shù)據(jù) 插入數(shù)據(jù)基本思想是：插入數(shù)據(jù)基本思想是：1 1）首先查找待插入數(shù)據(jù)在數(shù)組中的位置）首先查找待插入數(shù)據(jù)在數(shù)組中的位置k k；2 2）然后從最后一個元素開始往前直到下標(biāo)為）然后從最后一個元素開始往前直到下標(biāo)為k k的的元素依次往后移動一個位置；元素依次往后移動一個位置；3) 3) 第第k k個元素的位置騰出，將數(shù)據(jù)插入。個元素的位置騰出，將數(shù)據(jù)插入。 1 4 7 10 13 16

18、 19 22 25 14 k x 本章目錄本章目錄四四. .刪除數(shù)據(jù)刪除數(shù)據(jù) u刪除操作首先也是要找到欲刪除的元素的位置刪除操作首先也是要找到欲刪除的元素的位置k k；u然后從然后從k+1k+1到到n n個位置開始向前移動；個位置開始向前移動；u最后將數(shù)組元素減最后將數(shù)組元素減1 1。 1 4 7 10 13 14 16 19 22 25 k 本章目錄本章目錄數(shù)據(jù)刪除演示數(shù)據(jù)刪除演示6.3 二維數(shù)組及多維數(shù)組二維數(shù)組及多維數(shù)組 6.3.1 二維數(shù)組的聲明二維數(shù)組的聲明聲明格式如下：聲明格式如下：Dim 數(shù)組名數(shù)組名( to ， to ) As 其中的參數(shù)與一維數(shù)組完全相同。 例如：例如：Dim

19、 a(2,3) As Single 二維數(shù)組在內(nèi)存的存放順序是二維數(shù)組在內(nèi)存的存放順序是“先行后列先行后列”。例如數(shù)組。例如數(shù)組a的各元素在內(nèi)存中的存放順序是：的各元素在內(nèi)存中的存放順序是：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)(2,1)a(2,2)a(2,3) 6.3.2 二維數(shù)組的引用二維數(shù)組的引用 引用形式：引用形式： 數(shù)組名數(shù)組名(下標(biāo)下標(biāo)1，下標(biāo)，下標(biāo)2)例如：例如： a(1,2)=10 a(i+2,j)a(2,3)*2 在程序中常常通過二重循環(huán)來操作使用二維數(shù)組元素。在程序中常常通過二重循環(huán)來操作使用二維數(shù)組元

20、素。 6.3.3 二維數(shù)組的基本操作二維數(shù)組的基本操作 1. 二維數(shù)組數(shù)據(jù)的輸入 2. 求最大元素及其所在的行和列 3. 計算兩矩陣相乘 4. 矩陣的轉(zhuǎn)置 6.3.3數(shù)組的基本操作數(shù)組的基本操作1 1、數(shù)組的輸入、數(shù)組的輸入 通過通過TextBoxTextBox控件或控件或InputBoxInputBox函數(shù)輸入函數(shù)輸入Dim s(3,4) AS IntegerDim s(3,4) AS IntegerFor i = 0 To 3For i = 0 To 3 For j = 0 To 4 For j = 0 To 4 s s(I,j) = = InputBox(輸入輸入 & i &“, & j

21、 & 元素元素) Next j Next jNext i Next i 本章目錄本章目錄2 2、數(shù)組的輸出、數(shù)組的輸出 例例6.56.5 形成形成5 55 5的方陣，分別輸出方陣中各元素、的方陣，分別輸出方陣中各元素、上上三角和下三角三角和下三角元素元素 本章目錄本章目錄方陣規(guī)律：方陣規(guī)律：第一行的元素為第一行的元素為0 0 4 4，以后每一行是前一，以后每一行是前一行對應(yīng)元素增加行對應(yīng)元素增加5 5上三角規(guī)律上三角規(guī)律: : 每一行的起始列與行號相同每一行的起始列與行號相同, ,只要控制只要控制內(nèi)循環(huán)的初值內(nèi)循環(huán)的初值 用用Tab函數(shù)或函數(shù)或SpaceSpace定位定位控制輸出的空格，控制輸

22、出的空格，3 3、求數(shù)組和、最值、位置、求數(shù)組和、最值、位置例例6.66.6 求一維數(shù)組中各元素之和、最小數(shù)組元素，求一維數(shù)組中各元素之和、最小數(shù)組元素，并將最小值數(shù)組元素與數(shù)組中第一個元素交換并將最小值數(shù)組元素與數(shù)組中第一個元素交換v求元素和求元素和 通過循環(huán)將每個元素進行累加通過循環(huán)將每個元素進行累加 v求數(shù)組中最小元素求數(shù)組中最小元素 假設(shè)第一個元素為最小，假設(shè)第一個元素為最小，然后將該數(shù)與其他元素逐一比較，若發(fā)現(xiàn)小于最然后將該數(shù)與其他元素逐一比較，若發(fā)現(xiàn)小于最小值，就用新值替換最小值，同時記錄下標(biāo)值。小值，就用新值替換最小值，同時記錄下標(biāo)值。v求最大值求最大值的方法與求最小值相似的方法

23、與求最小值相似本章目錄本章目錄 例例6.7 設(shè)某一個班共有設(shè)某一個班共有60個學(xué)生，期末考個學(xué)生，期末考試試5門課程，請編一程序評定學(xué)生的獎學(xué)金，門課程，請編一程序評定學(xué)生的獎學(xué)金，要求打印輸出一、二等獎學(xué)金學(xué)生的學(xué)號和各要求打印輸出一、二等獎學(xué)金學(xué)生的學(xué)號和各門課成績。（獎學(xué)金評定標(biāo)準(zhǔn)是：總成績超過門課成績。（獎學(xué)金評定標(biāo)準(zhǔn)是：總成績超過全班總平成績?nèi)嗫偲匠煽?0%發(fā)給一個獎學(xué)金，超過全班發(fā)給一個獎學(xué)金，超過全班總平成績總平成績10%發(fā)給二個獎學(xué)金。）發(fā)給二個獎學(xué)金。） 6.3.5 多維數(shù)組的聲明和引用多維數(shù)組的聲明和引用定義多維數(shù)組的格式如下：定義多維數(shù)組的格式如下：Dim 數(shù)組名數(shù)組名

24、( to ， to ，) As 例如：例如： Dim a(5,5,5) As Integer 聲明聲明a是三維數(shù)組是三維數(shù)組 Dim b(2,6,10,5) As Integer 聲明聲明b是四維數(shù)組是四維數(shù)組 6.4 動態(tài)數(shù)組動態(tài)數(shù)組 動態(tài)數(shù)組：在聲明時未給出數(shù)組的大小。定長數(shù)組是在程動態(tài)數(shù)組：在聲明時未給出數(shù)組的大小。定長數(shù)組是在程序編譯時分配存儲空間，而動態(tài)數(shù)組是在程序執(zhí)行時分配存儲序編譯時分配存儲空間，而動態(tài)數(shù)組是在程序執(zhí)行時分配存儲空間?？臻g。6.4.1 動態(tài)數(shù)組的建立及使用動態(tài)數(shù)組的建立及使用 建立動態(tài)數(shù)組包括聲明和大小說明兩步：建立動態(tài)數(shù)組包括聲明和大小說明兩步： 1在使用在使用

25、Dim、Private或或Public語句聲明括號內(nèi)為空的數(shù)組。語句聲明括號內(nèi)為空的數(shù)組。 格式：格式：Dim | Private|Public 數(shù)組名（）數(shù)組名（）As 數(shù)據(jù)類型數(shù)據(jù)類型 例：例：Dim a() As Integer 2在過程中用在過程中用ReDim語句指明該數(shù)組的大小。語句指明該數(shù)組的大小。 格式：格式：ReDim Preserve 數(shù)組名（下標(biāo)數(shù)組名（下標(biāo)1，下標(biāo)，下標(biāo)2） Preserve參數(shù)：保留數(shù)組中原來的數(shù)據(jù) 例：例：Redim A(10) Redim Preserve A(20)說明：說明：（1）ReDim語句是一個可執(zhí)行語句，只能出現(xiàn)在過程中，并語句是一個可執(zhí)

26、行語句，只能出現(xiàn)在過程中，并且可以多次使用，改變數(shù)組的維數(shù)和大小。且可以多次使用，改變數(shù)組的維數(shù)和大小。 （2）定長數(shù)組聲時中的下標(biāo)只能是常量，而動態(tài)數(shù)組）定長數(shù)組聲時中的下標(biāo)只能是常量，而動態(tài)數(shù)組ReDim 語句中的下標(biāo)是常量，也可以是有了確定值的變量。語句中的下標(biāo)是常量，也可以是有了確定值的變量。 例：例： Private Sub Form_Click() Dim N As Integer N=Val(InputBox(“輸入輸入N=？”) Dim a(N) As Integer . End sub （3）在過程中可以多次使用）在過程中可以多次使用ReDim來改變數(shù)組的大小，來改變數(shù)組的大

27、小，也可也可 改變數(shù)組的維數(shù)。改變數(shù)組的維數(shù)。 例：例：ReDim x(10) ReDim x(20) x(20) = 30 Print x(20) ReDim x(20, 5) x(20, 5) = 10 Print x(20, 5) （4）每次使用）每次使用ReDim語句都會使原來數(shù)組中值丟失，可語句都會使原來數(shù)組中值丟失，可以在以在ReDim后加后加Preserve 參數(shù)來保留數(shù)組中的數(shù)據(jù)。但此時參數(shù)來保留數(shù)組中的數(shù)據(jù)。但此時 數(shù)組的維數(shù)不能改變。數(shù)組的維數(shù)不能改變。 6.4.2 與數(shù)組操作有關(guān)的幾個函數(shù)與數(shù)組操作有關(guān)的幾個函數(shù)1.Aarry函數(shù)函數(shù)Aarry函數(shù)可方便地對數(shù)組整體賦值，

28、但它只能給聲明函數(shù)可方便地對數(shù)組整體賦值，但它只能給聲明Variant的變量或僅由括號括起的動態(tài)數(shù)組賦值。賦值后的數(shù)的變量或僅由括號括起的動態(tài)數(shù)組賦值。賦值后的數(shù)組大小由賦值的個數(shù)決定。組大小由賦值的個數(shù)決定。 例如，要將例如，要將1,2,3,4,5,6,7 這些值賦值給數(shù)組這些值賦值給數(shù)組a，可使用下面，可使用下面的方法賦值。的方法賦值。Dim a()A=array(1,2,3,4,5,6,7)Dim a A=array(1,2,3,4,5,6,7) 2 求數(shù)組的上界求數(shù)組的上界Ubound( )函數(shù)、函數(shù)、 下界下界 Lbound( )函數(shù)函數(shù) Ubound( )函數(shù)和Lbound( )函

29、數(shù)分別用來確定數(shù)組某一維的上界和下界值。使用形式如下： UBound(, ) LBound( , ) 其中：必需的。數(shù)組變量的名稱，遵循標(biāo)準(zhǔn)變量命名約定。：可選的；一般是整型常量或變量。指定返回哪一維的上界。1 表示第一維，2 表示第二維，如此等等。如果省略默認(rèn)是1。3Split函數(shù)函數(shù)使用格式：使用格式：Split( ,)說明：說明： 使用使用Split函數(shù)可從一個字符串中，以某個指定符號為分隔函數(shù)可從一個字符串中，以某個指定符號為分隔符，分離若干個子字符串，建立一個下標(biāo)從零開始的一維符，分離若干個子字符串，建立一個下標(biāo)從零開始的一維數(shù)數(shù)組組。補充例補充例6.8： 使用文件框，通過編程實現(xiàn)大

30、量數(shù)據(jù)的輸入使用文件框，通過編程實現(xiàn)大量數(shù)據(jù)的輸入 輸入一系列的數(shù)據(jù)，存放在數(shù)組中。對輸入的數(shù)據(jù)允許輸入一系列的數(shù)據(jù)，存放在數(shù)組中。對輸入的數(shù)據(jù)允許修改和自動識別非數(shù)字?jǐn)?shù)據(jù)。修改和自動識別非數(shù)字?jǐn)?shù)據(jù)。 分析：分析： 利用文本框?qū)崿F(xiàn)大量數(shù)字串的輸入和編輯的功能；利用文本框?qū)崿F(xiàn)大量數(shù)字串的輸入和編輯的功能； 通過編程將輸入的數(shù)字串以逗號為分界符分離出各項數(shù)據(jù)；通過編程將輸入的數(shù)字串以逗號為分界符分離出各項數(shù)據(jù)； 對非數(shù)字輸入的判斷能力。對非數(shù)字輸入的判斷能力。6.5 6.5 控件數(shù)組控件數(shù)組 6.5.1 控件數(shù)組的概念控件數(shù)組的概念 一組相同類型的控件組成。一組相同類型的控件組成。 它們共用一個控件名，具有它們共用一個控件名，具有相同的屬性，建立時系統(tǒng)給每個元素賦一個唯一的索引號相同的屬性，建立時系統(tǒng)給每個元素賦一個唯一的索引號(Index)。 控件數(shù)組共享同樣的事件過程，通過返回的下標(biāo)值控件數(shù)組共享同樣的事件過程，通過返回的下標(biāo)值區(qū)分控件數(shù)組中的各個元素。區(qū)分控件數(shù)組中的各個元素。 例：例： Private Sub cmdName _Click(Index As Integer) If Index=3 then 處理第四個命令按鈕的操作處理第四個命令按鈕的操作 End If