计算机等级考试二级VB常用算法:排序(三)

王朝vb·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航