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

文章作者 100test 发表时间 2007:06:26 11:48:11
来源 100Test.Com百考试题网

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)

src="/ncre2/js/wxgg.js">