VB教案第四章課件

靜態(tài)數(shù)組與動態(tài)數(shù)組ForEach…Next語句控件數(shù)組記錄數(shù)組選擇性控件第四章數(shù)組數(shù)組名(下標(biāo)）數(shù)組名（下標(biāo)1[,下標(biāo)2，…]）例：Dima(10),iAsIntegerFori=0To10a(i)=iNextDimb(5,5)AsIntegerb(0,0)=1靜態(tài)(定長)數(shù)組和動態(tài)(變長)數(shù)組

4.1數(shù)組的概念

Dim數(shù)組名([下界1to]上界1,[下界2to]上界2)[As數(shù)據(jù)類型]例：Dimv%(100to200,20)

Dimstr(-10to10)Asstring*3Constnasinteger=15Dima(n)asinteger:Dimb(2*3)asintegerDimc(3.6)asintegerDimxasinteger：x=15Dimd(x)asinteger（錯誤）OptionBase1(通用聲明段）

還可使用Public、Static、Private等語句例４．１4.2靜態(tài)數(shù)組格式：Dim數(shù)組名（）[As類型名]ReDim[Preserve]數(shù)組名(上界1[，上界2…])[As類型名]例Dima()ReDima(10,10)AsVariant……ReDima(1to2,2,2)AsVariant

4.3動態(tài)數(shù)組注意：ReDim語句是可執(zhí)行語句，只能出現(xiàn)在過程中。ReDim語句中的上下界可以包含變量。例：DimnAsIntegern=10ReDima(n,n)ReDim語句不能改變數(shù)組的數(shù)據(jù)類型Dima()ReDima(10,10)Asinteger（錯誤）4.3動態(tài)數(shù)組注意：若沒有Redim語句而直接使用數(shù)組的元素則出錯：下標(biāo)越界使用Preserve的Redim不能改變數(shù)組的維數(shù)，且只能改變數(shù)組最后一維的大小。例：

Dimb()AsInteger

……

Redimb(1,2)

……

RedimPreserveb(1,4)例４．２4.3動態(tài)數(shù)組給Variant類型動態(tài)數(shù)組各元素賦值。Dim數(shù)組名()[AsVariant]數(shù)組名=array(數(shù)值列表）例：DimaAsVarianta=Array(1,2,3,4)4.４array函數(shù)注意：a=Array(1,2,3,4)’此處直接寫數(shù)組名ａ數(shù)組的大小由賦值的個數(shù)決定例： DimaAsVarianta=Array(1,2)ReDima(5)a=Array(1,2,3,4,5,6)4.４array函數(shù)例：Dima()AsVariant,b()AsVariant,i%a=Array(1,2,3,4,5)ReDimb(UBound(a))b=a‘等價于fori=0toUbound(a) b(i)=a(i)nexti‘Lbound(數(shù)組名)4.４array函數(shù)格式：Erase數(shù)組名1[,數(shù)組名2]……功能：①重新初始化靜態(tài)數(shù)組的元素

②釋放動態(tài)數(shù)組的存儲空間例：Dima(10)AsInteger,Dimb()AsInteger

……

Erasea，b ’將a(0)～a(10)都置為0

’釋放b數(shù)組空間4.５數(shù)組的刪除語法格式：

ForEach成員In數(shù)組名

循環(huán)體

[ExitFor]

Next成員

成員是Variant變量，代表數(shù)組中每一個元素

4.6ForEach...Next循環(huán)語句例： Dima(1To6)AsInteger …DimxAsVariant ForEachxIna Printx NextxFori=1to6 printa(i)Nexti

例4.3、4.4

4.6ForEach...Next循環(huán)語句4.7控件數(shù)組

一般數(shù)組和控件數(shù)組控件數(shù)組是一組具有相同名稱、類型和事件過程的控件特點：(1)相同的控件名稱(即Name屬性)；(2)具有相同的一般屬性；(3)共用相同的事件過程。以下標(biāo)索引值(Index)來標(biāo)識各個控件，第一個下標(biāo)索引號默認(rèn)為04.7控件數(shù)組

建立控件數(shù)組有三種方法：

(1)給控件起相同的名稱

(2)將現(xiàn)有的控件復(fù)制并粘貼到窗體等上面

(3)在程序運行時通過Load語句創(chuàng)建控件數(shù)組4.7控件數(shù)組步驟：1.在窗體上創(chuàng)建第一個控件，設(shè)置好控件的屬性，將控件的Index屬性設(shè)置為0。2.在代碼中通過Load和Unload語句添加和刪除元素。例4.54.7控件數(shù)組控件數(shù)組共用同一個的事件過程

PrivateSubCommand1_Click(IndexAsInteger) ……EndSub使用If或SelectCase語句判斷Index的值，并執(zhí)行相應(yīng)的操作例4.6例4.7判斷是哪個控件元素4.8記錄類型數(shù)組TypeMemberinfom_IDAsIntegerm_NameAsString*10m_DepAsString*10m_PayAsCurrencyEndType

DimMember(10)AsMemberinfoMember(5).m_ID=5Member(k).m_Name=“Member”&k4.8記錄類型數(shù)組定義類型格式：[Public]Type自定義類型名 元素名（[上界]）As類型名 … [元素名（[上界]）As類型名]EndType自定義類型變量的聲明格式：Dim變量名As自定義類型名

引用格式：變量名.元素名4.8記錄類型數(shù)組注意：自定義類型一般在標(biāo)準(zhǔn)模塊(.BAS)中定義，默認(rèn)是Public；在窗體模塊中必須是Private。不要將自定義類型名和該類型的變量名混淆。自定義類型一般和數(shù)組結(jié)合使用，簡化程序的編寫。

4.8記錄類型數(shù)組例：

TypeStudType NoAsInteger '學(xué)號 NameAsString*4 '姓名 SexAsString*1 '性別Mark(1To4)AsSingle '4門課程成績 TotalAsSingle '總分EndTypeDimStudentAsStudType‘定義變量DimMyStud(10)AsStudType4.8記錄類型數(shù)組‘賦值Student.Name="張華"Student.No=2001Student.Sex="男"Student.Total=0Fori=1to4Student.Mark(i)=int(Rnd*101)Student.total=Student.Total+Mark(i)Nexti4.8記錄類型數(shù)組‘賦值簡寫用with語句WithStudent.Name="張華".No=2001.Sex=“男“.Total=0Fori=1to4 .Mark(i)=Int(Rnd*101) .Total=.Total+Mark(i)NextiEndWith4.8記錄類型數(shù)組‘輸出Print"姓名";Student.NamePrint"學(xué)號";Student.NoPrint"性別";Student.SexPrint"四門課成績";Fori=1To4PrintStudent.Mark(i);NextiPrint"總分";Student.TotalMyStud(0)=Student‘同種自定義類型變量可直接賦值例4.8

4.9選擇性控件單選按鈕、復(fù)選按鈕和框架列表框和組合框直接提供輸入選項，方便用戶選擇錄入

4.9.1單選按鈕、復(fù)選按鈕和框架OptionButton一組相互排斥的選項按鈕組CheckBox

4.9.1單選按鈕、復(fù)選按鈕和框架常用屬性CaptionAlignmentpictureValue單選按鈕Value的值為True和False復(fù)選框的Value：0：Unchecked；1：Checked；2：Grayed。利用該屬性值判斷和設(shè)置選中狀態(tài)style

4.9.1單選按鈕、復(fù)選按鈕和框架常用事件ClickGotFocus

4.9.1單選按鈕、復(fù)選按鈕和框架DimxinbieAsString*1DimstrAsStringPrivateSubOption1_Click()

IfOption1.ValueThen xinbie="男“EndIfEndSubPrivateSubOption2_Click()IfOption1.ValueThen xinbie="女“EndIfEndSub

4.9.1單選按鈕、復(fù)選按鈕和框架DimxinbieAsString*1PrivateSubOption1_Click(IndexAsInteger)IfOption1(0).value=1Then xinbie="男"Else xinbie="女“EndIfEndSub

4.9.1單選按鈕、復(fù)選按鈕和框架Frame對其他控件進行分組，以便于用戶識別。通常沒有必要響應(yīng)它的事件。不過，它的Name、Caption和Font屬性是經(jīng)常被修改的。

4.9.1單選按鈕、復(fù)選按鈕和框架Frame利用框架將控件分組時，應(yīng)首先創(chuàng)建Frame控件，然后必須在Frame控件內(nèi)部創(chuàng)建分組控件在Frame控件內(nèi)部創(chuàng)建的控件和框架是一個整體，將隨框架容器一起移動、顯示、消失和屏蔽。例4.9

4.9.2列表框ListBox常用屬性List：字符型數(shù)組；訪問方式，List1.List(0)ItemData：長整型數(shù)數(shù)組；每個項目編號Selscted（運行態(tài)屬性）：邏輯型數(shù)組，List1.Selected(0)ListCount(運行態(tài)屬性)：當(dāng)前列表框中列表項總數(shù)ListIndex(運行態(tài)屬性)：值是最后選中的列表項位置序號，若未選任何項目，則其值為-1Text(運行態(tài)屬性)：只讀，List1.List(List1.ListIndex)Sorted(設(shè)計態(tài)屬性)、ColumnsMultiSelectSelCount(運行態(tài)屬性)：用戶同時選中多個列表項的數(shù)目輸出列表框中選項的方法：Text、ListIndex、Selected

4.9.2列表框ListBox

List1.ListCount：4List1.ListIndex：1List1.Text：“花市燈如晝”List1.List(2)：“月上柳梢頭”List1.List(1)=（List1.List(List1.ListIndex)=List1.Text）=“花市燈如晝”List1.Sorted：FalseList1.Selected(1)=True4.9.2列表框ListBox主要事件Click：一般編寫有關(guān)對選中列表項與其他控件的關(guān)聯(lián)操作DbClick：一般編寫有關(guān)對選中列表項刪除或轉(zhuǎn)移到其他控件的關(guān)聯(lián)操作

4.9.2列表框ListBox主要方法AddItem對象名.AddItem列表項文本內(nèi)容[,插入位置序號]RemoveItem：用于刪除列表框和組合框中指定位置序號的列表項對象名.RemoveItem刪除項的序號一次只能向列表中添加或刪除一個列表項Clear：ListCount屬性自動重新被設(shè)置為0

4.9.2列表框ListBox例PrivateSubCommand1_Click()List2.AddItemList1.TextEndSubPrivateSubCommand2_Click()List2.Remov