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

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

該例題涉及兩個問題：

（1）用循環(huán)結(jié)構(gòu)求級數(shù)和的問題。本例根據(jù)某項值的精度來控制循環(huán)的結(jié)束與否。（2）累加：e=e+t循環(huán)體外對累加和的變量清零e=0

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

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

i=0:t=1‘i計數(shù)器、t第i項的值

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

累加、連乘

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

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

Form=2To100Fori=2Tom-1

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

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

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

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

方法一：最簡單三個未知數(shù)利用三重循環(huán)來實現(xiàn)。方法二：從三個未知數(shù)的關(guān)系，利用兩重循環(huán)來實現(xiàn)。第四頁，共二十頁，2022年，8月28日4.遞推法

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

例

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

的一半減1，即xn-1

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

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

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

6、數(shù)制轉(zhuǎn)換

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

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

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

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

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

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

1、順序查找。

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

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

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

二分法求根思想：已知求根區(qū)間[a,b]有一根，每次把求根區(qū)間縮小一半,直到找到解或求根區(qū)間足夠小。方法：求[a,b]的中點c，判斷f(c)=0,c為求得的根，結(jié)束；f(a)與f(c)同號,則[a,c]無根，c代替a；否則[c,b]無根，c代替b；使求根區(qū)間縮小一半，重復上述步驟，直到區(qū)間小于精度。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)在標簽框內(nèi)隨機產(chǎn)生30個字母的范文；(2)當焦點進入文本框時開始計時，并顯示當時時間；(3)在鍵入文本框按產(chǎn)生的范文輸入相應的字母；(4)當鍵入滿了30個字母后結(jié)束計時，禁止向文本框輸入內(nèi)容，與范文逐一比較，顯示打字的速度和正確率。第十四頁，共二十頁，2022年，8月28日程序調(diào)試一.錯誤類型

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

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

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

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

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

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