vb常用算法——數(shù)組元素插入與刪除

《vb常用算法——數(shù)組元素插入與刪除》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、VB?？妓惴ǎㄆ撸?shù)組元素之插入刪除：1、算法說明數(shù)組中元素的插入和刪除一般是在已固定序列的數(shù)組中插入或刪除一個元素，使得插入或刪除操作后的數(shù)組還是有序的。1）插入代碼如下：PrivateSubCommand1_Click()Dima(10)AsIntegerDimiAsInteger,kAsIntegerFori=0To9a(i)=i*3+1Printa(i);NextiPrintPrint"插入14"Fork=0To9If14

2、extia(k)=14Fori=0To10Printa(i);NextiEndSub2）刪除代碼如下：PrivateSubCommand1_Click()Dima()AsInteger---ReDima(1ToN)---Fori=k+1ToNa(i-1)=a(i)NextiReDimPreservea(1ToN-1)EndSub2、實戰(zhàn)練習(xí)1）補充代碼（等級考試原題一）C盤根目錄下文件Data4.txt的內(nèi)容是：2,4,6,8,10,1,3,5,7,9。下面程序的功能是將文件后半部分的奇數(shù)分別按序插入前半部分的適當(dāng)位置，得到的新數(shù)列是：1234567891

3、0。（實現(xiàn)方法：第一次調(diào)整后的數(shù)列是12468103579，第二次調(diào)整后的數(shù)列是：12346810579）。OptionExplicitPrivateSubForm_Click()Dima(10)AsInteger,iAsInteger,JAsIntegerOpen"c:data4.txt"ForInputAs#12Do（1）‘參考答案：WhileNotEOF(12)J=J+1Input#12,a(J)LoopCallInsert(a)Fori=1To10Printa(i);NextiPrintClose#12EndSubPrivateSubInsert

4、(a()AsInteger)DimiAsInteger,PutpAsInteger,JAsIntegerDimGetpAsInteger,NAsInteger,TemAsIntegerN=UBound(a)/2Putp=1Getp=N+1Fori=1ToNTem=a(Getp)ForJ=GetpToPutp+1Step-1（2）‘參考答案：a(J)=a(J-1)NextJa(Putp)=TemGetp=Getp+1Putp=（3）‘參考答案：Putp+2NextiEndSub2）補充代碼（等級考試原題二）下面程序的功能是將無序數(shù)組中相同的數(shù)只保留一個，其余

5、得刪除，并輸出經(jīng)過刪除后的數(shù)組元素，刪除相同數(shù)是通過將數(shù)組元素后面的元素在數(shù)組內(nèi)依次前移替換前一個元素的值實現(xiàn)的。數(shù)組各元素從文件Data.txt中讀取。OptionExplicitOptionBase1PrivateSubForm_Click()DimIAsInteger,JAsInteger,KAsIntegerDimA()AsInteger,TAsInteger,MAsIntegerOpen"C:data.txt"ForInputAs#1DoWhile（1）‘參考答案：NotEOF(1)I=I+1ReDimPreserveA(I)Input#1,A

6、(I)LoopM=1:T=（2）‘參考答案：UBound(A)DoWhileM<=TI=M+1DoWhileI<=TIfA(I)=A(M)ThenForJ=MTo（3）‘參考答案：T-1A(J)=A(J+1)NextJT=T-1ElseI=（4）‘參考答案：I+1EndIfLoopM=M+1LoopReDimPreserveA(T)ForI=1ToTPrintA(I);NextIPrintEndSub