Office中国论坛/Access中国论坛

标题: 【新手进阶】之五：排序搜索（一） [打印本页]

作者: roych 时间: 2015-1-26 17:10
标题: 【新手进阶】之五：排序搜索（一）
现在开始介绍排序算法。为简便起见，这里只对不重复值进行排序（虽然部分算法可以对重复值进行排序）。

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

桶排序法很简单，已知一个含有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。
从第一个桶开始，如果值非空就取出来。

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

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

复制代码

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

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

作者: tmtony 时间: 2015-1-26 17:56
最近 roych 高产啊！

作者: ycxchen 时间: 2015-1-28 09:20
同老汉是兄弟，学习！

作者: dorenmi 时间: 2015-3-6 08:49
学习了但i倒酒

作者: WFH6898 时间: 2015-11-11 18:06
学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3