常用算法及調試方法第一頁，共二十頁，2022年，8月28日例

求自然對數e的近似值,要求其誤差小于0.00001，近似公式為:

該例題涉及兩個問題：

（1）用循環結構求級數和的問題。本例根據某項值的精度來控制循環的結束與否。（2）累加：e=e+t循環體外對累加和的變量清零e=0

連乘：n=n*i循環體外對連乘積變量置1n=1

PrivateSubForm_Click()Dimi%,n&,t!,e!e=0:n=1‘e存放累加和、n存放階乘

i=0:t=1‘i計數器、t第i項的值

DoWhilet>0.00001e=e+t:i=i+1‘

累加、連乘

n=n*i:t=1/nLoopPrint"計算了";i;"項的和是";eEndSub第二頁，共二十頁，2022年，8月28日2.求素數素數是一個大于2，且不能被1和本身以外的整數整除的整數。

判別某數m是否為素數最簡單的方法是:對于m從i=2，3，…，m-1判別m能否被i整除，只要有一個能整除，m不是素數，否則m是素數。例求100以內素數的代碼：

Form=2To100Fori=2Tom-1

If(mModi)=0ThenGoToNotNextMNextiPrintmNotNextM:Nextmm是否為素數求100以內的素數思考：此例用GoTo語句對非素數不作判斷，若不用GoTo語句，如何修改程序？例：用篩選法求素數第三頁，共二十頁，2022年，8月28日3.窮舉法

“窮舉法”也稱為“枚舉法”或“試湊法”，即將可能出現的各種情況一一測試，判斷是否滿足條件，一般采用循環來實現。例

百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元。現在有100元錢要求買100只雞，編程列出所有可能的購雞方案。設母雞、公雞、小雞各為x、y、z只，根據題目要求，列出方程為：

x+y+z=1003x+2y+0.5z=100三個未知數，兩個方程，此題有若干個解。解決此類問題采用“試湊法”，把每一種情況都考慮到。

方法一：最簡單三個未知數利用三重循環來實現。方法二：從三個未知數的關系，利用兩重循環來實現。第四頁，共二十頁，2022年，8月28日4.遞推法

“遞推法”又稱為“迭代法”，其基本思想是把一個復雜的計算過程轉化為簡單過程的多次重復。每次重復都從舊值的基礎上遞推出新值，并由新值代替舊值。

例

猴子吃桃子。小猴在某天摘桃若干個，當天吃掉一半多一個；第二天吃了剩下的桃子的一半多一個；以后每天都吃尚存桃子的一半多一個，到第7天要吃時只剩下一個，問小猴共摘下了多少個桃子？分析：這是一個“遞推”問題，先從最后一天推出倒數第二天的桃子，再從倒數第二天的桃子推出倒數第三天的桃子……。設第n天的桃子為xn，那么它是前一天的桃子數的xn-1

的一半減1，即xn-1

=（xn+1）*2第五頁，共二十頁，2022年，8月28日5.最小、最大值在若干個數中求最大值，一般先假設一個較小的數為最大值的初值，若無法估計較小的值，則取第一個數為最大值的初值；然后將每一個數與最大值比較，若該數大于最大值，將該數替換為最大值；依次逐一比較。例隨機產生10個100～200之間的數，求最大值。PrivateSubCommand1_Click()

Max=100Fori=1To10x=Int(Rnd*101+100)Printx;

Ifx>MaxThenMax=xNextiPrintPrint"最大值=";MaxEndSub第六頁，共二十頁，2022年，8月28日

6、數制轉換

例將一個十進制整數m轉換成r(2－16)進制字符串。方法：將m不斷除r取余數，直到商為零，以反序得到結果。第七頁，共二十頁，2022年，8月28日7、例加密和解密簡單加密的思想是：將每個字母C加一序數K，式子c=chr(Asc(c)+k),

例如序數k為5，這時“A”“F”，“a”“f”，“B”“G”…

當加序數后的字母超過“Z”或“z”則c=hr(Asc(c)+k-26)。解密為加密的逆過程。第八頁，共二十頁，2022年，8月28日二、排序選擇、冒泡、插入法排序、合并排序等。前兩種排序欲排序的數據全部輸入后，再進行排序；插入法排序每輸入一項，馬上插入到數組應在的位置，數組始終有序。例插入排序，實現的步驟：

(1)輸入欲排序的數據項x；在數組a中找x應所處的位置j;(2)從數組的最后一個元素開始到下標j依次往后移，使j位置空出；

(3)將x放入位置j處，一個數據插入完成；

(4)有若干個數重復(1)～(3)。第九頁，共二十頁，2022年，8月28日例合并排序，將兩個有序的數組合并成另一個有序的數組。假設有序的數組為A、B，合并后的數組為C。合并排序的思想為：（1）先在A、B數組中各取第一個元素進行比較，將小（遞增次序）的元素放入C數組；（2）取小的元素所在數組的下一個元素與上次比較后較大的元素比較，重復上述過程，直到某個數組被先排完；（3）將另一個數組剩余元素抄入C數組，合并排序完成。第十頁，共二十頁，2022年，8月28日三、查找

1、順序查找。

順序查找根據查找的關鍵值與數組中的元素逐一比較(數組可無序)PublicSubSearch(a()AsVariant,ByValkeyAsVariant,index%)Dimi%Fori=LBound(a)ToUBound(a)Ifkey=a(i)Then'找到，元素的下標在index中，結束查找

index=iExitSubEndIfNextiindex=-1 '找不到，index形參的值為-1EndSub平均查找次數n/2第十一頁，共二十頁，2022年，8月28日Key<a(mid)high=mid-1查找區域縮小一半,繼續Key=a(mid)找到結束Key>a(mid)low=mid+1查找區域縮小一半,繼續直到找到或查找區域中無元素.本例用遞歸實現

Subbirsearch(a(),low%,high%,key,index%)2、二分法查找（折半法查找）要查找的數組必須有序。思想：要查找的關鍵值Key同數組的中間mid項元素比較:12345678111222333444555666777888Lowhighmid444Key第十二頁，共二十頁，2022年，8月28日四、

二分法求根思想：已知求根區間[a,b]有一根，每次把求根區間縮小一半,直到找到解或求根區間足夠小。方法：求[a,b]的中點c，判斷f(c)=0,c為求得的根，結束；f(a)與f(c)同號,則[a,c]無根，c代替a；否則[c,b]無根，c代替b；使求根區間縮小一半，重復上述步驟，直到區間小于精度。PublicFunctionhalfRoot(ByVala!,ByValb!)Dimc!DoWhileAbs(b-a)>0.00001c=(a+b)/2Iff(c)=0ThenExitDoElseIff(a)*f(c)>0Thena=cElseb=cEndIfLoophalfRoot=cEndFunction第十三頁，共二十頁，2022年，8月28日五、字符串處理例

編寫一個英文打字訓練的程序，要求如下：(1)在標簽框內隨機產生30個字母的范文；(2)當焦點進入文本框時開始計時，并顯示當時時間；(3)在鍵入文本框按產生的范文輸入相應的字母；(4)當鍵入滿了30個字母后結束計時，禁止向文本框輸入內容，與范文逐一比較，顯示打字的速度和正確率。第十四頁，共二十頁，2022年，8月28日程序調試一.錯誤類型

（1）編輯錯誤在編輯代碼時，VB會對鍵入的代碼直接進行語法檢查。當發現代碼存在打字錯誤，遺漏關鍵字或標點符等語法錯誤，VB在Form窗口中彈出一個子窗口，提示出錯信息，出錯的那一行變成紅色。這時，用戶必須單擊“確定”按鈕，關閉出錯提示窗，然后對出錯行進行修改。第十五頁，共二十頁，2022年，8月28日（2）編譯錯誤

編譯錯誤指按了“啟動”按鈕，VB開始運行程序前，先編譯執行的程序段時，產生的錯誤。此類錯誤由于用戶未定義變量、遺漏關鍵字等原因產生。這時，VisualBasic也彈出一個子窗口，提示出錯信息，出錯的那一行被高亮度顯示。第十六頁，共二十頁，2022年，8月28日（3）運行錯誤運行時錯誤指VB在編譯通過后，運行代碼時發生的錯誤。這類錯誤往往是指令代碼執行了一非法操作引起的。例如類型不匹配、試圖打開一個不存在的文件等。第十七頁，共二十頁，2022年，8月28日（4）邏輯錯誤程序運行后，得不到所期望的結果，這說明程序存在邏輯錯誤。這類錯誤往往是程序存在邏輯上的缺陷所引起。例如，運算符使用不正確、語句的次序不對、循環語句的起始、終值不正確等。通常，邏輯錯誤不會產生錯誤提示信息，故錯誤較難排除，需要程序員仔細地閱讀分析程序以及調試。第十八頁，共二十頁，2022年，8月28日二.調試錯誤

(1)VB的三種模式設計模式[設計]

進行程序的界面設計、屬性設置、代碼編寫等。運行模式[運行]

執行“運行/啟動”命令，可以查看程序代碼，但不能修改。中斷模式[中斷]

當在運行模式，按了“中斷”命令或當程序出現運行時錯誤時進入中斷模式。可以查看代碼、修改代碼、檢查數據。