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

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