【新手进阶】之五：排序搜索（一）

roych

       现在开始介绍排序算法。为简便起见，这里只对不重复值进行排序（虽然部分算法可以对重复值进行排序）。

第一个排序算法：桶排序法

桶排序法很简单，已知一个含有N个元素，最大值为M（M≥N）的数组，那么现在可以假定有M个编好顺序的桶，将数组每个元素的值放进该值对应的编号的桶里，即：值为1的元素放进1号桶， 值为2的元素放进2号桶……如此类推。再把空桶拿走，剩下的就是排好序的数组了。

• 已知数组arr1()，初始化下标变量j=0。
• 准备作为桶的数组arr2()，元素空间不得小于arr1()的最大值。初始化下标i为0。
• 当变量i<桶的个数时，执行步骤4~6。
• 将arr1(j)的值赋给桶arr2(i)
• j加1。
• i加1。
• 从第一个桶开始，如果值非空就取出来。
  

在取值时我就不再使用数组了，而使用一个字符串将这些值串起来。详见：

1. Sub bucket()
   
2. Dim arr1(), arr2()
   
3. Dim i As Long
   
4. Dim j As Long
   
5. Dim k As Long
   
6. Dim s As String
   
7. arr1 = Array(8, 2, 1, 5, 9, 7)
   
8. '根据最大值为9，这里定义含有10个元素空间的数组。——数组求最大值，请参考前面的帖子
   
9. ReDim arr2(0 To 9)
   
10. For i = 0 To 9
    
11.       For j = 0 To UBound(arr1)
    
12.               If i = arr1(j) Then
    
13.                       arr2(i) = arr1(j)
    
14.              End If
    
15.        Next
    
16. 
    
17.      If Not IsEmpty(arr2(i)) Then
    
18.           s = s & "," & arr2(i)
    
19.      End If
    
20. Next
    
21. Debug.Print Right(s, Len(s) - 1)
    
22. End Sub

复制代码

基础算法 【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集

【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统

tmtony

最近 roych 高产啊！

ycxchen

同老汉是兄弟，学习！

dorenmi

学习了  但i倒酒

WFH6898

学习学习