實驗十一 數(shù)組(續(xù))

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

2、fm_click()RomizeDima()i%J%N%T%k%N=InputBox(“請輸入一個數(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、輸入一系列字符串，按遞減次序排列。程序的運行界面如下所示?！咎崾尽浚?）要聲明窗體級變量n（表示放若干個字符串的計數(shù)器）及一個字符串數(shù)組。（2）每輸入一個字符串，按Enter鍵后將Text的內(nèi)容放到數(shù)組中，可用事件：PrivateSubText1_KeyPress(KeyiiAsInteger)IfKeyii=13Then…EndIfEndSub圖形框