visualbasic程序設(shè)計(jì)教案：數(shù)組

§3.6 數(shù)組VB中將數(shù)組分為靜態(tài)數(shù)組和動(dòng)組的名稱和類型，然后在執(zhí)行程序的過程中，依據(jù)實(shí)際需要再用ReDim語句定義數(shù)組的維數(shù)及變量的個(gè)數(shù)，而且允許使用簡潔變量來進(jìn)展數(shù)組中變量個(gè)數(shù)的定義。數(shù)組的使用在治理信息系統(tǒng)軟件的程序設(shè)計(jì)中有著不行替代的作用，離開數(shù)組的使用，須生疏和把握的必備學(xué)問?！窘虒W(xué)要求】了解：數(shù)組的概念。理解：靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組的區(qū)分；控件數(shù)組的作用。把握：數(shù)組的定義及使用方法；控件數(shù)組的應(yīng)用。【本節(jié)重點(diǎn)】動(dòng)態(tài)數(shù)組的應(yīng)用?？丶?shù)組的應(yīng)用。【本節(jié)難點(diǎn)】動(dòng)態(tài)數(shù)組的應(yīng)用。一、靜態(tài)數(shù)組及聲明1、一維數(shù)組一維數(shù)組的定義如下：Dim <數(shù)組名>([下界To]上界) [As 類型]假設(shè)缺省下界，系統(tǒng)默認(rèn)為0。例：Dim num〔1To50〕AsInteger2、多維數(shù)組VB60維。多維數(shù)組的定義格式如下：Dim <數(shù)組名>〔[下界1 To]上界1，[下界2 To]上界2……〕[As 類型]例Dim A〔1，5〔1〕As Double二、動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組在聲明時(shí)只定義數(shù)組名或數(shù)組名及類型，不指定大小，在執(zhí)行程序的過程中，再依據(jù)需要用Redim語句重定義數(shù)組的大小。重定義動(dòng)態(tài)數(shù)組的語句格式如下：Redim <數(shù)組名>〔1[2……]〕留意：Redim語句中的下標(biāo)可以是已被賦值的變量。在過程中可屢次使用Redim來轉(zhuǎn)變數(shù)組的大小和維數(shù)。每次使用Redim語句都會(huì)使原數(shù)組中的數(shù)據(jù)喪失，如需要保存原數(shù)組數(shù)據(jù)，可用Preserve參數(shù)來保存，使用該參數(shù)只能轉(zhuǎn)變最終一維的大小。DimxAsDoublePrivateSubForm_ClickW=InputBox〔“請(qǐng)問需要產(chǎn)生多少個(gè)隨機(jī)數(shù)？“，，100，100〕W=Val(W)ReDimx(W)Fori=1ToWx(i)=RndPrintx(i);““;NextEndSub中依據(jù)統(tǒng)計(jì)或外部供給的信息才能確定數(shù)組中變量個(gè)數(shù)的狀況。三、數(shù)組的根本操作1、用循環(huán)語句為數(shù)組元素賦初值例：使用For－Next0。PrivateSubForm_Load()Dima(10) AsIntegerFori=0To10a(i)=0NextEndSub2、使用Array函數(shù)給數(shù)組賦值例：給a5個(gè)奇數(shù)；給b3個(gè)英文字母。DimaAsVariant,bAsVariant,I%a=Array(1,3,5,7,9)b=Array(“x“,“y“,“z“)留意：利用Array函數(shù)對(duì)數(shù)組各元素賦值，聲明的數(shù)組是可調(diào)數(shù)組，并且其類型只能是Variant。數(shù)組的下界為0，上界由函數(shù)括號(hào)中的參數(shù)個(gè)數(shù)打算。四、數(shù)組的應(yīng)用舉例1、排序：令計(jì)算機(jī)用隨機(jī)函數(shù)自動(dòng)生成2010－100之間的整數(shù)，將其按由20個(gè)隨機(jī)數(shù)打印出來。DimX(20)AsIntegerDimi,j,kAsIntegerPrivateSubForm_LoadRandomizeFori=1To20X(i)=Rnd*90+10NextEndSubPrivateSubForm_ClickFori=1To19Forj=i+1To20IfX(i)>X(j)Thenk=X(i)：X(i)=X(j)：X(j)=kEndIfNextPrintX(I);NextEndSub例2、編程實(shí)現(xiàn)：當(dāng)用戶由鍵盤輸入一串英文字母到文本框Text1中后，令計(jì)算機(jī)自動(dòng)統(tǒng)計(jì)出Text1中各種英文字母消滅的次數(shù)〔不區(qū)分大小寫，并將統(tǒng)計(jì)結(jié)果打印出來。PrivateSubCommand1_ClickDimssAsStringDima(1To26)AsInteger,i,kAsIntegerk=Len(Text1.Text)Fori=1Tokss=UCase(Mid(Text1.Text,i,1))Ifss>=“A“Andss<=“Z“Thena(Asc(ss)-64)=a(Asc(ss)-64)+1EndIfNextFori=1To26PrintChr(i+64)&“=“;a(i);“ “;IfiMod8=0ThenPicture1.PrintNextEndSub五、控件數(shù)組1、控件數(shù)組的概念控件數(shù)組是由一組一樣類型的控件組成系統(tǒng)自動(dòng)賜予每個(gè)控件唯一下標(biāo)索引Inde，Index從0開頭，然后按自然數(shù)依次編號(hào)。32767個(gè)元素。2、建立控件數(shù)組的方法建立控件數(shù)組的方法有以下兩種：在設(shè)計(jì)時(shí)建立在設(shè)計(jì)時(shí)建立控件數(shù)組的方法及其過程如下：①在窗體上制作第一個(gè)控件，并設(shè)置其相關(guān)屬性；②選中該控件，對(duì)第一個(gè)控件進(jìn)展復(fù)制；③就會(huì)自動(dòng)創(chuàng)立這個(gè)控件的控件數(shù)組；④依據(jù)需要，可屢次粘貼，以滿足控件數(shù)量的需求。⑤建立共享的大事過程。例：編制一個(gè)獅子選大王的玩耍程序。圖3.116頭獅子，要從中選一個(gè)大王，選擇的方法是：16頭獅子編號(hào)并圍成一圈；3；16頭獅子中任意選擇一頭獅子，作為起始；第四步：從起始獅子開頭繞獅子圈依次數(shù)3，將被數(shù)到3的獅子淘汰出局，取消作大王的資格；第五步：重復(fù)繞獅子圈依次數(shù)3，并淘汰被數(shù)到3的獅子，最終所剩的唯一一頭獅子就是大王。例題界面設(shè)計(jì)：在窗體中創(chuàng)立獅子畫面的圖形控件組：Image1(0)Image1(1)Image1(2)Image1(16)；窗體中設(shè)計(jì)兩個(gè)命令按鈕Command1Command2，用于運(yùn)行和完畢玩耍程序；窗體中設(shè)計(jì)兩組合框Combo1和Combo最終設(shè)計(jì)一個(gè)文本框Text1用于顯示所選獅子大王的編號(hào)。獅子選大王的玩耍的主要源程序如下：Dimi,j,k,l,m,nAsIntegerPrivateSubForm_LoadText1.Visible=FalseFori=1To16Combo1.AddItemiNextiFori=2To7Combo2.AddItemiNextiEndSubPrivateSubCommand1_Clicki=Val(Combo1.Text)j=Val(Combo2.Text)m=i-1n=16DoWhilen>1Fork=1Tojm=m+1m=mMod16DoWhileNot(Label1(m).Visible)m=m+1m=mMod16LoopNextkLabel1(m).Visible=FalseImage1(m).Visible=Falsen=n-1DoEventsti=DateAdd(“s“,1,Now)DoWhileti>NowLoopLoopFori=0To15IfImage1(i).VisibleThenk=i+1EndIfNextiText1.Visible=TrueText1.Text最終剩的是第“&k&“號(hào)獅子“EndSub程序運(yùn)行時(shí)添加控件數(shù)組在程序運(yùn)行時(shí)，可添加或刪除控件數(shù)組元素，具體操作步驟如下：①在窗體上創(chuàng)立一個(gè)控件，設(shè)置其Index0；②在編程時(shí)使用Load方法添加其余元素，也可使用Unload方法刪除某個(gè)元素，語句格式如下：Load 控件數(shù)組名〔Index〕Unload 控件數(shù)組名〔Index〕③每個(gè)添加的控件數(shù)組元素通過LeftTopVisible屬性設(shè)置為True。9個(gè)命令按鈕控件數(shù)組100－9十個(gè)數(shù)字。CommandCaption0Index屬性值為：0，使得Command1成為控件數(shù)組中的第一個(gè)元素。其次步：其它9個(gè)控件數(shù)組元素在程序運(yùn)行時(shí)添加，添加控件數(shù)組元素的源程序如下：PrivateSubForm_LoadDimi,m,nAsIntegerm=Command1(0).Heightn=Command1(0).WidthFori=1To 9LoadCommand1(i)Command1(i).Visible=TrueCommand1(i).Caption=iIfiMod3=1ThenCommand1(i).Top=Command1(i-1).Top-Command1(i).Height-230Command1(i).Left=Command1