vb常用排序法_第1页
vb常用排序法_第2页
vb常用排序法_第3页
vb常用排序法_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、冒泡法：(1)从第一个元素开始，将相邻的数比较，若为逆序， 就交换，比较完一轮，最大的数已沉底，成为数组中的 最后一个元素a(n) 对a和a(n-1)的n-1个数进行同(1)的操作，次 大的数放入a(n-1)中，完成第二轮排序。(3)进行n-1轮排序，所有的数排序完毕。Dim a%(), i%, j%, n%For i = 1 To n - 1For j = 1 To n - iIf a(j) > a(j + 1) The nt = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iPrintFor i = 1 To nPrint

2、a(i);Next i顺序交换法：(1)从第一个元素开始，将它和其后的每个元素进行 比较，若为逆序，就交换，比较完一轮，a(1)成为数组中的最小的元素。 对a(2)和a(n)的n-1个数进行同(1)的操作，次 小的数放入a(2)中，完成第二轮排序。(3)进行n-1轮排序，所有的数排序完毕。Dim a%(), i%, j%, n%For i = 1 To n - 1For j = i + 1 To nIf a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext i选择法(1) 从n个数的序列中选出最小的数，与第1个数交

3、换 位置；(2) 除第1个数外，其余个数再按(1)的方法选出 次小的数，与第2个数交换位置；遍，最后构成递增序列。Dim a%(), i%, j%, n%For i = 1 T on - 1 k=iFor j = i + 1 T onIf a(j) < a(k) Then k=jNext jif k<>i then t=a(i):a(i)=a(k): a(k)=tNext i插入法：1. 找到插入数在数组中的位置i2. 将从n到i的每个元素 向后移动一个位置3. 插入数插入法1:将一个数插入到有序数列，使插入后数列仍然有序Dim a(1 To 10) As IntegerKey = Val(lnputBox("输入一个数”)For i=1 to 9If a(i)>Key Then Exit Fornext iFor k = 9 To i Step -1a(k+ 1) = a(k)Next ka(i) = Key插入法2:用上面的插入方法将一批数排序(从小到大)，设数列中开始只有一个元素。Dim x(1 To 10) As IntegerFor i = 1 To 9Key = x(i + 1)j = 1Do While (Key >= x(j) And j <= i)j=j + 1Lo

人人文库> 全部分类> 行业资料 > 信息产业

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论