(完整版)vb常用算法介紹(完整版)vb常用算法介紹一、累加算法如果在設(shè)計(jì)過程中遇到求1+2+3+……+100等連加問題時，就可以用累加算法來解決。累加算法的一般做法是設(shè)一個變量s，0，設(shè)一個變量用來保存加數(shù)。一般在累例:求1+2+3++100的累加和，并打印輸出分析：設(shè)累加器S，初值為0,加數(shù)用變量I表示當(dāng)I=1時，累加器S=S+I=0+1=1當(dāng)I=2時，累加器S=S+I=1+2=3當(dāng)I=3時,累加器S=S+I=3+3=6當(dāng)I=4時，累加器S=S+I=6+4=10……當(dāng)I=100時，累加器S=S+100=1+2+3+……+99+100=50501100次，所以該程序段可寫成：DimS=I0AsInteger，SAsInteger‘給累加器s賦初值ForS=1To100S=S+I‘I既作為循環(huán)變量，又作為加數(shù)NextIPrint"1+2+……100=”;S考慮一下：語句Print”1+2+……100=”；S可以放在循環(huán)體中嗎？延伸一下：上述算法對數(shù)值型數(shù)據(jù),執(zhí)行的是累加操作,如果對字符串型數(shù)據(jù)，完成的是字符串的連接.例：從鍵盤上輸入一串字符,要求將其加密后顯示在文本框Text1中,加密的方法是將每一個字符轉(zhuǎn)變?yōu)樗暮笠晃蛔址?，如：A轉(zhuǎn)變?yōu)锽，1轉(zhuǎn)變?yōu)?。分析：因?yàn)樯婕皩γ恳粋€字符做相應(yīng)處理再連接成一個新串，所以可以用類似累加的算法。定義一個變量str1用來接收輸入的原始字符串，變量str2用來接收加密后的字符串，初值為空串?？捎肔en（)函數(shù)得出字符串的長度，用循環(huán)控制,從左向右逐個取字符，截取字符的功能可用函數(shù)Mid(）完成，由于要做加密操作,可利用Asc(）函數(shù)獲得字符的Ascii碼，用Chr()函數(shù)獲得Ascii碼對應(yīng)的字符。程序段如下：Dimstr1AsString,chAsString＊DimiAsInteger，str2AsStringstr1=InputBox（”輸入原始字符串：”）Fori=1ToLen（str1）str2=str2+Chr(Asc(Mid（str1,i,1))+1) NextiText1.Text=str2考慮一下：如果要實(shí)現(xiàn)字符的逆序連接，該怎么辦？二、連乘算法連乘算法的一般做法是定義一個變量t，作為乘法器使用，初值為1,設(shè)一個變量用來保存乘數(shù)。例:求10!=1＊2＊3＊……*10的結(jié)果并打印輸出分析：與累加算法類似，只不過加法變成乘法。t1，設(shè)變量II=1T=T＊I=1*1=1I=2T=T＊I=1*2=2I=3……當(dāng)I=10時,T=T*I=1＊2＊3＊……*9＊10I110DimIAsInteger,TAslongT=1ForI=1To10T=T＊INextIPrint”1＊2＊3＊……＊10=";T例：求1!+2!+……+10！的值分析：1、、31!、2!10s作累加器，設(shè)一個變量t10110!。設(shè)循環(huán)變量i110，每一次循環(huán)執(zhí)行一次累加操作,每次累加的加數(shù)tiI！的值，可設(shè)循環(huán)控制變量j,按如下程序段完成求i!：t=1Forj=1Toit=t*jNextj結(jié)合累加算法,求!+2！+……+10！的程序段如下：DimiAsInteger，jAsIntegerDimsAsLong,tAsLongs=0Fori=1To10t=1Forj=1Toit=Nextjs=s+tNexti

t*jPrint”1！+2！+……+10！="；s程序執(zhí)行流程是:I=1，計(jì)算t=1!，s=0+1！=1！I=2，計(jì)算t=2！，s=1！+2!I=3,計(jì)算t=3!,s=1!+2!+3！……I=10，計(jì)算t=10！,s=1！+2！+3!+4!+5！+6!+7!+8！+9!+10!考慮一下：(1）：語句t=1是否可以和s=0一樣,放在外循環(huán)外？（答案:不可以！循環(huán)初始化所放置的位置要牢記以下原則：外循環(huán)初始化應(yīng)放在外循環(huán)的外面，內(nèi)循環(huán)初始化應(yīng)放在外循環(huán)體內(nèi)，內(nèi)循環(huán)體外。)（2)：stInteger（整型)嗎？（832767,所以s和t否則會發(fā)生溢出.）優(yōu)化:由于n！=（n—1)!*n,即2！=1！*2,3!=2!＊3，……，10！=9！*10，所以上述程序段還可進(jìn)行以下的優(yōu)化：DimiAsInteger,jAsIntegerDimsAsLong，tAsLongs=0t=1 ‘這時t=1Fori=1To10t=t＊is=s+tNextiPrint”1!+2!+……+10!=";s執(zhí)行流程為：歸納一下：

I=1，計(jì)算t=1＊1=1!，s=0+1!=1!I=2，計(jì)算t=1!＊2=2!,s=1！+2!I=3，計(jì)算t=2?。?=3！，s=1!+2!+3！……I=10,計(jì)算t=9!＊10=10！，s=1！+2!+3!+4!+5!+6！+7!+8!+9!+10！所有累加次數(shù)確定的累加程序都可以采用如下的編程模式：定義累加器s，初值為0或根據(jù)情況賦一個特定值，設(shè)變量t存放加數(shù)，假設(shè)累加次數(shù)為n次，則程序段可按如下框架編寫：s=0Fori=1Tons=s+tNextI統(tǒng)計(jì)算法干個變量用來作計(jì)數(shù)器,專門來統(tǒng)計(jì)滿足相應(yīng)條件的量，有多少個統(tǒng)計(jì)要求，就定義多少個計(jì)數(shù)器，在程序設(shè)計(jì)過程中，分別判斷是否滿足指定條件，若滿足條件，則指定的計(jì)數(shù)器加1。如果計(jì)數(shù)器太多，而且相互例：在文本框中輸入一串字符，統(tǒng)計(jì)其中的字母、數(shù)字和其他字符的個數(shù)。基本思路：要統(tǒng)計(jì)滿足指定要求的字符個數(shù)，應(yīng)定義相應(yīng)變量(如n)作為計(jì)數(shù)器,初值為0，每找到符合條件的字符，將指定計(jì)數(shù)器的值加1。3個計(jì)數(shù)器n1n2n3，0，1，果是數(shù)字，n21，否則n31PrivateSubCommand1_Click（）DimstrAsString，iAsInteger,chAsString*1Dimn1AsInteger，n2AsInteger,n3AsIntegern1=0:n2=0：n3=0：str=Text1。TextFori=1ToLen（str）ch=Mid（str，i，1)IfUCase（ch）〈="Z"AndUCase(ch)>=”A”Thenn1=n1+1n11ElseIfch〉=”0”Andch〈="9”Thenn2=n2+1n21ElseEndIfNexti

n3=n3+1 n31Text2=“字母的個數(shù)為"＆n1＆Chr(13)&Chr（10）Text2=Text2&“數(shù)字的個數(shù)為” & n2 ＆Chr(13)&Text2=Text2 ＆“其他字符的個數(shù)為”＆ n3EndSub求最大值和最小值在N個數(shù)中求最大值和最小值的思路是定義一個變量假設(shè)為max1個數(shù)賦給maxmaxminmax大，將該數(shù)賦給max，如果比min小,將該數(shù)賦給min，即讓max中總是放當(dāng)前的最大數(shù)，讓minmaxmin201100任何一個隨機(jī)整數(shù)xRnd(01要產(chǎn)生在區(qū)間［M，Nx,可用以下公式完成：x=Int（Rnd＊（N-M+1))+N1100x的產(chǎn)生可用以下語句完成：x=Int(Rnd*100）+1按照求最大值和最小值的算法思想,可編寫程序如下:PrivateSubForm_click（)DimiAsInteger，xAsIntegerDim maxAsInteger, minAsRandomize ‘隨機(jī)函數(shù)初始化maxmin==Int(Rnd*100）+1maxFori=1To19‘給maxminx=Int(Rnd*100）maxmin==Int(Rnd*100）+1maxFori=1To19If x>maxThenmax=xIf x〈minThenmin=Next iPrint“最大值是”& maxPrint“最小值是”＆ EndSub素?cái)?shù)判斷一個數(shù)如果只能被1和其本身整除,而不能被其他任何數(shù)整除，那么這個數(shù)就稱為素?cái)?shù)。我們通過下面的例子來說明判斷素?cái)?shù)算法的基本思路。7，24素?cái)?shù)”的提示。分析：由素?cái)?shù)的定義，判斷任一個整數(shù)n是否是素?cái)?shù)的算法是讓n2n—1（或n/2、sqr(n））nnnnI,I2n—1Inn不是素?cái)?shù)，下面就不用再進(jìn)行判斷,提前跳出循環(huán)；如果所有的I都不能被n關(guān)鍵是如何知道跳出循環(huán)后是提前跳出還是正常退出？對于這種有兩種判斷結(jié)果的處理，一般采用標(biāo)志變量。設(shè)一個變量，假設(shè)命名為Flag，F(xiàn)lagTrue，如果提前跳出循環(huán)，F(xiàn)lag的值賦為Flag程序如下:PrivateSubCommand1_Click(）DimiAsInteger，nAsIntegerDimflagAsBooleanflag=True n=Val(Text1。Text)Fori=2 To n—1IfnModi=0flag=False ‘如果In整除，將flagExitForEndIfNextiIfflag=TrueThen ‘該條件也可寫成If flag MsgBoxn&是素?cái)?shù)”ElseEndEndSub

MsgBoxn&"不是素?cái)?shù)"另一種方法:還可以在循環(huán)結(jié)束后通過循環(huán)控制變量的值來進(jìn)行素?cái)?shù)的判斷。如果是素?cái)?shù)，循環(huán)將正常結(jié)束，循環(huán)n終值。程序如下：PrivateSubCommand1_Click(）DimiAsInteger，nAsIntegern=Val(Text1.Text）Fori=2 To n—1IfnModi=0Then ExitForNextiIf i=n Then ‘該條件也可寫成If flag MsgBoxn&”是素"ElseMsgBoxn&"不是素?cái)?shù)”EndIfEndSub求最大公約數(shù)求任意兩個正整數(shù)的最大公約數(shù)可用輾轉(zhuǎn)相除法來求。假設(shè)要求任兩個整數(shù)mnmn的余數(shù)n的值作為mr的值作為nmnr，r0m注意：由于循環(huán)程序次數(shù)不確定，應(yīng)采用do—loop循環(huán)結(jié)構(gòu)。例：在兩個文本框Text1Text2輸入兩個正整數(shù)，單擊命令按鈕Command1后在窗體上輸出其最大公約數(shù)。程序如下：PrivateSubCommand1_Click（)DimmAsInteger,nAsIntegerDimrAsInteger‘定義存放余數(shù)的變量m=Val（Text1.Text）n=Val（Text2Text)Printm；”和”;n;”的最大公約數(shù)為”;Dor=mModm=nn=rLoopUntilr=0PrintmEndSub考慮一下:可以將第一條print語句放在執(zhí)行循環(huán)以后嗎？(答案:不可以。因?yàn)閳?zhí)行完循環(huán)后mn）將以上程序添加相應(yīng)語句就可完成求最小公倍數(shù)的功（M和n的最小公倍數(shù)等于