VB常用算法——数组元素插入与删除.doc

VB常考算法（七）数组元素之插入删除：
1、算法说明
数组中元素的插入和删除一般是在已固定序列的数组中插入或删除一个元素，使得插入或删除操作后的数组还是有序的。
1）插入

代码如下：
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimiAsInteger,kAsInteger
Fori=0To9
a(i)=i*3+1
Printa(i);
Nexti
Print
Print"插入14"
Fork=0To9
If14<a(k)ThenExitFor
Nextk
Fori=9TokStep-1'从最后元素开始逐个后移腾出位置
a(i+1)=a(i)
Nexti
a(k)=14
Fori=0To10
Printa(i);
Nexti
EndSub
2）删除

代码如下：
PrivateSubCommand1_Click()
Dima()AsInteger
---
ReDima(1ToN)
---
Fori=k+1ToN
a(i-1)=a(i)
Nexti
ReDimPreservea(1ToN-1)
EndSub
2、实战练习
1）补充代码（等级考试原题一）
C盘根目录下文件Data4.txt的内容是：2,4,6,8,10,1,3,5,7,9。下面程序的功能是将文件后半部分的奇数分别按序插入前半部分的适当位置，得到的新数列是：12345678910。（实现方法：第一次调整后的数列是12468103579，第二次调整后的数列是：12346810579）。
OptionExplicit
PrivateSubForm_Click()
Dima(10)AsInteger,iAsInteger,JAsInteger
Open"c:\data4.txt"ForInputAs#12
Do（1）‘参考答案：WhileNotEOF(12)
J=J+1
Input#12,a(J)
Loop
CallInsert(a)
Fori=1To10
Printa(i);
Nexti
Print
Close#12
EndSub
PrivateSubInsert(a()AsInteger)
DimiAsInteger,PutpAsInteger,JAsInteger
DimGetpAsInteger,NAsInteger,TemAsInteger
N=UBound(a)/2
Putp=1
Getp=N+1
Fori=1ToN
Tem=a(Getp)
ForJ=GetpToPutp+1Step-1
（2）‘参考答案：a(J)=a(J-1)
NextJ
a(Putp)=Tem
Getp=Getp+1
Putp=（3）‘参考答案：Putp+2
Nexti
EndSub
2）补充代码（等级考试原题二）
下面程序的功能是将无序数组中相同的数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。数组各元素从文件Data.txt中读取。
OptionExplicit
OptionBase1
PrivateSubForm_Click()
DimIAsInteger,JAsInteger,KAsInteger
DimA()AsInteger,TAsInteger,MAsInteger
Open"C:\data.txt"ForInputAs#1
DoWhile（1）‘参考答案：NotEOF(1)
I=I+1
ReDimPreserveA(I)
Input#1,A(I)
Loop
M=1:T=（2）‘参考答案：UBound(A)
DoWhileM<=T
I=M+1
DoWhileI<=T
IfA(I)=A(M)Then
ForJ=MTo（3）‘参考答案：T-1
A(J)=A(J+1)
NextJ
T=T-1
Else
I=（4）‘参考答案：I+1
EndIf
Loop
M=M+1
Loop
ReDimPreserveA(T)
ForI=1ToT
PrintA(I);
NextI
Print
EndSub