【新手进阶】之三：基础算法（三）

roych

关于排名的算法：

• 定义数组arr2，初始化排名均为1。
• 定义变量i，初始化为0。【第一个被拿出进行比较元素】
• 在i未达到元素个数时，反复执行步骤4~8。
• 定义变量j，初始化为0。
• 当j未达到元素个数时，反复执行步骤6、7。
• 如果arr(i)<arr(j)，arr(i)加1。
• 变量j加1。
• 变量i加1。
  
  

这里似乎有点复杂，我想最好还是说一下。我们先把思路理清：先把全部元素放在同一起跑线上（第1、2步），然后拎第一个元素出来（第3步），和全部元素（包括它自己）进行比较（第4、5步），如果别的元素比它小，它的排名就加1（第6、7步）。那么第一个比较完之后，就得到它的排名了（第一轮完成）；然后拎第二个出来（第8步），同样处理（第二次4~7步）……直到全部元素都拎出来比较完才算结束。

这么一解释，就很容易知道，这段代码应该要包含两个循环（不含初始化那部分）。外循环是拎元素那部分，内循环是元素和数组中全部元素比较的那部分，于是代码就可以这样写了：

1. Function getRank(ByRef arr()) As String
   
2. Dim arr2()
   
3. Dim i As Long
   
4. Dim j As Long
   
5. ReDim arr2(UBound(arr()))
   
6. ‘初始化
   
7. For i = LBound(arr()) To UBound(arr())
   
8.             arr2(i) = 1
   
9. Next
   
10. For i = LBound(arr()) To UBound(arr())
    
11.            For j = LBound(arr()) To UBound(arr())
    
12.                      If arr(i) < arr(j) Then
    
13.                             arr2(i) = arr2(i) + 1
    
14.                       End If
    
15.             Next
    
16. Next
    
17. getRank = Join(arr2(), "|")
    
18. 
    
19. End Function

复制代码

可能有人会问了，内循环部分，For j = LBound(arr()) To UBound(arr())可以改成For j = i To UBound(arr())吗？答案是：不可以。一旦这样改的话，最后一个元素就只跟自身比较，永远都是1了。【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集

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

ej1213

xie xie

today_suny

循环比较大小，简单明了  版主 很棒