设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 4767|回复: 4
打印 上一主题 下一主题

[模块/函数] 【新手进阶】之五:排序搜索(一)

[复制链接]
跳转到指定楼层
1#
发表于 2015-1-26 17:10:30 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
       现在开始介绍排序算法。为简便起见,这里只对不重复值进行排序(虽然部分算法可以对重复值进行排序)。

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

桶排序法很简单,已知一个含有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.      If Not IsEmpty(arr2(i)) Then
  17.           s = s & "," & arr2(i)
  18.      End If
  19. Next
  20. Debug.Print Right(s, Len(s) - 1)
  21. 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风格导航界面
【新手进阶】之十四:仓库管理系统

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 分享淘帖1 订阅订阅

点击这里给我发消息

2#
发表于 2015-1-26 17:56:12 | 只看该作者
最近 roych 高产啊!
3#
发表于 2015-1-28 09:20:07 | 只看该作者
同老汉是兄弟,学习!

点击这里给我发消息

4#
发表于 2015-3-6 08:49:28 | 只看该作者
学习了  但i倒酒

点击这里给我发消息

5#
发表于 2015-11-11 18:06:41 | 只看该作者
学习学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 06:54 , Processed in 0.083988 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表