文章作者 100test 发表时间 2007:05:12 13:45:46
来源 100Test.Com百考试题网
2)冒泡法排序
选择排序法在每一轮排序时找最值元素的下标,出了内循环(一轮排序结束),再交换最小数的位置;而冒泡法在每一轮排序时将相邻的数比较,当次序不对就交换位置,出了内循环,最值数已经冒出。
譬如:
8 6 9 3 2 7
8 6 9 3 2 7
8 6 9 2 3 7
8 6 2 9 3 7
8 2 6 9 3 7
2 8 6 9 3 7
….
2 3 8 6 9 7
….
2 3 6 8 7 9
….
2 3 6 7 8 9
….
2 3 6 7 8 9
程序代码如下:
Private Sub mpPaiXu(a() As Double, sheng As Boolean)
a为需要排序的数组,sheng为True则为升序排列,为False,则为降序排列。
Dim i As Integer, j As Integer
Dim temp As Double
Dim m As Integer
For i = LBound(a) To UBound(a) - 1 进行n-1轮比较
For j = UBound(a) To i 1 Step -1 从n到i个元素两两进行比较
If sheng Then 若次序不对,马上进行交换
If a(j) < a(j - 1) Then
temp = a(j)
a(j) = a(j - 1)
a(j - 1) = temp
End If
Else
If a(j) > a(j - 1) Then
temp = a(j)
a(j) = a(j - 1)
a(j - 1) = temp
End If
End If
Next j 出了内循环,一轮排序结束
最值元素冒到最上边
Next i
End Sub
调用该过程代码基本同上。
2、实战练习
1)补充代码(2003秋二(10))
下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序,所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置,下一遍则是从上到下把最大的元素送到最下的位置。
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer,i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 10) 1
Text1 = Text1 &. Str(a(i))
Next i
Call shaker_sort(a)
For i = 1 To 10
Text2 = Text2 &. Str(a(i))
Next i
End Sub
Private Sub Shaker_sort(k() As Integer)
Dim i As Integer,c As Integer,d As Integer
Dim t As Integer
c = 1
d = (1)
Do
For (2) Step-1
If k(i=1)>k(i) Then
t = k(i-1):k(i-1) = k(i):k(i) = t
End If
Next i
(3)
For i = c 1 To d
If (4) Then
t = k(i-1):k(i-1) = k(i):k(i) = t
End If
Next i
d = d-1
Loop While (5)
End Sub
相关文章
j2me的基本介绍⑴
VisualBasic9.0前沿播报·动态篇(一)动态标识符
计算机等级考试二级VB常用算法:约数因子
计算机等级考试二级VB常用算法:排序
二级C语言教程章节测试3.顺序结构:输入与输出
计算机等级考试二级VB常见问题和技巧解答
二级C语言教程章节测试15.位运算
二级VB基础教程:8.1ActiveX控件概述
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛