實(shí)驗(yàn)十一 數(shù)組(續(xù))

1、實(shí)驗(yàn)十一實(shí)驗(yàn)十一數(shù)組（續(xù)）數(shù)組（續(xù)）實(shí)驗(yàn)?zāi)康模簩?shí)驗(yàn)?zāi)康模?、掌握掌握動(dòng)態(tài)動(dòng)態(tài)數(shù)組與靜與靜態(tài)數(shù)組的使用差的使用差別；2、掌握掌握動(dòng)態(tài)動(dòng)態(tài)數(shù)組定義和使用方法；和使用方法；3、掌握控件數(shù)掌握控件數(shù)組的使用方法。的使用方法。實(shí)驗(yàn)內(nèi)容：實(shí)驗(yàn)內(nèi)容：（1~31~3題為必做題題為必做題，4~54~5題任選一題）題任選一題）1、分別用選擇排序法和冒泡排序法實(shí)現(xiàn)有N個(gè)元素?cái)?shù)組的排序。N由鍵盤輸入，數(shù)組元素的值在1~200之間，隨機(jī)產(chǎn)生。PrivateSub

2、fm_click()RomizeDima()i%J%N%T%k%N=InputBox(“請(qǐng)輸入一個(gè)數(shù)“)ReDima(N)a(N)=Int(Rnd2001)N=UBound(a)Fi=1ToNa(i)=Int(Rnd2001)NextFi=0ToN1T=iFJ=i1ToNIfa(T)a(J)ThenT=JNextJk=a(i)a(i)=a(T)a(T)=kNextiFi=LBound(a)ToUBound(a)Printa(i)IfiM

3、od5=0ThenPrintNextEndSubPrivateSubcomm1_click()RomizeDima()i%J%N%DimA()i%k%x%n%A=Array(304234232524345566)n=UBound(A)x=Val(Text1)Fk=0TonIfx=A(k)ThenExitFNextkIfknThenMsgBox(“找不到此數(shù)據(jù)“):ExitSubFi=k1TonA(i1)=A(i)Nextin=n1ReD

4、imPreserveA(n)Fi=0TonPrintA(i)NextiEndSub3、輸入一系列字符串，按遞減次序排列。程序的運(yùn)行界面如下所示?！咎崾尽浚?）要聲明窗體級(jí)變量n（表示放若干個(gè)字符串的計(jì)數(shù)器）及一個(gè)字符串?dāng)?shù)組。（2）每輸入一個(gè)字符串，按Enter鍵后將Text的內(nèi)容放到數(shù)組中，可用事件：PrivateSubText1_KeyPress(KeyiiAsInteger)IfKeyii=13Then…EndIfEndSub圖形框