计算机等级考试二级vb常用算法：排序（三）_软件水平考试:站长天空

　　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

　　删除代码如下：

以下是引用片段：
　　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

文章整理：站长天空网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!