Office中國論壇/Access中國論壇

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

作者: roych    時間: 2015-1-26 15:51
標(biāo)題: 【新手進階】之一:基礎(chǔ)算法(一)

看到這題目,大家第一反應(yīng)可能是,我需要學(xué)嗎?跟編程有關(guān)系嗎?對于這兩個問題,我的回答是:不需要學(xué),但建議學(xué);跟編程有關(guān)系,但并非充分條件。就好比下象棋,不懂棋譜,不代表不能贏,但在殺法上可能就有區(qū)別了,懂棋譜的可能更容易妙招迭出;同樣地,不懂算法,不代表不會編程。不過,如果想編寫出一個更優(yōu)雅的程序,還是學(xué)學(xué)算法吧。

說到算法,大多數(shù)都顯得枯燥艱澀,向來曲高和寡。其實,算法也并不是那么復(fù)雜,現(xiàn)在我手頭上這本就淺顯易懂得多了,只是不知道為什么市面上關(guān)于這方面的書籍都是那么無趣。只是,這個日本人定位的是科普讀物,所以,代碼部分只能由我動手寫了(當(dāng)然,算法中的變量名稱也根據(jù)我寫的函數(shù)來定的)。

先申明一下,這部分只說基礎(chǔ)算法,不涉及任何技巧,所以不要拿數(shù)學(xué)或者系統(tǒng)函數(shù)等等來說事兒。

關(guān)于自然數(shù)求和:

根據(jù)步驟寫下的代碼是:

  1. Function getSum(ByVal intN As Long) As Long
  2. Dim i As Long
  3. Dim lngRes As Long
  4. Do Until i > intN
  5.            lngRes = lngRes + i
  6.            i = i + 1
  7. Loop
  8. getSum = lngRes
  9. End Function
復(fù)制代碼

至此,第一個算法就算完成了。很簡單是嗎?接下來,以斐波那契數(shù)列為例,簡單介紹下遞歸算法(這里不打算細說,詳細請參考之前我發(fā)的帖子),步驟如下:

按照步驟,可以定義一個從s(2 to intN)的數(shù)組,不過考慮到我們還預(yù)先定義了s(0)和s(1),所以干脆定義一個s(intN)【大部分?jǐn)?shù)組都是默認(rèn)序號從0開始的】,在執(zhí)行循環(huán)時區(qū)分開來即可。于是有:

  1. Function getFib(ByVal intN As Long) As Long
  2. Dim i As Long
  3. Dim s() As Long
  4. ReDim s(intN)
  5. For i = 0 To intN
  6.            If i = 0 Then
  7.                       s(i) = 0
  8.            ElseIf i = 1 Then
  9.                      s(i) = 1
  10.             Else
  11.                     s(i) = s(i - 1) + s(i - 2)
  12.            End If
  13. Next
  14. getFib = s(intN)
  15. End Function
復(fù)制代碼

示例文件

【新手入門】之一: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ù)源操作記錄
【新手進階】之十:工作日的計算
【新手進階】之十一:“庖丁解!焙汀凹o(jì)昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進階】之十二:從四腳騰空的奔馬談起——原來界面可以這樣設(shè)計
【新手進階】之十三:Outlook風(fēng)格導(dǎo)航界面
【新手進階】之十四:倉庫管理系統(tǒng)
作者: todaynew    時間: 2015-1-26 16:42
文字有些偏多,讀起來有些不易。
作者: 風(fēng)中漫步    時間: 2015-1-26 17:00
迫切需要掃盲.感謝斑竹.
文字確多,已經(jīng)習(xí)慣淺閱讀了.
作者: roych    時間: 2015-1-26 17:03
看來還是拆開好點~~~
作者: 風(fēng)中漫步    時間: 2015-1-26 17:10
{:soso_e100:}主要是電子屏看久了眼睛很難受
作者: zhidao    時間: 2015-1-26 18:55
聽說算法是一個軟件的靈魂
作者: 天涯淪落20131    時間: 2015-1-27 09:52
我一直在看你發(fā)的貼!
作者: roych    時間: 2015-1-27 09:56
天涯淪落20131 發(fā)表于 2015-1-27 09:52
我一直在看你發(fā)的貼!

多謝支持!
作者: today_suny    時間: 2016-1-5 22:45
喜歡掃盲, 代碼看了好幾遍才懂了
作者: ej1213    時間: 2018-6-8 17:05
xiexie




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