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

　　基本思路：首先要找到插入位置或要删除的元素。

　　1) 插入

　　代码如下：

以下是引用片段： 　　Private Sub Command1_Click() 　　Dim a(10) As Integer 　　Dim i As Integer, k As Integer 　　For i = 0 To 9 生成数组 　　a(i) = i * 3 + 1 　　Print a(i); 　　Next i 　　Print 　　Print "插入14" 　　For k = 0 To 9 查找插入14在数组中的位置 　　If 14 < a(k) Then Exit For 　　Next k 　　For i = 9 To k Step -1 从最后元素开始逐个后移，腾出位置 　　a(i + 1) = a(i) 　　Next i 　　a(k) = 14 插入数14 　　For i = 0 To 10 　　Print a(i); 　　Next i 　　Print 　　End Sub

　　2) 1 4 7 10 13 16 19 22 25 28

　　K

　　删除 代码如下：

以下是引用片段： 　　Dim a() as integer 　　…. 　　ReDim a(1 to n) 　　… 　　For i=k+1 to n 　　a(i-1)=a(i) 　　Next I 　　Redim preserve a(1 to n-1)

　　2、实战练习

　　C盘根目录下文件Data4.txt的内容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置，得到的新数列是：1 2 3 4 5 6 7 8 9 10。(实现方法：第一次调整后的数列是：1 2 4 6 8 10 3 5 7 9第二次调整后的数列是：1 2 3 4 6 8 10 5 7 9)。

以下是引用片段： 　　Option Explict 　　Private Sub Form_Click() 　　Dim A(10) As Integer,i As Integer,J As Integer 　　Open "c:\Data4.txt" For Input As #12 　　Do (1) 　　J=J+1 　　Input #12,A(J) 　　Loop 　　Call Insert(A) 　　For i=1 To 10 　　Print A(i); 　　Next i 　　Print 　　Close #12 　　End Sub 　　Private Sub Insert(A() As Integer) 　　Dim i As Integer,Putp As Integer,J As Integer 　　Dim Getp As Integer,N As Integer,Tem As Integer 　　N=UBound(A)/2 　　Putp=1 　　Getp=N+1 　　For i=1 To N 　　Tem=A(Getp) 　　For J=Getp To Putp +1 Step -1 　　(2) 　　Next J 　　A(Putp)=Tem 　　Getp=Getp+1 　　Putp= (3) 　　Next i 　　End Sub

　　补充代码

　　下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。数组各元素的值从文件data.txt中读取。

　　

以下是引用片段： Option Explict 　　Option Base 1 　　Private Sub Form_Click() 　　Dim I As Integer,J As Integer,K As Integer 　　Dim A()As Integer,T As Integer,M As Integer 　　Open "c:\my documents\2000test\data.txt" For Input As #1 　　Do While (1) 　　I=I+1 　　Redim Preserve A(I) 　　Input #1,A(I) 　　Loop 　　M=1:T= (2) 　　Do While M  　　I=M+1 　　Do While I<=T 　　If A(I)=A(M)Then 　　For J=1 To (3) 　　A(J)=A(J+1) 　　Next J 　　T=T-1 　　Else 　　I= (4) 　　End If 　　Loop 　　M=M+1 　　Loop 　　Redim Preserve A(T) 　　For I=1 To T 　　Print A(I); 　　Next I 　　Print 　　End Sub