常用算法介绍讲稿.ppt

《常用算法介绍讲稿.ppt》由会员分享，可在线阅读，更多相关《常用算法介绍讲稿.ppt（77页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、关于常用算法介绍第一页，讲稿共七十七页哦算法1：累加和累乘累加形式：累加形式：V=V+e连乘形式：连乘形式：V=V*e其中：其中：V是变量，是变量，e是递增表达式。累加和是递增表达式。累加和连乘一般通过循环结构来实现。连乘一般通过循环结构来实现。注意：需在执行循环体前对变量注意：需在执行循环体前对变量V赋初值。赋初值。一般的，累加时置初值一般的，累加时置初值0；连乘时置初值为；连乘时置初值为1。第二页，讲稿共七十七页哦例如求求N!的结果。的结果。PrivateSubCommand1_Click()Dimn%,i%,s&n=Val(InputBox(输入输入n)s=1Fori=1Tons=s*i

2、NextiPrintsEndSub第三页，讲稿共七十七页哦错误的例子PrivateSubCommand1_Click()Dimn%,i%,s&n=Val(InputBox(输入输入n)Fori=1Tons=1赋初值语句位置不对！赋初值语句位置不对！s=s*iNextiPrints输出输出s的值为的值为n，而不是，而不是n!EndSub第四页，讲稿共七十七页哦根据下列公式，求自然对数根据下列公式，求自然对数e的的近似值。的的近似值。要求：误差小于要求：误差小于0.00001Private Sub Command1_Click()Dim i%,n&,t!,e!e=2 i=1 t=1 Do Whil

3、e t 0.00001 i=i+1 t=t/i e=e+t Loop Print 计算了计算了;i;项目和是：项目和是：;e Print Exp(1)与上句输出值进行对比以证明算法的与上句输出值进行对比以证明算法的正确性正确性End Sub第五页，讲稿共七十七页哦解题技巧解题技巧1)由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，所以这类题目一般用所以这类题目一般用Do循环，很少用循环，很少用For循环。设定循环变量和通项变量，注循环。设定循环变量和通项变量，注意各变量的初值；意各变量的初值；2)分解通项表

4、达式中各因子，并分别将各因子用循环变量表示；分解通项表达式中各因子，并分别将各因子用循环变量表示；3)如果步骤如果步骤2中有的因子比较复杂，难以直接用变量表示，此时可以考虑中有的因子比较复杂，难以直接用变量表示，此时可以考虑使用使用Function过程；过程；4)根据步骤根据步骤1、2、3，写出通项表达式；，写出通项表达式；5)根据精度要求（往往是通项小于根据精度要求（往往是通项小于10负多少次方这样一个关系表达式），写负多少次方这样一个关系表达式），写出一条满足精度要求后跳出循环的语句。通常是用：出一条满足精度要求后跳出循环的语句。通常是用：if通项表达式通项表达式10(-N)thenexi

5、tdo，注意这句话一般需放在累加或者连乘式之前。，注意这句话一般需放在累加或者连乘式之前。第六页，讲稿共七十七页哦根据根据X值计算：值计算：n1，2，要求：要求：n项绝对值小于等于项绝对值小于等于10-6为止。为止。注意：如果调试运行时死循环，可以按注意：如果调试运行时死循环，可以按CtrlBreak中断死中断死循环，不需要重新启动机器。（或者循环，不需要重新启动机器。（或者Ctrl+ScrollLock）第七页，讲稿共七十七页哦privateFunctioncomp（naslong）aslongdimIaslongdimresultaslongresult=1此处注意，由于是连乘，初值为此处

6、注意，由于是连乘，初值为1forI=1to2*(n-1)result=result*InextIcomp=resultEndFunction第八页，讲稿共七十七页哦PrivateSubCommand1_Click()DimnAsLong,dblCosAsDouble,xAsDoublex=Val(Text1.Text)n=1DodblCos=(-1)(n+1)*x(2*(n-1)/comp(n)IfAbs(dblCos)maxThenmax=sIfsminThenmin=saver=aver+sNextiaver=aver/nPrintmax=;max;min=;min;aver=;averE

7、ndSub第十三页，讲稿共七十七页哦解题技巧解题技巧最大值、最小值、平均值类型题目往往和数最大值、最小值、平均值类型题目往往和数组放在一起考！有的不仅求这些值，还要对组放在一起考！有的不仅求这些值，还要对具有最大值或者最小值的行或列或者某个元具有最大值或者最小值的行或列或者某个元素进行处理，这时就要在记录最大、最小值素进行处理，这时就要在记录最大、最小值时，同时记录该值所在的行号和列号。时，同时记录该值所在的行号和列号。第十四页，讲稿共七十七页哦实战练习实战练习1)补充代码（补充代码（2000春二（春二（9）本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。

8、在一个数组中可能存本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能不存在这样的元素。数组各元素的值从文件在，也可能不存在这样的元素。数组各元素的值从文件data.txt中读取。中读取。PrivateSubForm_Click()Dima(3,3)AsInteger,iAsInteger,jAsIntegerDimmaxvrAsInteger,colAsInteger,AsIntegerOpendata.txtForInputAs#1Fori=1To3Forj=1To3Input#1,a(i,j)Printa(i,j);Nextj

9、PrintNextiFori=1To3maxvr=（1）col=1Forj=2To3Ifmaxvra(j,col)Then（3）NextjIfj3ThenPrinta(;i;,;col;)=;a(i,col)=1EndIfIf（4）ThenPrint鞍点元素不存在鞍点元素不存在NextiEndSub第十五页，讲稿共七十七页哦2)编程题（编程题（2002秋上机试卷秋上机试卷05）随机生成所有数组元素都是两位数的随机生成所有数组元素都是两位数的33的二维数组，找出的二维数组，找出其中不同行、不同列的三个数组元素的乘积最大的一组，并其中不同行、不同列的三个数组元素的乘积最大的一组，并将这三个元素显示

10、在图片框中。将这三个元素显示在图片框中。第十六页，讲稿共七十七页哦VB常用算法（三）素数常用算法（三）素数算法说明算法说明素数（质数）：就是一个大于等于2的整数，并且只能被1和本身整除，而不能被其他整数整除的数。判别某数m是否是素数的经典算法是：对于m，从I2，3，4，m1依次判别能否被I整除，只要有一个能整除，m就不是素数，否则m是素数。第十七页，讲稿共七十七页哦PrivateFunctionsushu(ByValnAsLong)AsBooleanDimiAsLongFori=2Ton-1If(nModi)=0ThenExitForNextIIfI=nthensushu=TrueEndFun

11、ction很显然，实际上，我们可以改进上面Fori=2Ton1为：Fori=2Toint（sqr（m）这样可以很好的提高效率。以上判断是否为素数的代码务必识记！第十八页，讲稿共七十七页哦应用举例应用举例求100200之内素数。PrivateSubCommand1_Click()DimjAsIntegerForj=100To200Ifsushu(j)=TrueThenPrintjEndIfNextjEndSub解题技巧解题技巧识记判断素数的算法过程，根据题意，灵活调用！第十九页，讲稿共七十七页哦实例说明实例说明编程题（2002年春上机试卷04）找出10000以内所有可以表示为两个平方数和的素数。

12、思路：首先找10000以内的所有素数，对于每个素数判断其是否可以表示为两个平方数之和（即对于任意小于该素数shu的数I，如果I和shuI均为平方数，则说明其可以表示为两个平方数之和。）判断数I是否为平方数的方法：sqr（i）=int(sqr(i)PrivateSubCommand1_Click()DimjAsIntegerDimmAsLong,nAsLongForj=2To10000Ifsushu(j)=TrueThenIfpf(j,m,n)=TrueThenList1.AddItemj&=&m&+&nEndIfEndIfNextjEndSubPrivateFunctionpf(ByValsh

13、uAsLong,mAsLong,nAsLong)AsBooleanDimiAsLongFori=1Toshu-1If(Sqr(i)=Int(Sqr(i)And(Sqr(shu-i)=Int(Sqr(shu-i)Thenpf=Truem=in=shu-iExitFunctionEndIfNextEndFunction第二十页，讲稿共七十七页哦2、实战练习、实战练习1)补充代码（2002春二（7）下列程序的功能是：查找四位正整数中的超级素数。超级素数的定义为：当一个素数从低位到高位依次去掉一位数后剩下的数仍然是素数，则此数为超级素数。如数2333、233、23、2均为素数，所以2333为超级素数。

14、OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,flgAsBooleanForI=1001To9999Step2Callsup_prime(I,flg)IfflgThenPrintIEndIfNextIEndSub第二十一页，讲稿共七十七页哦PrivateSubsup_prime(（1）,FAsBoolean)DimpAsIntegerF=TrueDoWhileN0Ifprime(N)Then（2）Else（3）ExitSubEndIfLoopEndSubPublicFunctionprime(pAsInteger)AsBoolean

15、DimkAsIntegerIfp=1ThenExitFunctionElseFork=2ToSqr(p)IfpModk=0ThenExitFunctionNextk（4）EndIfEndFunction第二十二页，讲稿共七十七页哦2)编程题（2004春上机试卷03）随机生成15个两位正整数，从中找出所有的素数，并记下它是第几个数，再找出其中最大的素数，并给出它的位置。第二十三页，讲稿共七十七页哦VB常用算法（四）进制转化常用算法（四）进制转化算法说明算法说明1)十进制正整数m转换为R（216）进制的字符串。思路：将m不断除r取余数，直到商为0，将余数反序即得到结果。算法实现：PrivateFu

16、nctionTran(ByValmAsInteger,ByValrAsInteger)AsStringDimStrDtoRAsString,nAsIntegerDoWhilemon=mModrm=mrIfn9ThenStrDtoR=Chr(65+n-10)&StrDtoRElseStrDtoR=n&StrDtoREndIfLoopTran=StrDtoREndFunction第二十四页，讲稿共七十七页哦2)R（216）进制字符串转换为十进制正整数。思路：R进制数每位数字乘以权值之和即为十进制数。算法实现：PrivateFunctionTran(ByValsAsString,ByValrAsIn

17、teger)AsintegerDimnAsInteger,decAsIntegers=UCase(Trim(s)Fori%=1ToLen(s)IfMid(s,i,1)=AThenn=Asc(Mid(s,i,1)-Asc(A)+10Elsen=Val(Mid(s,i,1)EndIfdec=dec+n*r(Len(s)-i)NextiTran=decEndFunction解题技巧解题技巧进制转化的原理要清楚,同时编写代码时候要留意16进制中的AF字符的处理。第二十五页，讲稿共七十七页哦2、实战练习、实战练习1)补充代码（2002秋二（9）本程序是把给定的二进制整数转换为八进制整数。PrivateS

18、ubCommand1_Click()DimaAsString,bAsString,cAsStringDimLAsInteger,mAsInteger,nAsIntegera=InputBox(请输入一个二进制数,输入框)（1）a=String(L,0)&a（2）Form=1Ton/3b=Mid(a,3*m-2,3)（3）NextmText1.Text=cEndSub第二十六页，讲稿共七十七页哦PrivateFunctionzh(sAsString)AsStringDimiAsInteger,nAsInteger,pAsIntegerp=1Fori=2To0Step-1（4）p=p+1Nexti

19、zh=Str(n)EndFunction第二十七页，讲稿共七十七页哦2)补充代码（2001春二（7）下面程序是把给定的16进制正整数转换为10进制数。OptionExplicitPrivateSubForm_Click()DimStAsInteger，DemAsLongSt=InputBox(输入一个十六进制数)Dem=Convert(St)PrintSt;=;DemEndSubPrivateFunctionConvert(SAsString)AsLongDimNAsInteger，IAsInteger，SubstringAsString*1DimPAslong，KAsLong，Asc1AsI

20、ntegerN=（1）P=16NForI=1ToNP=P/16Substring=（2）SelectCaseSubstringCase0To9K=K+P*Val(Substring)Case（3）Asc1=Asc(Substring)-Asc(A)+10（4）EndSelectNextI（5）EndFunction第二十八页，讲稿共七十七页哦VB常用算法（五）约数因子算法说明算法说明1)最大公约数：最大公约数：用辗转相除法求两自然数用辗转相除法求两自然数m、n的最大公约数。的最大公约数。（1）首先，对于已知两数首先，对于已知两数m、n，比较并使得，比较并使得mn；（2）m除以除以n得余数得余数

21、r；（3）若若r0，则，则n为求得的最大公约数，算法结束；为求得的最大公约数，算法结束；否则执行步骤（否则执行步骤（4）（4）mnnr再重复执行（再重复执行（2）第二十九页，讲稿共七十七页哦算法实现算法实现循环实现循环实现PrivateFunctionGCD(ByValmAsLong,ByValnAsLong)AsLongDimtempAsLongIfmnThentemp=m:m=n:n=tempDimrAsLongDor=mModnIfr=0ThenExitDom=nn=rLoopGCD=nEndFunction第三十页，讲稿共七十七页哦递归实现递归实现PrivateFunctionGCD(

22、ByValmAsLong,ByValnAsLong)AsLongDimtempAsLongIfmnThentemp=m:m=n:n=tempDimrAsLongr=mModnIfr=0ThenGCD=nElsem=nn=rGCD=GCD(m,n)EndIfEndFunction第三十一页，讲稿共七十七页哦2)最小公倍数最小公倍数mn最大公约数最大公约数3)互质数互质数最大公约数为最大公约数为1的两个正整数的两个正整数解题技巧解题技巧该算法需要识记！该算法需要识记！这种类型题目的扩展是约数和因子题型。这种类型题目的扩展是约数和因子题型。第三十二页，讲稿共七十七页哦2、实战练习、实战练习1)补充代

23、码（补充代码（2003春二（春二（9）给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为指最大公约数为1的两个正整数，下图是程序执行画面）。的两个正整数，下图是程序执行画面）。第三十三页，讲稿共七十七页哦OptionExplicitPrivateFunctiongcd（1）AsIntegerDimrAsIntegerr=mModnIfr=0Thengcd=nElsem=n:n=r（2）EndIfEndFunctionPrivateSubCommand1_Click()DimnAsInteger,

24、pAsIntegern=Val(Text1)Forp=n-1To2Step-1If（3）ThenList1.AddItempNextpEndSub第三十四页，讲稿共七十七页哦2)编程题（编程题（2002秋上机试卷秋上机试卷01）生成一个三行八列的二维数组生成一个三行八列的二维数组A(3,8)，其中前两行元素产，其中前两行元素产生的方法是：生的方法是：用初值用初值X1=26及公式及公式Xi+1=(25Xi+357)Mod 1024，产生，产生一个数列：一个数列：X1、X2、.、X16。其中其中X1X8作为作为A的第一行元素；的第一行元素；X9X16作为作为A的第二行的第二行元素；元素；A的第三行

25、元素值取前两行同列元素的最大公约数。最的第三行元素值取前两行同列元素的最大公约数。最后按图示格式显示在图片框中。后按图示格式显示在图片框中。第三十五页，讲稿共七十七页哦VB常用算法（六）排序常用算法（六）排序1、算法说明、算法说明1)选择法排序(1)从n个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置；(2)除第一个数外，在剩下的n-1个数中再按方法（1）选出次小的数，与第二个数交换位置；(3)以此类推，最后构成递增序列。第三十六页，讲稿共七十七页哦程序代码如下：PrivateSubxzPaiXu(a()AsDouble,shengAsBoolean)a为需要排序的数组，sheng

26、为True则为升序排列，为False，则为降序排列。DimiAsInteger,jAsIntegerDimtempAsDoubleDimmAsIntegerFori=LBound(a)ToUBound(a)-1进行数组大小-1轮比较m=i在第i轮比较时，假定第i个元素为最值元素Forj=i+1ToUBound(a)在剩下的元素中找出最值元素的下标并记录在m中IfshengThen若为升序，则m记录最小元素下标,否则记录最大元素下标Ifa(j)a(m)Thenm=jEndIfNextj将最值元素与第i个元素交换temp=a(i)a(i)=a(m)a(m)=tempNextiEndSub第三十七页

27、，讲稿共七十七页哦2)冒泡法排序选择排序法在每一轮排序时找最值元素的下标，出了内循环（一轮排序结束），再交换最小数的位置；而冒泡法在每一轮排序时将相邻的数比较，当次序不对就交换位置，出了内循环，最值数已经冒出。第三十八页，讲稿共七十七页哦PrivateSubmpPaiXu(a()AsDouble,shengAsBoolean)a为需要排序的数组，sheng为True则为升序排列，为False，则为降序排列。DimiAsInteger,jAsIntegerDimtempAsDoubleDimmAsIntegerFori=LBound(a)ToUBound(a)-1进行n-1轮比较Forj=UBo

28、und(a)Toi+1Step-1从n到i个元素两两进行比较IfshengThen若次序不对，马上进行交换Ifa(j)a(j-1)Thentemp=a(j)a(j)=a(j-1)a(j-1)=tempEndIfEndIfNextj出了内循环，一轮排序结束最值元素冒到最上边NextiEndSub第三十九页，讲稿共七十七页哦实战练习实战练习1)补充代码（2003秋二（10）下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序，所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置，下一遍则是从上到下把最大的元素送到最下的位置。OptionBase1PrivateSubCommand1_

29、Click()Dima(10)AsInteger,iAsIntegerFori=1To10a(i)=Int(Rnd*10)+1Text1=Text1&Str(a(i)NextiCallshaker_sort(a)Fori=1To10Text2=Text2&Str(a(i)NextiEndSub第四十页，讲稿共七十七页哦PrivateSubShaker_sort(k()AsInteger)DimiAsInteger,cAsInteger,dAsIntegerDimtAsIntegerc=1d=（1）DoFor（2）Step-1Ifk(i-1)k(i)Thent=k(i-1):k(i-1)=k(i

30、):k(i)=tEndIfNexti（3）Fori=c+1TodIf（4）Thent=k(i-1):k(i-1)=k(i):k(i)=tEndIfNextid=d-1LoopWhile（5）EndSub第四十一页，讲稿共七十七页哦2)编程题（2002秋上机试卷04）把文本框输入的字符串按降序添加到列表框中。第四十二页，讲稿共七十七页哦VB常用算法（七）常用算法（七）数组元素插入删除数组元素插入删除算法说明算法说明数组中元素的插入和删除一般是在已固定序列的数组中插入或删除一个元素，使得插入或删除操作后的数组还是有序的。基本思路：首先要找到插入位置或要删除的元素。1)插入第四十三页，讲稿共七十七页

31、哦代码如下：PrivateSubCommand1_Click()Dima(10)AsIntegerDimiAsInteger,kAsIntegerFori=0To9生成数组a(i)=i*3+1Printa(i);NextiPrintPrint插入14Fork=0To9查找插入14在数组中的位置If14a(k)ThenExitForNextkFori=9TokStep-1从最后元素开始逐个后移，腾出位置a(i+1)=a(i)Nextia(k)=14插入数14Fori=0To10Printa(i);NextiPrintEndSub第四十四页，讲稿共七十七页哦2)14710131619222528第

32、四十五页，讲稿共七十七页哦代码如下：Dima()asinteger.ReDima(1ton)Fori=k+1tona(i-1)=a(i)NextIRedimpreservea(1ton-1)第四十六页，讲稿共七十七页哦实战练习实战练习1)补充代码（2001秋二（8）C盘根目录下文件Data4.txt的内容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置，得到的新数列是：12345678910。（实现方法：第一次调整后的数列是：12468103579第二次调整后的数列是：12346810579）。第四十七页，讲稿共七十七页哦Opt

33、ionExplictPrivateSubForm_Click()DimA(10)AsInteger,iAsInteger,JAsIntegerOpenc:Data4.txtForInputAs#12Do（1）J=J+1Input#12,A(J)LoopCallInsert(A)Fori=1To10PrintA(i);NextiPrintClose#12EndSub第四十八页，讲稿共七十七页哦PrivateSubInsert(A()AsInteger)DimiAsInteger,PutpAsInteger,JAsIntegerDimGetpAsInteger,NAsInteger,TemAsIn

34、tegerN=UBound(A)/2Putp=1Getp=N+1Fori=1ToNTem=A(Getp)ForJ=GetpToPutp+1Step-1（2）NextJA(Putp)=TemGetp=Getp+1Putp=（3）NextiEndSub第四十九页，讲稿共七十七页哦2)补充代码（2001春二（8）下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。数组各元素的值从文件data.txt中读取。第五十页，讲稿共七十七页哦OptionExplictOptionBase1Pri

35、vateSubForm_Click()DimIAsInteger,JAsInteger,KAsIntegerDimA()AsInteger,TAsInteger,MAsIntegerOpenc:mydocuments2000testdata.txtForInputAs#1DoWhile（1）I=I+1RedimPreserveA(I)Input#1,A(I)LoopM=1:T=（2）DoWhileMTI=M+1DoWhileIhighThen没有查找到index=-1ExitSubEndIfmid=(low+high)2取查找区间的中点IfKey=a(mid)Then查找到，返回下标index

36、=midExitSubElseIfKeya(mid)Then查找区间在上半部分high=mid-1Elselow=mid+1查找区间在下半部分EndIfCallbirSearch(a,low,high,Key,index)递归调用查找函数EndSub第五十四页，讲稿共七十七页哦调用方法：PrivateSubCommand1_Click()Dima(11)a(1)=5:a(2)=13:a(3)=19:a(4)=21:a(5)=37a(6)=56:a(7)=64:a(8)=75:a(9)=80:a(10)=88:a(11)=92DimindAsIntegerCallbirSearch(a,LBou

37、nd(a),UBound(a),21,ind)PrintindEndSub第五十五页，讲稿共七十七页哦实战练习实战练习补充代码（2002春二（9）C盘根目录下stu.txt文件中以下的格式保存着学生姓名及班号信息。本程序的功能是：读取该文件中的数据，再利用InputvBox输入要查找的学生姓名，通过顺序查找，给出找到或找不到的信息。附图是某同学被找到时显示的信息窗口。张文，机械01李明，机械01王文卉，机械01何宇宙，电子02第五十六页，讲稿共七十七页哦OptionExplicitOptionBase1PrivateSubForm_click()Dimstu()AsString,glass()

38、AsString,iAsIntegerDimnAsInteger,nameAsString,kAsIntegerOpenc:stustu.txtForInputAs#11DoWhile（1）（2）ReDimPreservestu(n),glass(n)Input#11,stu(n),glass(n)Loopname=InputBox(输入欲查找的学生姓名：)Callsearch(name,stu,k)Ifk=nThenMsgBox（3）ElseMsgBox无此人。EndIfClose#11EndSub第五十七页，讲稿共七十七页哦PrivateSubsearch(nameAsString,stu

39、()AsString,kAsInteger)DimiAsIntegerFori=1ToUBound(stu)Ifname=stu(i)Then（4）EndIfNexti（5）EndSub第五十八页，讲稿共七十七页哦VB常用算法（九）数学应用算法说明算法说明1)初等数学递推法递推法又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都在旧值的基础上递推出新值，并由新值代替旧值。问题：猴子吃桃子小猴子有若干桃子，第一天吃掉一半多一个；第二天吃掉剩下的一半多一个.；如此，到第七天早上要吃时，只剩下一个桃子。问小猴子一开始共有多少桃子？分析：可以最后一天桃子数推出倒数第

40、二天的桃子数；再从倒数第二天推出倒数第三天桃子数.设第n天桃子数为xn，前一天桃子数是：xn1，则有关系：xnxn1/2-1第五十九页，讲稿共七十七页哦程序如下：PrivateSubCommand1_Click()Dimn%,i%x=1第七天桃子数Print第七天桃子数:1只Fori=6To1Step-1x=(x+1)*2Print第&i&天桃子数:&x&只NextiEndSub第六十页，讲稿共七十七页哦穷举法穷举法又称枚举法，即将所有可能情况一一测试，判断是否满足条件，一般用循环实现。问题：百元买鸡问题。假定小鸡每只5角；公鸡每只2元；母鸡每只3元。现在有100元，要求买100只鸡，编程列出

41、所有可能的购鸡方案。分析：设母鸡、公鸡、小鸡分别x、y、z只，则有：xyz1003x2y0.5z100程序一：PrivateSubCommand1_Click()Dimx%,y%,z%Forx=0To100Fory=0To100Forz=0To100Ifx+y+z=100And3*x+2*y+0.5*z=100ThenPrintx,y,z EndIfNextzNextyNextxEndSub第六十一页，讲稿共七十七页哦程序二（优化）PrivateSubCommand1_Click()Dimx%,y%Forx=0To33Fory=0To50If3*x+2*y+0.5*(100-x-y)=100T

42、henPrintx,y,100-x-yEndIfNextyNextxEndSub第六十二页，讲稿共七十七页哦2)高等数学求积分求积分 近似计算积分：s=13(x3+2x+5)dx代码如下：PublicFunctionf(ByValx!)被积函数f=x*(x*x+2)+5EndFunction第六十三页，讲稿共七十七页哦PublicFunctiontrapez(ByVala!,ByValb!,ByValn%)AsSingleb、a分别为积分上下限，n为等分数Dimsum!,h!,x!h=(b-a)/nsum=(f(a)+f(b)/2Fori=1Ton-1x=a+i*hsum=sum+f(x)Ne

43、xtitrapez=sum*hEndFunction调用：PrivateSubCommand1_Click()Printtrapez(1,3,30)EndSub第六十四页，讲稿共七十七页哦数论综合题数论综合题此类题目比较广泛，必须给以足够重视。历年题目有：平方数、零巧数、拟互满数、回文数、酉完数、完数、幸运数、逆序数以及无暇素数、超级素数、因子和等。第六十五页，讲稿共七十七页哦实战练习实战练习1)补充代码（2002秋二（10）找出由两个不同数字组成的平方数，并将结果按图中的格式显示在列表框List1中。第六十六页，讲稿共七十七页哦OptionExplicitPrivateSubCommand1

44、_Click()DimIAsLong,NAsLongForI=11To300（1）IfVerify(N)Then（2）EndIfNextIEndSub第六十七页，讲稿共七十七页哦PrivateFunctionVerify(（3）)AsBooleanDimA(0To9)AsInteger,IAsInteger,JsAsIntegerDoWhileN0（4）N=N10LoopForI=0To9Js=Js+A(I)NextI（5）EndFunction第六十八页，讲稿共七十七页哦1)编程题（2004秋上机试卷08）一个正整数被称为奇妙平方数，如果此数的平方与它的逆序数的平方互为逆序数。例如，122=

45、144,212=441,12与21互逆,144与441互逆,12就是奇妙平方数。找出1-300以内所有的奇妙平方数。第六十九页，讲稿共七十七页哦VB常用算法（十）字符处理（统计与加密）算法说明算法说明1)加密解密最简单的加密方法是：将每个字母加一序数，例如5，这时：“A”F”,”a”f”,”B”G”,”b”g”Y”D”,”y”d”,”Z”E”,”z”e”解密是加密的逆操作。界面如下：第七十页，讲稿共七十七页哦代码如下：OptionExplicitPrivateSubCommand1_Click()DimstrInput$,Code$,Record$,cAsString*1Dimi%,lengt

46、h%,iAsc%strInput=Text1.Textlength=Len(Trim(strInput)Code=Fori=1Tolengthc=mid(strInput,i,1)SelectCasecCaseAToZiAsc=Asc(c)+5IfiAscAsc(Z)TheniAsc=iAsc-26Code=Code&Chr(iAsc)CaseaToziAsc=Asc(c)+5IfiAscAsc(z)TheniAsc=iAsc-26Code=Code&Chr(iAsc)CaseElseCode=Code&cEndSelectNextiText2.Text=CodeEndSub第七十一页，讲稿共

47、七十七页哦PrivateSubCommand3_Click()Text1.Text=Text2.Text=Text3.Text=Text1.SetFocusEndSub第七十二页，讲稿共七十七页哦2)统计问题提出问题提出统计字符或者数字出现的次数。算法说明算法说明以字符统计为例，设基本问题如下：请统计一段文本中英文字母在文本中出现的次数。（不区分大小写）如：Iamastudent.得到：A:2d:1e:1I:1m:1n:1s:1t:2u:1分析：由于不区分大小写，因此可定义一个大小为26（下标：025）的数组，每个元素依次记录A、B、CZ字母出现的次数。A(0)存放字母a出现的次数A(1)存放

48、字母b出现的次数A(2)存放字母c出现的次数A(3)存放字母d出现的次数譬如：aabdc第七十三页，讲稿共七十七页哦代码如下：OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimzimu(25)AsIntegerDimallStrAsStringDimaStrAsStringallStr=UCase(Text1.Text)Fori=1ToLen(Text1.Text)aStr=Mid(allStr,i,1)IfaStr=AAndaStr=ZThenzimu(Asc(aStr)-Asc(A)=zimu(Asc(aS

49、tr)-Asc(A)+1EndIfNextiFori=0To25Ifzimu(i)0Thenj=j+1Text2.Text=Text2.Text&Chr(i+Asc(A)&:&str(zimu(i)&IfjMod5=0ThenText2.Text=Text2.Text&Chr(13)&Chr(10)EndIfNextiEndSub第七十四页，讲稿共七十七页哦解题技巧解题技巧熟练运用字符处理函数，对于一些数论题，譬如逆序数等也可将数字通过CStr函数转换为字符后，利用字符处理函数来解题。第七十五页，讲稿共七十七页哦实战练习实战练习1)补充代码（2003秋二（8）下面程序的功能是统计文件中英文字母

50、（不区分大小写）出现的个数。OptionBase1PrivateSubCommand1_Click()Dimalpha(26)AsInteger,nAsIntegerDimiAsInteger,sAsStringOpenc:kav2003readme.txtForInputAs#11DoWhileNotEOF(11)s=（1）s=UCase(s)Ifs=AAnds=ZThenn=（2）alpha(n)=alpha(n)+1EndIfLoopFori=1To26Ifalpha(i)0ThenList1.AddItemChr(i+64)&:&CStr(alpha(i)EndIfNextiClose