首页 计算机等级考试二级VB常用算法:排序

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

举报
开通vip

计算机等级考试二级VB常用算法:排序计算机等级考试二级VB常用算法:排序 考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程 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 第...

计算机等级考试二级VB常用算法:排序
计算机等级考试二级VB常用算法:排序 考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程 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 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 考研屋www.kaoyanwu.com :提供各大机构考研、公务员、四六级辅导视频课程 专业提供提供各大机构考研、公务员、四六级辅导视频课
本文档为【计算机等级考试二级VB常用算法:排序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_314871
暂无简介~
格式:doc
大小:12KB
软件:Word
页数:0
分类:生活休闲
上传时间:2017-10-17
浏览量:13