《Visual Basic語言程序設(shè)計(jì)教程（第二版）》課件第9章 數(shù)組

變量在一個時刻只能存放一個值，當(dāng)數(shù)據(jù)不多時，使用簡單變量可解決問題，但數(shù)據(jù)龐大時用簡單變量效率太低。例如：1）輸入100個數(shù)，按從大到小或者從小到大的順序輸出。2）某學(xué)校有近萬名學(xué)生，做一個學(xué)生信息表。

9.1數(shù)組的概念9.1數(shù)組的概念1．?dāng)?shù)組的概述

數(shù)組是具有相同數(shù)據(jù)類型的數(shù)據(jù)元素的集合。它由同一個名字不同下標(biāo)的同類型變量組成。數(shù)組中的變量稱為數(shù)組元素，數(shù)組中的每個元素都有一個唯一的下標(biāo)（索引）來標(biāo)識自己。

數(shù)組元素的個數(shù)稱為數(shù)組的長度（大小）

數(shù)組的特點(diǎn)：

1）數(shù)組的命名規(guī)則遵循標(biāo)識符命名規(guī)則；

2）數(shù)組中的元素是有序排列的；

3）數(shù)組的元素個數(shù)是有限的；

4）數(shù)組的數(shù)據(jù)類型就是該數(shù)組的下標(biāo)變量的數(shù)據(jù)類型；

5）數(shù)組元素的存儲不是松散狀態(tài)，而是占據(jù)一片連續(xù)區(qū)域。Score(1)Score(2)……Score(100)Score數(shù)組的內(nèi)存表示使用數(shù)組和簡單變量主要存在如下區(qū)別：（1）輸入的簡單變量越多，程序就越長，程序本身占用的內(nèi)存空間就越大。（2）在一個程序中使用的簡單變量個數(shù)有限，對大批量數(shù)據(jù)，簡單變量就不能表示了。（3）簡單變量的存儲位置呈松散狀態(tài)，數(shù)組卻占據(jù)著一片連續(xù)的存儲區(qū)域。（4）在程序結(jié)構(gòu)上，簡單變量不適合使用循環(huán)的辦法來解決，增加了代碼的復(fù)雜度。

9.1數(shù)組的概念2．?dāng)?shù)組的定義

1）數(shù)組的聲明一個數(shù)組包括數(shù)組名稱、數(shù)組維數(shù)、數(shù)組大小、數(shù)組類型以及作用范圍。在使用數(shù)組時要將以上內(nèi)容告訴計(jì)算機(jī)，以便開辟足夠的內(nèi)存單元來存儲數(shù)據(jù)，這個過程叫做聲明數(shù)組。聲明數(shù)組的語法格式：{Public|Private|Dim}數(shù)組名[(維數(shù)定義)][As數(shù)據(jù)類型]..

說明：（1）數(shù)組必須“先聲明，后使用”；（2）一條聲明語句可以同時聲明多個不同維數(shù)的數(shù)組，但數(shù)組間不能同名。9.1數(shù)組的概念2）數(shù)組的上、下界數(shù)組有上界和下界，數(shù)組的元素在上下界內(nèi)連續(xù)遞增。

語法格式：

[下界1To]上界1[,[下界2To]上界2]...

其中:

下界和上界分別表示該維的最小和最大下標(biāo)值，通過關(guān)鍵字To連接起來確定下標(biāo)的取值范圍。默認(rèn)下界為0，下界可以省略，若省略下界說明下標(biāo)的取值范圍是從0到上界。例如：聲明數(shù)組SumsDimSums(9)AsDouble’該數(shù)組包含10個元素，a(0)～a(9)9.1數(shù)組的概念3)數(shù)組的維數(shù)下標(biāo)變量中下標(biāo)的個數(shù)決定數(shù)組的維數(shù)，各維下標(biāo)之間用逗號“，”隔開。一個下標(biāo)的下標(biāo)變量構(gòu)成一維數(shù)組，一維數(shù)組表示線性順序；兩個下標(biāo)的下標(biāo)變量構(gòu)成二維數(shù)組，二維數(shù)組用于表示平面；三個下標(biāo)的下標(biāo)變量構(gòu)成三維數(shù)組，三維數(shù)組可以表示立體空間。有多少個下標(biāo)的下標(biāo)變量就構(gòu)成多少維的數(shù)組,通常又把二維以上的數(shù)組稱為多維數(shù)組。9.1數(shù)組的概念例如：Orange(1to5)表示一維數(shù)組共有5個元素。Apple(1to3,2to5)

表示二維數(shù)組，大小為3×4，元素總數(shù)為二個維數(shù)的乘積12，該數(shù)組在數(shù)學(xué)上可表示為3行4列的矩陣。Pear(1to2,1to3,2to4)

表示三維數(shù)組，大小為2×3×3，元素總數(shù)為三個維數(shù)的乘積18，該數(shù)組在數(shù)學(xué)上可以用立體圖形來表示。注意：

在增加數(shù)組的維數(shù)時，數(shù)組所占的存儲空間會大幅度增加，由于對每一個下標(biāo)變量都分配空間，所以聲明數(shù)組的大小要合適。9.1數(shù)組的概念4)數(shù)組的類型“As數(shù)據(jù)類型”表明數(shù)組元素的類型?？梢月暶魅魏位緮?shù)據(jù)類型的數(shù)組：Byte、Boolean、Long、Currency、Single、Double、Date、String（變長字符串）、String*length（定長字符串）、Object（對象型）、Variant（變體型）、用戶定義類型。9.1數(shù)組的概念5)下標(biāo)變量的使用說明下標(biāo)變量由數(shù)組名后跟小括號“()”括起來的下標(biāo)組成。且下標(biāo)必須放在小括號內(nèi)。

例如：a(3)不能寫成a3，否則被當(dāng)作簡單變量處理。下標(biāo)可以是常量、數(shù)值變量、算術(shù)表達(dá)式。

例如：a(6)，b(2*m+1)，c(i)。若下標(biāo)中若含有變量，使用前該變量應(yīng)提前賦值。

例如：當(dāng)i=1時：a(i)表示a(1)，a(i+2)表示a(3)；當(dāng)i=b(1)=1時：a(b(1))表示a(1)。下標(biāo)變量的類型就是數(shù)組的類型，所有下標(biāo)變量都具有一樣的類型。下標(biāo)變量像簡單變量一樣，一個下標(biāo)變量代表相應(yīng)數(shù)組的一個組成元素。9.1數(shù)組的概念9.2靜態(tài)數(shù)組與動態(tài)數(shù)組

靜態(tài)數(shù)組：在程序執(zhí)行前，系統(tǒng)進(jìn)行編譯時，根據(jù)數(shù)組說明語句開辟的固定的存儲空間，直到程序執(zhí)行完畢，在整個過程中存儲空間大小不再改變，這種數(shù)組就叫靜態(tài)數(shù)組。

動態(tài)數(shù)組：在執(zhí)行過程中給數(shù)組開辟存儲空間后，還可以用Redim（或Dim）語句再次分配存儲空間，這種數(shù)組就叫動態(tài)數(shù)組。在程序未執(zhí)行時，動態(tài)數(shù)組不占用內(nèi)存；而靜態(tài)數(shù)組，編譯程序?qū)樗臄?shù)據(jù)段預(yù)留空間。

9.2.1靜態(tài)數(shù)組1．靜態(tài)數(shù)組的聲明數(shù)組聲明的語法格式：Public|Private|Dim}數(shù)組名(下標(biāo))[As類型]下標(biāo)的格式:[下界1To]上界1[,[下界2To]上界2]…）例如：DimA(2)AsDouble一維數(shù)組A，共有三個雙精度元素，分別為A(0)、A(1)、A(2)。

DimB(-2To2)AsSingle一維數(shù)組B，共有5個單精度元素，分別為B(-2)、B(-1)、B(0)、B(1)、B(2)。

DimC(2,1To2)AsInteger二維數(shù)組C，共有6個整型元素，分別為C(0,1)、C(0,2)、C(1,1)、C(1,2)、C(2,1)、C(2,2)。

DimD(1,1)AsDouble

二維數(shù)組D，共有4個雙精度元素，分別為D(0,0)、D(0,1)、D(1,0)、D(1,1)。

2．?dāng)?shù)組下標(biāo)設(shè)置語句下界默認(rèn)開始值為0。但在使用時，若希望從別的值開始，這就需要用“OptionBase”語句設(shè)置數(shù)組下標(biāo)的起始值。

OptionBase語句的語法格式：OptionBasen

例如：

OptionBase1DimA(5)AsString

’等價于DimA(1To5)AsString9.2.1靜態(tài)數(shù)組注意：

1）在數(shù)組聲明時，下標(biāo)表示數(shù)組的維數(shù)大小，但在使用中，只表示數(shù)組中的一個元素。即：

DimD(1,1)AsDouble

聲明過程中D(1,1)表示D是一個二維數(shù)組，有4個元素，分別為D(0,0)、D(0,1)、D(1,0)、D(1,1)。聲明完成后再出現(xiàn)的D(1,1)，則表示數(shù)組D中的一個數(shù)組元素。

2）OptionBasen語句必須在標(biāo)準(zhǔn)模塊中或窗體通用聲明處使用。9.2.1靜態(tài)數(shù)組例9.2隨機(jī)產(chǎn)生5個兩位整數(shù)，求出5個數(shù)的平均值、最大值、最小值。思路：5個隨機(jī)兩位數(shù)要利用Rnd函數(shù)和Int函數(shù)，通過循環(huán)來產(chǎn)生，求平均值則要先求和，所以要用循環(huán)進(jìn)行累加求和，另外在累加求和過程中通過比較尋找5個數(shù)的最大值和最小值。9.2.1靜態(tài)數(shù)組OptionBase1

'標(biāo)識數(shù)組下標(biāo)從1開始，并且一定要是模塊級變量PrivateSubCommand1_Click()Dima(5)AsInteger

DimiAsInteger,maxAsInteger,minAsInteger,sumAsInteger

DimavrAsDoubleFori=1To5a(i)=Int(Rnd*90+10)'隨機(jī)數(shù)用到Rnd函數(shù)和Int函數(shù)

Label4.Caption=Label4.Caption&""&a(i)Nextimax=a(1)min=a(1)9.2.1靜態(tài)數(shù)組

Fori=1To5Ifmax<a(i)Thenmax=a(i)Ifmin>a(i)Thenmin=a(i)sum=sum+a(i)Nextiavr=sum/5Text1.Text=avrText2.Text=maxText3.Text=minEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Label4.Caption="隨機(jī)產(chǎn)生的5個數(shù)為："EndSub9.2.1靜態(tài)數(shù)組例9.3用數(shù)組求1!+2!+…+10!之和。

PrivateSubForm_Click()Dima(1To10)AsLong,sumAsLong,fAsLong

DimnAsIntegerf=1Forn=1To10'通過10次循環(huán)，分別求出1！～10！

f=f*na(n)=f'每求得一個階乘就賦值給一個數(shù)組元素

Nextnsum=0Forn=1To10sum=sum+a(n)Nextn

Print"1!+2!+3!+……10!=";sum

EndSub9.2.1靜態(tài)數(shù)組9.2.2動態(tài)數(shù)組

與靜態(tài)數(shù)組對應(yīng)的是動態(tài)數(shù)組，即數(shù)組元素個數(shù)不定的數(shù)組。若事先不知道數(shù)組的大小，并希望在運(yùn)行時可以根據(jù)需要改變數(shù)組的大?。ɑ虼笮〔粩喔淖儯@時就要使用動態(tài)數(shù)組。

動態(tài)數(shù)組與靜態(tài)數(shù)組不同的是：動態(tài)數(shù)組靈活、經(jīng)濟(jì)、可伸縮，可在任何時候改變數(shù)組的大小，從而不會浪費(fèi)內(nèi)存。

1．動態(tài)數(shù)組的聲明

數(shù)組聲明的語法格式：

{Public|Private|Dim}數(shù)組名()[As類型]

2．創(chuàng)建動態(tài)數(shù)組的步驟1）聲明一個空維數(shù)表的數(shù)組（不必說明維數(shù)和界限）。

例如：DimX()AsInteger。2）在需要指定數(shù)組大小時，再使用ReDim語句分配數(shù)組中實(shí)際元素個數(shù)。例如：ReDimX(50,50)。9.2.2動態(tài)數(shù)組ReDim語法格式：

ReDim[Preserve]數(shù)組名(下標(biāo))[As類型]其中：（1）ReDim語句中的[As類型]可以省略，若不省略則必須要和數(shù)組聲明中的類型一致。（2）使用ReDim相當(dāng)于數(shù)組被重新初始化，原來的數(shù)據(jù)將全部丟失。（3）Preserve表示再次使用ReDim語句改變數(shù)組大小時保留數(shù)組中原來的數(shù)據(jù)，但Preserve只能改變多維數(shù)組中最后一維的上界，否則運(yùn)行程序報錯。（4）ReDim語句用來更改某個已聲明維數(shù)或大小的數(shù)組。如果有一個較大的數(shù)組，并且不再需要它的某些元素，ReDim可通過減小數(shù)組大小來釋放內(nèi)存。另一方面，如果代碼確定某個數(shù)組需要更多元素，也可使用ReDim語句來實(shí)現(xiàn)。9.2.2動態(tài)數(shù)組例9.4使用ReDim語句來聲明動態(tài)數(shù)組。

PrivateSubForm_Click()Dima()AsIntegerReDima(5)AsIntegera(0)=100Print"第一次重新動態(tài)分配后：a(0)="&a(0)ReDima(1,1)a(0,1)=200Print"第二次重新動態(tài)分配后：a(0，1)="&a(0,1)ReDimPreservea(1,3)Print"第三次重新動態(tài)分配后：a(0，1)="&a(0,1)

EndSub9.2.2動態(tài)數(shù)組例9.5統(tǒng)計(jì)輸入的任意個數(shù)之和。PrivateSubCommand1_Click()DimNAsInteger,A()AsSingle,iAsInteger,sAsSingleN=InputBox("輸入幾個數(shù)？")

ReDimA(1ToN)Fori=1ToNA(i)=InputBox("輸入第"+Str(i)+"個數(shù)")Print"第"&i&"個數(shù)="&A(i)s=s+A(i)NextiPrintN&"個數(shù)之和為"&sEndSub9.2.2動態(tài)數(shù)組9.3一維數(shù)組的基本操作

數(shù)組是一個整體，但在具體操作時是針對數(shù)組元素進(jìn)行的?；静僮靼ǎ阂痪S數(shù)組元素賦初值一維數(shù)組元素的輸入與輸出數(shù)組的排序使用循環(huán)結(jié)構(gòu)賦初值例:Fori=1to100a(i)=0nextI則a（1）－a（100）的初值均為0使用Array函數(shù)賦初值(數(shù)組必須是變體型數(shù)組)格式：<數(shù)組名>＝Array（<列表>）例：DimAasvariantA=Array(2,4,6)

則A(0)＝2、A(1)=4、A(2)=69.3.1一維數(shù)組元素賦初值例9.6將若干學(xué)生的成績按照優(yōu)秀（90～100分，用A表示）、良好（80～89分，用B表示）、及格（60～79分，用C表示）、不及格（60分以下，用D表示）分檔，分別統(tǒng)計(jì)出各檔成績的人數(shù)。9.3.1一維數(shù)組元素賦初值PrivateSubCommand1_Click()Dims(10)AsInteger,aAsVariant,iAsInteger,pAsInteger

Fori=0To9a=Array(17,51,82,42,87,92,79,68,80,90)'初始化數(shù)組

NextiPrint"10個學(xué)生的成績分別為："Fori=0To9Printa(i)&"";Ifi=4ThenPrint'輸出數(shù)組

p=Int(a(i)/10)'將分?jǐn)?shù)化為0～10檔

s(p)=s(p)+1'對應(yīng)檔數(shù)組元素累加

NextiPrintPrint"等級A:";s(10)+s(9)Print"等級B:";s(8)Print"等級C:";s(7)+s(6)Print"等級D:";s(1)+s(2)+s(3)+s(4)+s(5)EndSub9.3.1一維數(shù)組元素賦初值9.3.2一維數(shù)組元素的輸入與輸出1.數(shù)組元素的輸入1）鍵盤輸入——使用文本輸入框或者InputBox()函數(shù)實(shí)現(xiàn)。例：靜態(tài)數(shù)組的輸入

PrivateSubForm_Click()DimA(1To10)AsInteger,iAsIntegerFori=1To10

A(i)=Val(InputBox(“輸入第"&i&"個數(shù)據(jù)","輸入"))Nexti……EndSub2）下標(biāo)生成——主要用于數(shù)組元素與下標(biāo)之間存在函數(shù)關(guān)系例：生成一維數(shù)組，元素為1、3、5、7……PrivateSubForm_Click()DimA(1To10)AsInteger,iAsIntegerFori=1To10

A(i)=2*i-1Nexti……EndSub9.3.2一維數(shù)組元素的輸入與輸出3）隨機(jī)數(shù)生成——使用Rnd函數(shù)實(shí)現(xiàn)例：隨機(jī)生成一維數(shù)組。PrivateSubForm_Click()DimA(1To10)AsInteger,iAsIntegerFori=1To10

A(i)=Int(100*Rnd)+1Nexti……EndSub9.3.2一維數(shù)組元素的輸入與輸出2.數(shù)組整體賦值將一個已知數(shù)組整體賦值給另一個可調(diào)數(shù)組，并自動確定可調(diào)數(shù)組的大小。如：

DimA(3)Asstring,B()asstringA(0)=“張三”：A(1)=“李四”

A(2)=“王五”：A(3)=“趙六”

B=A

通過賦值語句將數(shù)組B的大小確定為4，且各數(shù)組元素值和順序A的值相同。

9.3.2一維數(shù)組元素的輸入與輸出3.數(shù)組輸出數(shù)組內(nèi)容的輸出使用一重循環(huán)實(shí)現(xiàn)。例如：

PrivateSubForm_Click()DimA(1To10)AsInteger,iAsInteger …… Fori=1To10

PrintA(i)

Nexti……EndSub9.3.2一維數(shù)組元素的輸入與輸出9.3.3數(shù)組的排序1.冒泡法排序 冒泡法排序模擬水中氣泡的排放規(guī)則，使份量“較輕”（值較?。┑臍馀莞〉缴厦?，份量“較重”（值較大）的氣泡沉到下面，對每一趟排序，從第一個元素開始，按照規(guī)則調(diào)整相鄰元素的大小關(guān)系，確定一個最大（或最?。┑臍馀莸奈恢?

冒泡法排序如：有數(shù)組a：41865，使用冒泡法從小到大排序

第一趟排序：41865148651486514685146584186514865148651468514658

經(jīng)過第一趟排序的四次調(diào)整后，使五個數(shù)的最大值8放在最后一個位置，這個位置是確定的，在以后的排序過程中不會再改變，因此，在后面的排序中就不再對該位置進(jìn)行改變 第二趟排序（對前四個元素排序）： 在第一次排序的基礎(chǔ)上，經(jīng)過第二趟排序的三次調(diào)整后，使前四個數(shù)的最大值6放在倒數(shù)第二個位置，同樣，在后面的排序中就不再對該位置進(jìn)行改變

第三趟排序（對前三個元素排序）：1456814568145689.3.3數(shù)組的排序第四趟排序（對前二個元素排序）：1456814568

最后一個元素顯然不用再排序了，這樣，經(jīng)過四趟排序，完成了對數(shù)組a中的五個元素的排序，即若數(shù)組中有N個元素，則需要進(jìn)行N-1趟排序才能完成對整個數(shù)組的排序

9.3.3數(shù)組的排序程序?qū)崿F(xiàn)：（其中N為數(shù)組a的下標(biāo)上界）Fori=1ToN–1’控制有幾趟排序

Forj=1ToN–I’控制每趟排序的個數(shù)

Ifa(j)>a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNexti9.3.3數(shù)組的排序完整的冒泡排序程序1.輸入數(shù)據(jù)DimnAsIntegerDima()n=InputBox("dd")ReDima(n)Forj=1Tona(j)=Int(Rnd*90+10)Printa(j);Nextj2.數(shù)據(jù)處理(排序)Fori=1Ton-1'控制有幾趟排序

Forj=1Ton-i'控制每趟排序的個數(shù)

Ifa(j)>a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNexti3.數(shù)據(jù)輸出

Forj=1TonPrinta(j);Nextj2.選擇法排序

1）選擇法排序的基本思路將a(0)作為參考標(biāo)準(zhǔn)，在a(0)-a(9)中挑選最小的一個數(shù)，跟a(0)交換；再將a(1)到a(9)中最小的數(shù)與a(1)對換；依次類推。10個數(shù)共需進(jìn)行9輪比較以達(dá)到順序的目的。假設(shè)第1個數(shù)據(jù)最小，依次同第2、第3、…、第N個數(shù)據(jù)進(jìn)行比較，一旦第1個數(shù)據(jù)大于其他值則交換。這樣，第1輪比較完畢，找出了最小數(shù)據(jù)作為第1個數(shù)據(jù)。以第2個數(shù)據(jù)為最小數(shù)據(jù)，依次同第3、第4、…、第N個數(shù)據(jù)進(jìn)行比較，若第2個數(shù)據(jù)大于其他值則交換。這樣，第2輪交換完畢，則找出第二小的數(shù)據(jù)作為第2個數(shù)據(jù)。依此類推，第N-1輪比較將找出第N-1小的數(shù)據(jù)，剩下的一個數(shù)據(jù)就是最大數(shù)，排列在最后。

9.3.3數(shù)組的排序2）實(shí)現(xiàn)選擇法排序的程序DimiAsInteger,jAsInteger,tempAsInteger

Fori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thentemp=a(i)a(i)=a(j)a(j)=tempEndIfNextjNexti

其中i是外循環(huán)的循環(huán)變量，j是內(nèi)循環(huán)的循環(huán)變量。Fori=1Ton-1至Nexti是外循環(huán)，表示總共排序的趟數(shù)；Forj=1Ton-i至Nextj是內(nèi)循環(huán)，表示每一趟排序時，比較的次數(shù)。

9.3.3數(shù)組的排序例9.7隨機(jī)產(chǎn)生10個100以內(nèi)的正整數(shù)，將這10個數(shù)按照從小到大的順序輸出。要求單擊窗體在Label1中顯示隨機(jī)產(chǎn)生的10個數(shù)，單擊排序按鈕，在Label2中顯示按照從小到大的順序排序后的結(jié)果。

9.3.3數(shù)組的排序OptionBase1Dima(i)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerFori=1To10a(i)=Int(Rnd*100)Label1.Caption=Label1.Caption&a(i)&""NextiPrintEndSub9.3.3數(shù)組的排序PrivateSubCommand2_Click()DimiAsInteger,jAsInteger,tempAsInteger

Fori=1To9Forj=i+1To10Ifa(i)>a(j)Thentemp=a(i)a(i)=a(j)a(j)=tempEndIfNextjNextiFori=1To10Label3.Caption=Label3.Caption&a(i)&""NextiEndSub9.3.3數(shù)組的排序9.4二維數(shù)組的使用

二維數(shù)組通常是指由兩個下標(biāo)的數(shù)組元素所組成的數(shù)組。一個二維表格就是一個二維數(shù)組。數(shù)學(xué)上形如矩陣{aij}表示的數(shù)據(jù)均可用二維數(shù)組來處理。例9.8矩陣的加減運(yùn)算。

PrivateSubCommand1_Click()Dima(1To4,1To5)AsIntegerDimb(1To4,1To5)AsIntegerDimc(1To4,1To5)AsInteger

Fori=1To4Forj=1To5a(i,j)=Int(Rnd*40)+10

'通過Int和Rnd函數(shù)產(chǎn)生20個10～50之間的整數(shù)構(gòu)成矩陣ab(i,j)=Int(Rnd*40)+10c(i,j)=a(i,j)+b(i,j)

'矩陣a和矩陣b對應(yīng)元素之和放入矩陣c中

NextjNexti

Fori=1To4Forj=1To5Printa(i,j)&"";'輸出矩陣a中的數(shù)據(jù)

NextjPrint

NextiPrint"----------------------"'兩個矩陣之間用"-"隔開

Fori=1To4Forj=1To5Printb(i,j)&"";'輸出矩陣b中的數(shù)據(jù)

NextjPrint

NextiPrint"----------------------"9.4二維數(shù)組的使用

Fori=1To4Forj=1To5Printc(i,j)&"";'輸出矩陣c中的數(shù)據(jù)

NextjPrint

NextiEndSubPrivateSubCommand2_Click()ClsEndSub9.4二維數(shù)組的使用

例9.9求一個4×4矩陣的對角線元素之和。PrivateSubCommand1_Click()Dima(1To4,1To4)AsIntegerDimsumAsIntegerFori=1To4Forj=1To4a(i,j)=Val(InputBox("請輸入第"&i&"行，第"&j&"列的數(shù)","矩陣輸入"))Printa(i,j)&"";NextjPrintNextisum=0Fori=1To4Forj=1To4Ifi=jOri+j=5Thensum=sum+a(i,j)'兩條對角線上的值求和

NextjNextiPrint"矩陣的對角線元素的和為";sumEndSub9.4二維數(shù)組的使用

9.5控件數(shù)組

控件數(shù)組是由一組相同類型的控件組成，使用相同的名稱，具有基本相同的屬性，執(zhí)行不同的功能根據(jù)建立時的順序，系統(tǒng)給每個控件元素一個唯一的索引號（Index），即下標(biāo)，下標(biāo)從0開始。這些控件元素將使用相同的事件過程，在事件過程中使用Index區(qū)分各個元素

控件數(shù)組的建立有以下幾種方法：