《Visual Basic程序設(shè)計(jì)項(xiàng)目化案例教程》第7章 數(shù)組

【案例7-1】簡(jiǎn)易成績(jī)統(tǒng)計(jì)系統(tǒng)【案例7-2】數(shù)制轉(zhuǎn)換【本章小結(jié)】

一、案例效果

本案例是一個(gè)簡(jiǎn)易成績(jī)統(tǒng)計(jì)系統(tǒng)，程序界面如圖7-1所示。選擇好科目后，在“錄入”按鈕后的文本框中輸入一學(xué)生成績(jī)，并單擊“錄入”按鈕，錄入的成績(jī)就會(huì)在下邊的列表框中出現(xiàn)。對(duì)所錄入的成績(jī)我們可以進(jìn)行清空、刪除、修改等操作，在確保所有輸入的成績(jī)正確后需要按“確認(rèn)”按鈕，這時(shí)可以點(diǎn)擊“100分以上”、“90～99分”等命令按鈕，在點(diǎn)擊這些命令按鈕后可以在“統(tǒng)計(jì)結(jié)果”后的文本框中看到相應(yīng)的結(jié)果，同時(shí)標(biāo)簽“統(tǒng)計(jì)結(jié)果”也會(huì)跟著變化，變化的內(nèi)容與命令按鈕上的提示內(nèi)容保持一致?！景咐?-1】簡(jiǎn)易成績(jī)統(tǒng)計(jì)系統(tǒng)圖7-1二、技術(shù)分析

1．?dāng)?shù)組的概念

在實(shí)際應(yīng)用中，經(jīng)常需要處理一批相互有聯(lián)系、有一定順序、同一類(lèi)型并具有相同性質(zhì)的數(shù)據(jù)。通常把這樣的數(shù)據(jù)或變量叫數(shù)組。數(shù)組是由一組具有相同數(shù)據(jù)結(jié)構(gòu)的元素組成的有序的數(shù)據(jù)集合。

組成數(shù)組的元素統(tǒng)稱(chēng)為數(shù)組元素。數(shù)組用一個(gè)統(tǒng)一的名稱(chēng)來(lái)標(biāo)識(shí)這些元素，這個(gè)名稱(chēng)就是數(shù)組名。數(shù)組名的命名規(guī)則與簡(jiǎn)單變量的命名規(guī)則一樣。

數(shù)組中，對(duì)數(shù)組元素的區(qū)分用數(shù)組下標(biāo)來(lái)實(shí)現(xiàn)，數(shù)組下標(biāo)的個(gè)數(shù)稱(chēng)為數(shù)組的維數(shù)。有了數(shù)組，就可以用同一變量名來(lái)表示一系列的數(shù)據(jù)，并用一個(gè)序號(hào)(下標(biāo))來(lái)表示同一數(shù)組中的不同數(shù)組元素。

例如：數(shù)組s有6個(gè)數(shù)組元素，則可表示為s(1)、s(2)、s(3)、s(4)、s(5)、s(6)，它由數(shù)組名稱(chēng)和括號(hào)內(nèi)的下標(biāo)組成，下標(biāo)可以是常量、變量和數(shù)值表達(dá)式。

在VisualBasic中，根據(jù)數(shù)組占用內(nèi)存方式的不同，可以將數(shù)組分為常規(guī)數(shù)組和動(dòng)態(tài)數(shù)組兩種類(lèi)型。常規(guī)數(shù)組是數(shù)組元素個(gè)數(shù)不可改變的數(shù)組，動(dòng)態(tài)數(shù)組是數(shù)組元素個(gè)數(shù)可以改變的數(shù)組。數(shù)組的下標(biāo)變量一定要在定義了數(shù)組后才可以使用。另外，根據(jù)數(shù)組的維數(shù)，還可以將其分為一維數(shù)組、二維數(shù)組和多維數(shù)組。

2．?dāng)?shù)組的定義

常規(guī)數(shù)組是大小固定的數(shù)組，也就是說(shuō)，常規(guī)數(shù)組中包含的數(shù)組元素的個(gè)數(shù)不變，它總是保持同樣的大小，占有的存儲(chǔ)空間也保持不變。

定義常規(guī)數(shù)組通用的語(yǔ)句格式及功能如下：

Dim數(shù)組名[(維數(shù)定義)][As數(shù)據(jù)類(lèi)型]……

說(shuō)明：

(1)維數(shù)定義：下標(biāo)變量中的下標(biāo)個(gè)數(shù)稱(chēng)為數(shù)組的維數(shù)，當(dāng)它被省略時(shí)是指創(chuàng)建了一個(gè)無(wú)下標(biāo)的空數(shù)組。維數(shù)定義的格式如下：

[下界1To]上界1[，[下界2To]上界2]……

其中，一組“下界To上界”表達(dá)式即定義了數(shù)組的一維，有幾項(xiàng)“下界To上界”表達(dá)式就表示定義了幾維數(shù)組?！跋陆纭焙汀吧辖纭北硎驹摼S的最小和最大下標(biāo)值，通過(guò)關(guān)鍵字To連接起來(lái)代表下標(biāo)的取值范圍。下界和關(guān)鍵字To可以省略，省略后則等效于“0To上界”，下標(biāo)的下界默認(rèn)值為0。下界和上界可以使用數(shù)值常量或符號(hào)常量。

(2)數(shù)據(jù)類(lèi)型：用來(lái)定義數(shù)組下標(biāo)變量的數(shù)據(jù)類(lèi)型，可以定義所有數(shù)據(jù)類(lèi)型。當(dāng)它省略時(shí)，則相當(dāng)于定義了一個(gè)變體(Variant)數(shù)據(jù)類(lèi)型。

(3)?Dim語(yǔ)句不但能定義說(shuō)明數(shù)組，分配數(shù)組存儲(chǔ)空間，而且還能將數(shù)組進(jìn)行初始化，使得數(shù)值型數(shù)組元素值初始化為零，字符型數(shù)組的元素值初始化為空字符串。Dim語(yǔ)句本身不具備再定義功能，即不能直接使用Dim語(yǔ)句對(duì)已經(jīng)定義了的數(shù)組進(jìn)行再定義。

(4)一維數(shù)組定義舉例。

①?DimP(10)AsInteger

該語(yǔ)句定義了一個(gè)名稱(chēng)為P的一維整型數(shù)組，它有11個(gè)元素：P(0)、P(1)……P(10)，它們的初始值都為0。

②?Dims(1To5)AsDouble

該語(yǔ)句定義了一個(gè)名稱(chēng)為s的一維雙精度型數(shù)組，它有5個(gè)元素：s(1)、s(2)……s(5)，它們的初始值都為0。

(5)二維數(shù)組定義舉例。

①?DimA(2,2)AsInteger

該語(yǔ)句定義了一個(gè)名稱(chēng)為A的二維整型數(shù)組，它有3×3個(gè)元素：A(0,0)、A(0,1)、A(0,2)、A(1,0)、A(1,1)、A(1,2)、A(2,0)、A(2,1)、A(2,2)，它們的初始值都為0。

②?DimN(2,1To3)AsInteger

該語(yǔ)句定義了一個(gè)名稱(chēng)為N的二維整型數(shù)組，它有3×3個(gè)元素：N(0,1)、N(0,2)、N(0,3)、N(1,1)、N(1,2)、N(1,3)、N(2,1)、N(2,2)、N(2,3)，它們的初始值都為0。

(6)可以在一個(gè)數(shù)組中包含其他已經(jīng)定義過(guò)的數(shù)組，被包含的數(shù)組類(lèi)型一般應(yīng)與該數(shù)組類(lèi)型一樣，但變體型數(shù)組除外。

(7)可以使用OptionBasen語(yǔ)句重新設(shè)定數(shù)組的下界默認(rèn)值，其中n為0或1，表示數(shù)組下界的數(shù)值。OptionBasen語(yǔ)句只能用于模塊級(jí)，即在所有函數(shù)/過(guò)程的外部。

例如：

OptionBase1

DimN(5,5)AsInteger

這里，默認(rèn)的數(shù)組下標(biāo)的下界被設(shè)置為1。

(8)使用下標(biāo)變量時(shí)，可以完全像使用簡(jiǎn)單變量那樣進(jìn)行賦值和讀取，下標(biāo)變量的下標(biāo)可以是常量、變量和數(shù)值型表達(dá)式(長(zhǎng)整型數(shù)據(jù))。

(9)多維數(shù)組的定義方法類(lèi)似于二維數(shù)組，有興趣的讀者可以參見(jiàn)其他學(xué)習(xí)資料。

3．?dāng)?shù)組元素的引用

我們可以把每一個(gè)數(shù)組元素當(dāng)成一個(gè)變量來(lái)引用，只是這個(gè)“變量”采用數(shù)組元素的表示形式來(lái)表示。

例如：f(1)=f(2)+f(3)，該語(yǔ)句表示將數(shù)組元素f(2)的值與數(shù)組元素f(3)的值相加，并將結(jié)果賦給數(shù)組元素f(1)。

4．動(dòng)態(tài)數(shù)組

動(dòng)態(tài)數(shù)組是在程序的執(zhí)行過(guò)程中，數(shù)組元素的個(gè)數(shù)不固定，其上下界和維數(shù)可以變化的數(shù)組。

動(dòng)態(tài)數(shù)組在程序的執(zhí)行過(guò)程中才給數(shù)組開(kāi)辟存儲(chǔ)空間，在程序未運(yùn)行時(shí)，動(dòng)態(tài)數(shù)組不占用內(nèi)存。

當(dāng)不需要?jiǎng)討B(tài)數(shù)組時(shí)，還可以用Erase語(yǔ)句刪除它，收回分配給它的存儲(chǔ)空間，還可以用ReDim(或Dim)語(yǔ)句再次分配存儲(chǔ)空間。

格式：ReDim[Preserve]數(shù)組名[(維數(shù)定義)][As數(shù)據(jù)類(lèi)型]…

功能：創(chuàng)建動(dòng)態(tài)數(shù)組。說(shuō)明：

(1)創(chuàng)建動(dòng)態(tài)數(shù)組時(shí)上界和下界可以是常量和變量(有確定值)。

(2)可使用ReDim語(yǔ)句多次改變數(shù)組的數(shù)組元素個(gè)數(shù)和維數(shù)，但不能改變它的數(shù)據(jù)類(lèi)型。

(3)如果重新定義數(shù)組，則會(huì)刪除它原有數(shù)組元素中的數(shù)據(jù)，并將數(shù)值型數(shù)組元素全部賦0，將字符型數(shù)組元素全部賦空串。如果要想在數(shù)組重定義后不刪除原有數(shù)據(jù)，應(yīng)在定義數(shù)組時(shí)增加Preserve關(guān)鍵字，但是使用Preserve關(guān)鍵字后，只能改變最后一維的大小，而且只可以改變上界，不可以改變數(shù)組的維數(shù)。

(4)可以使用帶空小括號(hào)的Dim語(yǔ)句來(lái)定義動(dòng)態(tài)數(shù)組，不指定數(shù)組的大小。在程序的執(zhí)行過(guò)程中，可以使用ReDim語(yǔ)句來(lái)修改數(shù)組的大小和數(shù)組的上下界。例如：

Dimf()AsInteger

ReDimf(30)

5．列表框

列表框(ListBox)用來(lái)以選項(xiàng)列表形式顯示一系列選項(xiàng)，并可從中選擇一項(xiàng)或多項(xiàng)。如果列表框中有較多的選項(xiàng)，超出列表框長(zhǎng)度的區(qū)域不能一次全部顯示，則列表框?qū)?huì)自動(dòng)加上滾動(dòng)條以方便滾動(dòng)查看。列表框最主要的特點(diǎn)是只能從中選擇，不能直接寫(xiě)入或修改其內(nèi)容。如果需要修改列表項(xiàng)，則可以用程序代碼來(lái)實(shí)現(xiàn)。

列表框有3種風(fēng)格：?jiǎn)瘟辛斜砜?、帶?fù)選框的單列列表框和多列列表框，如圖7-2所示。圖7-2

1)列表框的特殊屬性

列表框除了具有一般控件的基本屬性外，還具有自己特殊的屬性。

(1)?Columns屬性。該屬性返回或設(shè)置一個(gè)值，用來(lái)決定ListBox控件是單列列表框還是多列列表框。

當(dāng)該屬性設(shè)置為0時(shí)，列表項(xiàng)垂直滾動(dòng)，所有列表項(xiàng)安排在一列中顯示，被稱(chēng)為單列列表框。

當(dāng)該屬性設(shè)置為大于0時(shí)，列表項(xiàng)水平滾動(dòng)，列表項(xiàng)將被安排在多個(gè)列中顯示，被稱(chēng)為多列列表框。該屬性既可以在設(shè)計(jì)狀態(tài)下設(shè)置，也可以在程序運(yùn)行中設(shè)置，但不可以在程序運(yùn)行時(shí)將多列列表框變?yōu)閱瘟辛斜砜蚧驅(qū)瘟辛斜砜蜃優(yōu)槎嗔辛斜砜颉?/p>

(2)?List屬性。該屬性用來(lái)返回或設(shè)置列表框控件對(duì)象中指定的列表項(xiàng)字符串，格式為

Object.List(Index)=String

例如：List1.List(0)=“計(jì)算機(jī)專(zhuān)業(yè)辦”

List屬性是一個(gè)字符型數(shù)組，每一個(gè)列表項(xiàng)都是這個(gè)數(shù)組中的一個(gè)元素，每個(gè)列表項(xiàng)都是一個(gè)字符型數(shù)據(jù)。Index表示列表框控件中指定列表項(xiàng)的序號(hào)。String表示一個(gè)列表項(xiàng)的字符。

List屬性既可以在設(shè)計(jì)狀態(tài)下設(shè)置，也可以在程序代碼中設(shè)置或引用。在設(shè)計(jì)時(shí)，可以通過(guò)該屬性為列表框添加列表項(xiàng)。

(3)?ListCount屬性。該屬性表示列表框中列表項(xiàng)的數(shù)量，其值為一個(gè)整數(shù)。第一個(gè)列表項(xiàng)的序號(hào)為0，最后一個(gè)列表項(xiàng)的序號(hào)為L(zhǎng)istCount-1值。ListCount屬性只能在程序運(yùn)行時(shí)設(shè)置或引用。

(4)?ListIndex屬性。該屬性表示執(zhí)行時(shí)選中的列表項(xiàng)序號(hào)，其值為整數(shù)。如果沒(méi)選中任何項(xiàng)，則ListIndex的值為-1。該屬性只能在程序運(yùn)行時(shí)設(shè)置或引用。

(5)?NewIndex屬性。該屬性返回最近一次添加到列表框中的列表項(xiàng)的索引，只在運(yùn)行時(shí)可用，且為只讀屬性。

(6)?Text屬性。該屬性的值為被選中的列表框中列表項(xiàng)的文本內(nèi)容，是控件的默認(rèn)屬性，只能在程序中設(shè)置或引用。

(7)?Style屬性。該屬性的值用于決定列表框的風(fēng)格，在運(yùn)行時(shí)是只讀的。其值為0時(shí)，列表框?yàn)闃?biāo)準(zhǔn)風(fēng)格；其值為1時(shí)，列表框?yàn)閺?fù)選框樣式。

2)列表框的方法

(1)?AddItem方法。該方法用來(lái)為指定的列表框添加新的列表項(xiàng)，其使用格式為

Object.AddItemString[,number]

例如：List1.AddItem“計(jì)算機(jī)專(zhuān)業(yè)辦”

說(shuō)明：Object是列表框的名稱(chēng)；String參數(shù)是加入到列表框的選項(xiàng)，它必須是字符型的表達(dá)式；number決定了新增列表項(xiàng)在列表框中的排序位置。對(duì)于第一個(gè)列表項(xiàng)，number的值為0。如果省略number參數(shù)，則在列表框的最后添加列表項(xiàng)。

(2)?RemoveItem方法。該方法用來(lái)從列表框中刪除一個(gè)指定的列表項(xiàng)。其使用格式為

Object.RemoveItemnumber

例如：List1.RemoveItem3

說(shuō)明：Object是列表框的名稱(chēng)；number參數(shù)是被刪除列表項(xiàng)在列表框中的位置，對(duì)于第一個(gè)列表項(xiàng)，number的值為0。

(3)?Clear方法。該方法用來(lái)清除列表框中的所有內(nèi)容。

3)列表框的事件

列表框擁有的基本事件有：Click(單擊事件)、DblClick(雙擊事件)和Scroll(滾動(dòng)事件)。三、操作步驟

1．創(chuàng)建程序界面

啟動(dòng)VisualBasic6.0，新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，并在窗體上添加3個(gè)框架、2個(gè)標(biāo)簽、1個(gè)組合框、2個(gè)文本框、1個(gè)列表框和17個(gè)命令按鈕，其布局如圖7-3所示。圖7-32．屬性的設(shè)置與修改

請(qǐng)按表7-1所列設(shè)置窗體中各對(duì)象的屬性。表7-1設(shè)置對(duì)象的屬性

3．程序代碼編輯

在程序代碼窗口中輸入下面的代碼：

Dimshuzu()AsSingle

‘shuzu()為動(dòng)態(tài)數(shù)組

’changdu

表示數(shù)組的長(zhǎng)度變量

DimchangduAsIntegerPrivateSubCommand1_Click() '錄入學(xué)生成績(jī)

List1.AddItemText1.Text

Text1.Text=""

Text1.SetFocus

EndSub

PrivateSubCommand12_Click() '確認(rèn)完成成績(jī)錄入changdu=List1.ListCount

ReDim

shuzu(changdu)AsSingle

Fori=0Tochangdu-1

shuzu(i)=Val(List1.List(i))

NextI

MsgBoxSpace(16)&“成績(jī)錄入已經(jīng)完成！”&Chr(13)&Chr(10)&“--------------------"&Chr(13)&Chr(10)&"如果您還想修改成績(jī)，那么在您修改后請(qǐng)?jiān)俅螁螕簟按_認(rèn)”按鈕！",48+vbOKOnly,"提示信息！"EndSub

PrivateSubCommand2_Click() '刪除列表框中指定的內(nèi)容

DimnAsInteger

n=List1.ListIndex

List1.RemoveItem(n)

EndSubPrivateSubCommand4_Click()'清除列表框的全部?jī)?nèi)容

List1.Clear

EndSub

PrivateSubCommand5_Click()

'退出

End

EndSub

PrivateSubCommand6_Click()'統(tǒng)計(jì)100分以上的人數(shù)DimaAsInteger,bAsInteger

b=0

Fora=0Tochangdu-1

Ifshuzu(a)>=100Then

b=b+1

EndIf

Next

Label2.Caption="100分以上的人數(shù)"

Text2.Text=b

EndSubPrivateSubCommand7_Click() '統(tǒng)計(jì)90～99分的人數(shù)

DimaAsInteger,bAsInteger

b=0

Fora=0Tochangdu-1

Ifshuzu(a)>=90Andshuzu(a)<=99Then

b=b+1

EndIf

Next

Label2.Caption="90～99分的人數(shù)"

Text2.Text=b

EndSubPrivateSubCommand11_Click() '統(tǒng)計(jì)60分以下的人數(shù)

DimaAsInteger,bAsInteger

b=0

Fora=0Tochangdu-1

Ifshuzu(a)<60Then

b=b+1

EndIf

Next

Label2.Caption="小于60分的人數(shù)"

Text2.Text=b

EndSub

4．程序代碼調(diào)試

輸入程序代碼后，完成程序代碼的調(diào)試和修改。

四、探索與思考

(1)完成本案例中還沒(méi)有實(shí)現(xiàn)的按鈕功能。

(2)如果再增加一個(gè)組合框?qū)崿F(xiàn)“班級(jí)”選擇功能，則如何修改程序？五、學(xué)生自主設(shè)計(jì)——斐波納契數(shù)列

1．設(shè)計(jì)要求

1)基本部分——模仿

模仿本案例設(shè)計(jì)一個(gè)課時(shí)統(tǒng)計(jì)系統(tǒng)。要求能夠統(tǒng)計(jì)出課時(shí)不足160節(jié)的人數(shù)、160～180節(jié)的人數(shù)、200節(jié)以上的人數(shù)、最多課時(shí)數(shù)、最少課時(shí)數(shù)。程序界面設(shè)計(jì)可參照?qǐng)D7-4所示。圖7-4

2)拓展部分——?jiǎng)?chuàng)意設(shè)計(jì)

一對(duì)兔子出生兩個(gè)月后，每個(gè)月會(huì)生一對(duì)小兔子，小兔子從第2個(gè)月起也可以生一對(duì)小兔子，30個(gè)月后，共有多少對(duì)兔子？這就是數(shù)學(xué)上有名的斐波納契數(shù)列，請(qǐng)用程序來(lái)計(jì)算出斐波納契數(shù)列。程序界面設(shè)計(jì)可參照?qǐng)D7-5所示。圖7-5

2．知識(shí)準(zhǔn)備

要完成自主設(shè)計(jì)內(nèi)容，需掌握以下知識(shí)：

(1)數(shù)組在程序設(shè)計(jì)中的運(yùn)用。

(2)選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)的運(yùn)用。

(3)標(biāo)簽、文本框、按鈕控件的使用。

(4)組合框、列表框的運(yùn)用。

3．評(píng)價(jià)標(biāo)準(zhǔn)

請(qǐng)對(duì)照表7-2完成自主設(shè)計(jì)的效果評(píng)價(jià)。表7-2效?果?評(píng)?價(jià)?表

4．設(shè)計(jì)小結(jié)

請(qǐng)將你的設(shè)計(jì)過(guò)程、設(shè)計(jì)體會(huì)、在設(shè)計(jì)過(guò)程中遇到的問(wèn)題以及解決方法寫(xiě)在下面。一、案例效果

要求能對(duì)輸入的數(shù)據(jù)進(jìn)行數(shù)制轉(zhuǎn)換，程序運(yùn)行界面如圖7-6所示。先在“請(qǐng)輸入十進(jìn)制數(shù)：”后的文本框中輸入一個(gè)十進(jìn)制數(shù)，當(dāng)按下“轉(zhuǎn)換”按鈕時(shí)，程序?qū)⒏鶕?jù)單選按鈕選擇的進(jìn)制進(jìn)行轉(zhuǎn)換，并將結(jié)果用復(fù)選項(xiàng)的顏色顯示在“結(jié)果顯示：”后面的文本框中。【案例7-2】數(shù)制轉(zhuǎn)換圖7-6

二、技術(shù)分析

控件數(shù)組由一組相同類(lèi)型的控件組成，它們共用一個(gè)相同的控件名稱(chēng)，即“名稱(chēng)”屬性相同。當(dāng)建立控件數(shù)組時(shí)，系統(tǒng)給每個(gè)控件賦予了一個(gè)唯一的索引號(hào)(Index)，即數(shù)組下標(biāo)，數(shù)組下標(biāo)值由Index屬性指定。通過(guò)“屬性”窗口的Index屬性，可以知道該控件的下標(biāo)是多少，第一個(gè)下標(biāo)是0。也就是說(shuō)，控件數(shù)組的名字由“名稱(chēng)”屬性指定，而數(shù)組中的每個(gè)元素則由Index屬性指定。與普通數(shù)組一樣，控件數(shù)組的下標(biāo)也在圓括號(hào)中。

例如：控件數(shù)組cmd(3)表示名稱(chēng)為cmd的控件數(shù)組中的第4個(gè)元素?？梢栽谠O(shè)計(jì)階段改變控件數(shù)組元素的Index屬性，但不能在運(yùn)行時(shí)改變。

1．控件數(shù)組的創(chuàng)建

控件數(shù)組有多種創(chuàng)建方法。

(1)通過(guò)進(jìn)行復(fù)制、粘貼建立。在窗體上創(chuàng)建一個(gè)控件對(duì)象，可進(jìn)行控件名的屬性設(shè)置，這是創(chuàng)建的第一個(gè)控件數(shù)組元素。選中該控件對(duì)象，將選中的控件對(duì)象復(fù)制到剪貼板中。

選中控件數(shù)組元素所在的窗體，再進(jìn)行粘貼操作，在進(jìn)行粘貼操作時(shí)，會(huì)彈出一個(gè)提示框，提示“已有了一個(gè)控件為“按鈕”。創(chuàng)建一個(gè)控件數(shù)組嗎？”。

單擊“是”按鈕后，就建立了一個(gè)控件數(shù)組元素；單擊“否”按鈕，則放棄創(chuàng)建控件數(shù)組的操作，只是粘貼了一個(gè)控件對(duì)象。再進(jìn)行若干次粘貼操作，就建立了所需個(gè)數(shù)的控件數(shù)組元素。

(2)通過(guò)給控件對(duì)象命名時(shí)建立。在窗體上創(chuàng)建作為數(shù)組元素的各個(gè)控件對(duì)象。

單擊要包含到數(shù)組中的某個(gè)控件，將其激活，再進(jìn)行控件名的屬性設(shè)置，這是創(chuàng)建的第一個(gè)控件數(shù)組元素。

單擊要包含到數(shù)組中的另一個(gè)控件，再在其“屬性”窗口內(nèi)“名稱(chēng)”屬性欄中改變它的名稱(chēng)，使它的名稱(chēng)與第一個(gè)控件的名稱(chēng)一樣。此時(shí)也會(huì)彈出一個(gè)如前所示的提示框。單擊“是”按鈕后，就建立了一個(gè)控件數(shù)組元素。重復(fù)該步驟，就建立了所需的控件數(shù)組元素。

2．與控件數(shù)組有關(guān)的屬性

(1)?TabIndex屬性，獲取或設(shè)置父窗體中大部分對(duì)象的Tab鍵的次序。它的取值為0～(n-1)的整數(shù)，這里n是窗體中有TabIndex屬性的控件的個(gè)數(shù)。給該屬性賦一個(gè)小于0的值時(shí)，會(huì)產(chǎn)生錯(cuò)誤。

(2)?TabStop屬性，獲取或設(shè)置一個(gè)值，該值用來(lái)指示是否能夠使用“Tab”鍵來(lái)將焦點(diǎn)從一個(gè)對(duì)象移動(dòng)到另一個(gè)對(duì)象。當(dāng)TabStop屬性值為T(mén)rue(默認(rèn))時(shí)，表示指定對(duì)象能夠獲得焦點(diǎn)；當(dāng)值為False時(shí)；表示當(dāng)用戶(hù)按下“Tab”鍵時(shí)，將跨越該對(duì)象，雖然該對(duì)象仍然在實(shí)際的“Tab”鍵順序中，按照TabIndex屬性的決定，保持其位置。

該屬性能夠在窗體的“Tab”鍵次序上加入或刪除一個(gè)控件。例如，如果要使用文本框控件對(duì)象輸入文字，那么將其TabStop屬性設(shè)置為False，則就不能使用“Tab”鍵使焦點(diǎn)移動(dòng)到該文本框上。

(3)?UBound和Lbound屬性，返回控件數(shù)組中控件的索引上界和索引下界。

3．控件數(shù)組的使用

同一控件數(shù)組成員共享同一個(gè)事件過(guò)程，它通過(guò)數(shù)組名和括號(hào)中的下標(biāo)來(lái)引用。具體使用詳見(jiàn)本案例操作步驟中的程序代碼部分