分享
 
 
 

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

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

1、算法说明

1) 选择法排序

(1) 从n个数中选出最小数的下标,出了循环,将最小数与第一个数交换位置;

(2) 除第一个数外,在剩下的n-1个数中再按方法(1)选出次小的数,与第二个数交换位置;

(3) 以此类推,最后构成递增序列。

譬如:

8 6 9 3 2 7

第一轮交换后 2 6 9 3 8 7

第二轮交换后 2 3 9 6 8 7

第三轮交换后 2 3 6 9 8 7

第四轮交换后 2 3 6 7 8 9

第五轮无交换 2 3 6 7 8 9

程序代码如下:

以下是引用片段:

PRivate Sub xzPaiXu(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 '进行数组大小-1轮比较

m = i '在第i轮比较时,假定第

'i个元素为最值元素

For j = i + 1 To UBound(a) '在剩下的元素中找出最

'值元素的下标并记录在m中

If sheng Then '若为升序,则m记录最小元素

'下标,否则记录最大元素下标

If a(j) < a(m) Then m = j

Else

If a(j) > a(m) Then m = j

End If

Next j '将最值元素与第i个元素交换

temp = a(i)

a(i) = a(m)

a(m) = temp

Next i

End Sub

调用该过程示例:

Option Base 1

Private Sub Command1_Click()

Dim b(6) As Double

b(1) = 8

b(2) = 6

b(3) = 9

b(4) = 3

b(5) = 2

b(6) = 7

Call xzPaiXu(b, True)

For i% = 1 To 6

Print b(i)

Next

End Sub

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) 补充代码

下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序,所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置,下一遍则是从上到下把最大的元素送到最下的位置。

以下是引用片段:

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

2) 编程题

把文本框输入的字符串按降序添加到列表框中。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有