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ù)求和:
- 先列出步驟:
- 先將結(jié)果lngRes初始化為0。
- 對lngRes求和,i為加數(shù)。
- 重復(fù)執(zhí)行4、5,直至i>intN。
- 計算lngRes+i的值,存入lngRes里。
- 每次i值加1。
根據(jù)步驟寫下的代碼是:
- Function getSum(ByVal intN As Long) As Long
- Dim i As Long
- Dim lngRes As Long
- Do Until i > intN
- lngRes = lngRes + i
- i = i + 1
- Loop
- getSum = lngRes
- End Function
復(fù)制代碼至此,第一個算法就算完成了。很簡單是嗎?接下來,以斐波那契數(shù)列為例,簡單介紹下遞歸算法(這里不打算細說,詳細請參考之前我發(fā)的帖子),步驟如下:
- 令數(shù)組s(0)=0,s(1)=1。
- i從2開始。
- 當(dāng)i<=intN時,重復(fù)執(zhí)行步驟4、5。
- 令s(i)=s(i-1)+s(i-2)
- 每次i+1
按照步驟,可以定義一個從s(2 to intN)的數(shù)組,不過考慮到我們還預(yù)先定義了s(0)和s(1),所以干脆定義一個s(intN)【大部分?jǐn)?shù)組都是默認(rèn)序號從0開始的】,在執(zhí)行循環(huán)時區(qū)分開來即可。于是有:
- Function getFib(ByVal intN As Long) As Long
- Dim i As Long
- Dim s() As Long
- ReDim s(intN)
- For i = 0 To intN
- If i = 0 Then
- s(i) = 0
- ElseIf i = 1 Then
- s(i) = 1
- Else
- s(i) = s(i - 1) + s(i - 2)
- End If
- Next
- getFib = s(intN)
- 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
多謝支持!
作者: 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 |