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

1、VB常考算法（七）數(shù)組元素之插入刪除:1、算法說明數(shù)組中元素的插入和刪除一般是在已固定序列的數(shù)組中插入或刪除一個(gè)元素，使得插入或刪除操作后的數(shù)組還是有序的。1）插入代碼如下：PrivateSubCommand1_Click()Dima(10)AsIntegerDimiAsInteger,kAsIntegerFori=0To9a(i)=i*3+1Printa(i);NextiPrintPrint"插入14"Fork=0To9If14<a(k)ThenExitForNextkFori=9TokStep-1'從最后元素開始逐個(gè)后移騰出位置a(i+1)=a(i)Nex

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

3、第一次調(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(a()AsInteger)DimiA

4、sInteger,PutpAsInteger,JAsIntegerDimGetpAsInteger,NAsInteger,TemAsIntegerN=UBound(a)/2Putp=1Getp=N+1Fori=1ToNTem=a(Getp)ForJ=GetpToPutp+1Step-1參考答案：a(J)=a(J-1)NextJa(Putp)=TemGetp=Getp+1Putp=(3)參考答案：Putp+2NextiEndSub2)補(bǔ)充代碼(等級(jí)考試原題二)下面程序的功能是將無序數(shù)組中相同的數(shù)只保留一個(gè)，其余得刪除，并輸出經(jīng)過刪除后的數(shù)組元素，刪除相同數(shù)是通過將數(shù)組元素后面的元素在數(shù)組內(nèi)依次前

5、移替換前一個(gè)元素的值實(shí)現(xiàn)的。數(shù)組各元素從文件Data.txt中讀取。OptionExplicitOptionBase1PrivateSubForm_Click()DimIAsInteger,JAsInteger,KAsIntegerDimA()AsInteger,TAsInteger,MAsIntegerOpen"C:data.txt"ForInputAs#1DoWhile(1)參考答案：NotEOFI=I+1ReDimPreserveA(I)Input#1,A(I)LoopM=1:T=參考答案：UBound(A)DoWhileM<=TI=M+1DoWhileI<=TIfA(I)=A(M)ThenForJ=MTo(3)參考答案：工A(J)=A(J+1)NextJT=T-1ElseI