常用算法介绍.ppt

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

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

2、 i=1 To n s=s*i Next i Print sEnd Sub现在学习的是第3页，共77页错误的例子Private Sub Command1_Click()Dim n%,i%,s&n=Val(InputBox(输入输入n)For i=1 To n s=1 赋初值语句位置不对！赋初值语句位置不对！s=s*i Next i Print s 输出输出s的值为的值为n，而不是，而不是n!End Sub现在学习的是第4页，共77页根据下列公式，求自然对数根据下列公式，求自然对数e的的近似值。的的近似值。要求：误差小于要求：误差小于0.00001Private Sub Command1_Cli

3、ck()Dim i%,n&,t!,e!e=2 i=1 t=1 Do While t 0.00001 i=i+1 t=t/i e=e+t Loop Print 计算了计算了;i;项目和是：项目和是：;e Print Exp(1)与上句输出值进行对比以证明算与上句输出值进行对比以证明算法的正确性法的正确性End Sub现在学习的是第5页，共77页解题技巧解题技巧1)由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，所以这类题目一般用环次数，所以这类题目一般用Do循环，很少用循环，很少用For循环。设定循环变量和通循环。设

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

5、求后跳出循环的语句。通常是用：if 通项表达式通项表达式10(-N)then exit do，注意这句话一般需放在累加或者连乘式之前。，注意这句话一般需放在累加或者连乘式之前。现在学习的是第6页，共77页根据根据X值计算：值计算：n1，2，要求：要求：n项绝对值小于等于项绝对值小于等于10-6为止。为止。注意：如果调试运行时死循环，可以按注意：如果调试运行时死循环，可以按CtrlBreak中断中断死循环，不需要重新启动机器。（或者死循环，不需要重新启动机器。（或者Ctrl+Scroll Lock）现在学习的是第7页，共77页private Function comp（n as long）as

6、longdim I as longdim result as longresult=1 此处注意，由于是连乘，初值为此处注意，由于是连乘，初值为1for I=1 to 2*(n-1)result=result*Inext Icomp=resultEnd Function现在学习的是第8页，共77页Private Sub Command1_Click()Dim n As Long,dblCos As Double,x As Double x=Val(Text1.Text)n=1 Do dblCos=(-1)(n+1)*x (2*(n-1)/comp(n)If Abs(dblCos)max The

7、n max=s If s min Then min=s aver=aver+s Next i aver=aver/n Print max=;max;min=;min;aver=;averEnd Sub现在学习的是第13页，共77页解题技巧解题技巧 最大值、最小值、平均值类型题目往往和最大值、最小值、平均值类型题目往往和数组放在一起考！有的不仅求这些值，还数组放在一起考！有的不仅求这些值，还要对具有最大值或者最小值的行或列或者要对具有最大值或者最小值的行或列或者某个元素进行处理，这时就要在记录最大、某个元素进行处理，这时就要在记录最大、最小值时，同时记录该值所在的行号和列最小值时，同时记录该值所

8、在的行号和列号。号。现在学习的是第14页，共77页实战练习实战练习 1)补充代码（补充代码（2000春二（春二（9）本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能不存在这样的元素。数组各元素的值从文件不存在这样的元素。数组各元素的值从文件data.txt中读取。中读取。Private Sub Form_Click()Dim a(3,3)As Integer,i As Integer,j As IntegerDim

9、maxvr As Integer,col As Integer,As IntegerOpen data.txt For Input As#1For i=1 To 3For j=1 To 3Input#1,a(i,j)Print a(i,j);Next jPrintNext iFor i=1 To 3maxvr=（1）col=1For j=2 To 3If maxvra(j,col)Then （3）Next jIf j3 Then Print a(;i;,;col;)=;a(i,col)=1End If If （4）Then Print 鞍点元素不存在鞍点元素不存在Next iEnd Sub现在

10、学习的是第15页，共77页2)编程题（编程题（2002秋上机试卷秋上机试卷05）随机生成所有数组元素都是两位数的随机生成所有数组元素都是两位数的33的二维数组，找出其的二维数组，找出其中不同行、不同列的三个数组元素的乘积最大的一组，并将中不同行、不同列的三个数组元素的乘积最大的一组，并将这三个元素显示在图片框中。这三个元素显示在图片框中。现在学习的是第16页，共77页VB常用算法（三）素数常用算法（三）素数算法说明算法说明 素数（质数）：就是一个大于等于2的整数，并且只能被1和本身整除，而不能被其他整数整除的数。判别某数m是否是素数的经典算法是：对于m，从I2，3，4，m1依次判别能否被I整除

11、，只要有一个能整除，m就不是素数，否则m是素数。现在学习的是第17页，共77页PrivateFunctionsushu(ByValnAsLong)AsBooleanDimiAsLongFori=2Ton-1If(nModi)=0ThenExitForNextIIfI=nthensushu=TrueEndFunction很显然，实际上，我们可以改进上面Fori=2Ton1为：Fori=2Toint（sqr（m）这样可以很好的提高效率。以上判断是否为素数的代码务必识记！现在学习的是第18页，共77页应用举例应用举例求100200之内素数。PrivateSubCommand1_Click()Dimj

12、AsIntegerForj=100To200Ifsushu(j)=TrueThenPrintjEndIfNextjEndSub解题技巧解题技巧 识记判断素数的算法过程，根据题意，灵活调用！现在学习的是第19页，共77页实例说明实例说明 编程题（2002年春上机试卷04）找出10000以内所有可以表示为两个平方数和的素数。思路：首先找10000以内的所有素数，对于每个素数判断其是否可以表示为两个平方数之和（即对于任意小于该素数shu的数I，如果I和shuI均为平方数，则说明其可以表示为两个平方数之和。）判断数I是否为平方数的方法：sqr（i）=int(sqr(i)PrivateSubComman

13、d1_Click()DimjAsIntegerDimmAsLong,nAsLongForj=2To10000Ifsushu(j)=TrueThenIfpf(j,m,n)=TrueThenList1.AddItemj&=&m&+&nEndIfEndIfNextjEndSubPrivateFunctionpf(ByValshuAsLong,mAsLong,nAsLong)AsBooleanDimiAsLongFori=1Toshu-1If(Sqr(i)=Int(Sqr(i)And(Sqr(shu-i)=Int(Sqr(shu-i)Thenpf=Truem=in=shu-iExitFunctionE

14、ndIfNextEndFunction现在学习的是第20页，共77页2、实战练习、实战练习 1)补充代码（2002春二（7）下列程序的功能是：查找四位正整数中的超级素数。超级素数的定义为：当一个素数从低位到高位依次去掉一位数后剩下的数仍然是素数，则此数为超级素数。如数2333、233、23、2均为素数，所以2333为超级素数。OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,flgAsBooleanForI=1001To9999Step2 Callsup_prime(I,flg)IfflgThenPrintIEndIfNextIEndS

15、ub现在学习的是第21页，共77页PrivateSubsup_prime(（1）,FAsBoolean)DimpAsInteger F=TrueDoWhileN0Ifprime(N)Then（2）Else（3）ExitSubEndIfLoopEndSubPublicFunctionprime(pAsInteger)AsBooleanDimkAsIntegerIfp=1ThenExitFunctionElseFork=2ToSqr(p)IfpModk=0ThenExitFunctionNextk（4）EndIfEndFunction现在学习的是第22页，共77页2)编程题（2004春上机试卷03

16、）随机生成15个两位正整数，从中找出所有的素数，并记下它是第几个数，再找出其中最大的素数，并给出它的位置。现在学习的是第23页，共77页VB常用算法（四）进制转化常用算法（四）进制转化算法说明算法说明 1)十进制正整数m转换为R（216）进制的字符串。思路：将m不断除r取余数，直到商为0，将余数反序即得到结果。算法实现：PrivateFunctionTran(ByValmAsInteger,ByValrAsInteger)AsStringDimStrDtoRAsString,nAsIntegerDoWhilemon=mModrm=mrIfn9ThenStrDtoR=Chr(65+n-10)&S

17、trDtoRElseStrDtoR=n&StrDtoREndIfLoopTran=StrDtoREndFunction现在学习的是第24页，共77页2)R（216）进制字符串转换为十进制正整数。思路：R进制数每位数字乘以权值之和即为十进制数。算法实现：PrivateFunctionTran(ByValsAsString,ByValrAsInteger)AsintegerDimnAsInteger,decAsIntegers=UCase(Trim(s)Fori%=1ToLen(s)IfMid(s,i,1)=AThenn=Asc(Mid(s,i,1)-Asc(A)+10Elsen=Val(Mid(

18、s,i,1)EndIfdec=dec+n*r(Len(s)-i)NextiTran=decEndFunction解题技巧解题技巧 进制转化的原理要清楚,同时编写代码时候要留意16进制中的AF字符的处理。现在学习的是第25页，共77页2、实战练习、实战练习 1)补充代码（2002秋二（9）本程序是把给定的二进制整数转换为八进制整数。PrivateSubCommand1_Click()DimaAsString,bAsString,cAsStringDimLAsInteger,mAsInteger,nAsIntegera=InputBox(请输入一个二进制数,输入框)（1）a=String(L,0)

19、&a（2）Form=1Ton/3b=Mid(a,3*m-2,3)（3）NextmText1.Text=cEndSub现在学习的是第26页，共77页PrivateFunctionzh(sAsString)AsStringDimiAsInteger,nAsInteger,pAsIntegerp=1Fori=2To0Step-1（4）p=p+1Nextizh=Str(n)EndFunction现在学习的是第27页，共77页2)补充代码（2001春二（7）下面程序是把给定的16进制正整数转换为10进制数。OptionExplicitPrivateSubForm_Click()DimStAsIntege

20、r，DemAsLongSt=InputBox(输入一个十六进制数)Dem=Convert(St)PrintSt;=;DemEndSubPrivateFunctionConvert(SAsString)AsLongDimNAsInteger，IAsInteger，SubstringAsString*1DimPAslong，KAsLong，Asc1AsIntegerN=（1）P=16NForI=1ToNP=P/16Substring=（2）SelectCaseSubstringCase0To9K=K+P*Val(Substring)Case（3）Asc1=Asc(Substring)-Asc(A)

21、+10（4）EndSelectNextI（5）EndFunction现在学习的是第28页，共77页VB常用算法（五）约数因子算法说明算法说明 1)最大公约数：最大公约数：用辗转相除法求两自然数用辗转相除法求两自然数m、n的最大公约数。的最大公约数。（1）首先，对于已知两数首先，对于已知两数m、n，比较并使得，比较并使得mn；（2）m除以除以n得余数得余数r；（3）若若r0，则，则n为求得的最大公约数，算法结为求得的最大公约数，算法结束；否则执行步骤（束；否则执行步骤（4）（4）mn nr 再重复执行（再重复执行（2）现在学习的是第29页，共77页算法实现算法实现循环实现循环实现Private

22、Function GCD(ByVal m As Long,ByVal n As Long)As Long Dim temp As Long If m n Then temp=m:m=n:n=temp Dim r As Long Do r=m Mod n If r=0 Then Exit Do m=n n=r Loop GCD=nEnd Function现在学习的是第30页，共77页递归实现递归实现Private Function GCD(ByVal m As Long,ByVal n As Long)As Long Dim temp As Long If m n Then temp=m:m=n

23、:n=temp Dim r As Long r=m Mod n If r=0 Then GCD=n Else m=n n=r GCD=GCD(m,n)End IfEnd Function现在学习的是第31页，共77页2)最小公倍数最小公倍数mn最大公约数最大公约数3)互质数互质数最大公约数为最大公约数为1的两个正整数的两个正整数解题技巧解题技巧该算法需要识记！该算法需要识记！这种类型题目的扩展是约数和因子题型。这种类型题目的扩展是约数和因子题型。现在学习的是第32页，共77页2、实战练习、实战练习 1)补充代码（补充代码（2003春二（春二（9）给定一个十进制正整数，找出小于它并与其互质的所有

24、正整数（所谓互质数是给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为指最大公约数为1的两个正整数，下图是程序执行画面）。的两个正整数，下图是程序执行画面）。现在学习的是第33页，共77页Option ExplicitPrivate Function gcd（1）As Integer Dim r As Integer r=m Mod n If r=0 Then gcd=n Else m=n:n=r （2）End IfEnd FunctionPrivate Sub Command1_Click()Dim n As Integer,p As Integer n=Va

25、l(Text1)For p=n-1 To 2 Step-1 If （3）Then List1.AddItem p Next pEnd Sub现在学习的是第34页，共77页2)编程题（编程题（2002秋上机试卷秋上机试卷01）生成一个三行八列的二维数组生成一个三行八列的二维数组A(3,8)，其中前两行元素，其中前两行元素产生的方法是：产生的方法是：用初值用初值X1=26及公式及公式Xi+1=(25Xi+357)Mod 1024，产生一，产生一个数列：个数列：X1、X2、.、X16。其中其中X1X8作为作为A的第一行元素；的第一行元素；X9X16作为作为A的第二行的第二行元素；元素；A的第三行元素

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

27、为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现在学习的

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

29、Bound(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现在学习的是第39页，共77页实战练习实战练习 1)补充代码（2003秋二（10）下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序，所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置，下一遍则是从上到下把最大的元素送到最下的位置。OptionBase1PrivateSubComma

30、nd1_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现在学习的是第40页，共77页PrivateSubShaker_sort(k()AsInteger)DimiAsInteger,cAsInteger,dAsIntegerDimtAsIntegerc=1d=（1）DoFor（2）Step-1Ifk(i-1)k(i)Thent=k(i-1):k(i-

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

32、的是第43页，共77页代码如下：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现在学习的是第44页，共77页2)1471013

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

34、的是第47页，共77页OptionExplictPrivateSubForm_Click()DimA(10)AsInteger,iAsInteger,JAsIntegerOpenc:Data4.txtForInputAs#12Do（1）J=J+1Input#12,A(J)LoopCallInsert(A)Fori=1To10PrintA(i);NextiPrintClose#12EndSub现在学习的是第48页，共77页PrivateSubInsert(A()AsInteger)DimiAsInteger,PutpAsInteger,JAsIntegerDimGetpAsInteger,NAs

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

36、lictOptionBase1PrivateSubForm_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

37、)Then查找到，返回下标index=midExitSubElseIfKeya(mid)Then查找区间在上半部分high=mid-1Elselow=mid+1查找区间在下半部分EndIfCallbirSearch(a,low,high,Key,index)递归调用查找函数EndSub现在学习的是第54页，共77页调用方法：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)=92DimindAsIntegerC

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

39、mstu()AsString,glass()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现在学习的是第57页，共77页PrivateSub

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

41、开始共有多少桃子？分析：可以最后一天桃子数推出倒数第二天的桃子数；再从倒数第二天推出倒数第三天桃子数.设第n天桃子数为xn，前一天桃子数是：xn1，则有关系：xnxn1/2-1现在学习的是第59页，共77页程序如下：PrivateSubCommand1_Click()Dimn%,i%x=1第七天桃子数Print第七天桃子数:1只Fori=6To1Step-1x=(x+1)*2Print第&i&天桃子数:&x&只NextiEndSub现在学习的是第60页，共77页穷举法穷举法 又称枚举法，即将所有可能情况一一测试，判断是否满足条件，一般用循环实现。问题：百元买鸡问题。假定小鸡每只5角；公鸡每只2

42、元；母鸡每只3元。现在有100元，要求买100只鸡，编程列出所有可能的购鸡方案。分析：设母鸡、公鸡、小鸡分别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现在学习的是第61页，共77页程序二（优化）PrivateSubCommand1_Click()Dimx%,y%Forx=0To33Fory=0T

43、o50If3*x+2*y+0.5*(100-x-y)=100ThenPrintx,y,100-x-yEndIfNextyNextxEndSub现在学习的是第62页，共77页2)高等数学求积分求积分 近似计算积分：s=13(x3+2x+5)dx代码如下：PublicFunctionf(ByValx!)被积函数f=x*(x*x+2)+5EndFunction现在学习的是第63页，共77页PublicFunctiontrapez(ByVala!,ByValb!,ByValn%)AsSingleb、a分别为积分上下限，n为等分数Dimsum!,h!,x!h=(b-a)/nsum=(f(a)+f(b)/

44、2Fori=1Ton-1x=a+i*hsum=sum+f(x)Nextitrapez=sum*hEndFunction调用：PrivateSubCommand1_Click()Printtrapez(1,3,30)EndSub现在学习的是第64页，共77页数论综合题数论综合题 此类题目比较广泛，必须给以足够重视。历年题目有：平方数、零巧数、拟互满数、回文数、酉完数、完数、幸运数、逆序数以及无暇素数、超级素数、因子和等。现在学习的是第65页，共77页实战练习实战练习 1)补充代码（2002秋二（10）找出由两个不同数字组成的平方数，并将结果按图中的格式显示在列表框List1中。现在学习的是第66

45、页，共77页OptionExplicitPrivateSubCommand1_Click()DimIAsLong,NAsLongForI=11To300（1）IfVerify(N)Then（2）EndIfNextIEndSub现在学习的是第67页，共77页PrivateFunctionVerify(（3）)AsBooleanDimA(0To9)AsInteger,IAsInteger,JsAsIntegerDoWhileN0（4）N=N10LoopForI=0To9Js=Js+A(I)NextI（5）EndFunction现在学习的是第68页，共77页1)编程题（2004秋上机试卷08）一个正

46、整数被称为奇妙平方数，如果此数的平方与它的逆序数的平方互为逆序数。例如，122=144,212=441,12与21互逆,144与441互逆,12就是奇妙平方数。找出1-300以内所有的奇妙平方数。现在学习的是第69页，共77页VB常用算法（十）字符处理（统计与加密）算法说明算法说明 1)加密解密最简单的加密方法是：将每个字母加一序数，例如5，这时：“A”F”,”a”f”,”B”G”,”b”g”Y”D”,”y”d”,”Z”E”,”z”e”解密是加密的逆操作。界面如下：现在学习的是第70页，共77页代码如下：OptionExplicitPrivateSubCommand1_Click()Dimst

47、rInput$,Code$,Record$,cAsString*1Dimi%,length%,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&c

48、EndSelectNextiText2.Text=CodeEndSub现在学习的是第71页，共77页PrivateSubCommand3_Click()Text1.Text=Text2.Text=Text3.Text=Text1.SetFocusEndSub现在学习的是第72页，共77页2)统计问题提出问题提出 统计字符或者数字出现的次数。算法说明算法说明 以字符统计为例，设基本问题如下：请统计一段文本中英文字母在文本中出现的次数。（不区分大小写）如：Iamastudent.得到：A:2d:1e:1I:1m:1n:1s:1t:2u:1分析：由于不区分大小写，因此可定义一个大小为26（下标：02

49、5）的数组，每个元素依次记录A、B、CZ字母出现的次数。A(0)存放字母a出现的次数A(1)存放字母b出现的次数A(2)存放字母c出现的次数A(3)存放字母d出现的次数譬如：aabdc现在学习的是第73页，共77页代码如下：OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimzimu(25)AsIntegerDimallStrAsStringDimaStrAsStringallStr=UCase(Text1.Text)Fori=1ToLen(Text1.Text)aStr=Mid(allStr,i,1)IfaSt

50、r=AAndaStr=ZThenzimu(Asc(aStr)-Asc(A)=zimu(Asc(aStr)-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现在学习的是第74页，共77页解题技巧解题技巧 熟练运用字符处理函数，对于一些数论题，譬如逆序数等也可将数字通过CStr函数转换为字符后，利用字符处理函数来解题。现在学习