【新手進(jìn)階】之三：基礎(chǔ)算法（三）

roych

關(guān)于排名的算法：

• 定義數(shù)組arr2，初始化排名均為1。
• 定義變量i，初始化為0�！镜谝粋�(gè)被拿出進(jìn)行比較元素】
• 在i未達(dá)到元素個(gè)數(shù)時(shí)，反復(fù)執(zhí)行步驟4~8。
• 定義變量j，初始化為0。
• 當(dāng)j未達(dá)到元素個(gè)數(shù)時(shí)，反復(fù)執(zhí)行步驟6、7。
• 如果arr(i)<arr(j)，arr(i)加1。
• 變量j加1。
• 變量i加1。
  
  

這里似乎有點(diǎn)復(fù)雜，我想最好還是說(shuō)一下。我們先把思路理清：先把全部元素放在同一起跑線上（第1、2步），然后拎第一個(gè)元素出來(lái)（第3步），和全部元素（包括它自己）進(jìn)行比較（第4、5步），如果別的元素比它小，它的排名就加1（第6、7步）。那么第一個(gè)比較完之后，就得到它的排名了（第一輪完成）；然后拎第二個(gè)出來(lái)（第8步），同樣處理（第二次4~7步）……直到全部元素都拎出來(lái)比較完才算結(jié)束。

這么一解釋，就很容易知道，這段代碼應(yīng)該要包含兩個(gè)循環(huán)（不含初始化那部分）。外循環(huán)是拎元素那部分，內(nèi)循環(huán)是元素和數(shù)組中全部元素比較的那部分，于是代碼就可以這樣寫了：

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

復(fù)制代碼

可能有人會(huì)問(wèn)了，內(nèi)循環(huán)部分，F(xiàn)or j = LBound(arr()) To UBound(arr())可以改成For j = i To UBound(arr())嗎？答案是：不可以。一旦這樣改的話，最后一個(gè)元素就只跟自身比較，永遠(yuǎn)都是1了。【新手入門】之一：If分支語(yǔ)句
【新手入門】之二：分支語(yǔ)句總結(jié)
【新手入門】之三：循環(huán)語(yǔ)句For
【新手入門】之四：循環(huán)語(yǔ)句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過(guò)程、傳值過(guò)程
【新手入門】之六：“悲歡離合總無(wú)情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問(wèn)題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問(wèn)
【新手入門】之十：書到用時(shí)方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導(dǎo)出記錄集

【新手進(jìn)階】之一：基礎(chǔ)算法（一）
【新手進(jìn)階】之二：基礎(chǔ)算法（二）
【新手進(jìn)階】之三：基礎(chǔ)算法（三）
【新手進(jìn)階】之四：基礎(chǔ)算法（四）
【新手進(jìn)階】之五：排序搜索（一）
【新手進(jìn)階】之六：排序搜索（二）
【新手進(jìn)階】之七：遞歸算法
【新手進(jìn)階】之八：冒泡排序
【新手進(jìn)階】之九：淺談不綁定數(shù)據(jù)源操作記錄
【新手進(jìn)階】之十：工作日的計(jì)算
【新手進(jìn)階】之十一：“庖丁解牛”和“紀(jì)昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進(jìn)階】之十二：從四腳騰空的奔馬談起——原來(lái)界面可以這樣設(shè)計(jì)
【新手進(jìn)階】之十三：Outlook風(fēng)格導(dǎo)航界面
【新手進(jìn)階】之十四：倉(cāng)庫(kù)管理系統(tǒng)

today_suny

循環(huán)比較大小，簡(jiǎn)單明了  版主 很棒

ej1213

xie xie