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

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风格导航界面
【新手进阶】之十四：仓库管理系统

today_suny

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

ej1213

xie xie