Office中國論壇/Access中國論壇

標(biāo)題: 【新手進階】之三:基礎(chǔ)算法(三) [打印本頁]

作者: roych    時間: 2015-1-26 17:07
標(biāo)題: 【新手進階】之三:基礎(chǔ)算法(三)
關(guān)于排名的算法:

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

這么一解釋,就很容易知道,這段代碼應(yīng)該要包含兩個循環(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. End Function
復(fù)制代碼

可能有人會問了,內(nèi)循環(huán)部分,F(xiàn)or j = LBound(arr()) To UBound(arr())可以改成For j = i To UBound(arr())嗎?答案是:不可以。一旦這樣改的話,最后一個元素就只跟自身比較,永遠都是1了。【新手入門】之一:If分支語句
【新手入門】之二:分支語句總結(jié)
【新手入門】之三:循環(huán)語句For
【新手入門】之四:循環(huán)語句Do和死循環(huán)
【新手入門】之五:公共變量與傳址過程、傳值過程
【新手入門】之六:“悲歡離合總無情”——淺談Split和Join
【新手入門】之七:嵌套與并列——再談If流程問題
【新手入門】之八:“連就連”——淺談“&”和“+”連接符的區(qū)別

【新手入門】之九:從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十:書到用時方恨少——自定義菜單(Access 2003)的制作
【新手入門】之十一:淺談ADO之序言
【新手入門】之十二:淺談ADO之Connection
【新手入門】之十三:淺談ADO之Conmmand(上)
【新手入門】之十四:淺談ADO之Command(下)
【新手入門】之十五:淺談ADO之Recordset(上)
【新手入門】之十六:淺談ADO之Recordset(下)
【新手入門】之十七:淺談列表框的使用
【新手入門】之十八:雙擊列表框修改數(shù)據(jù)
【新手入門】之十九:從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十:“書與書簽”——bookmark屬性答疑
【新手入門】之二十一:記錄集的“凌遲”——逐條導(dǎo)出記錄集

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


作者: today_suny    時間: 2016-1-5 22:56
循環(huán)比較大小,簡單明了  版主 很棒
作者: ej1213    時間: 2018-6-8 17:05
xie xie




歡迎光臨 Office中國論壇/Access中國論壇 (http://ctxi.cn/) Powered by Discuz! X3.3