循环结构习题ppt课件

,素数是一个大于2，且不能被1和本身以外的整数整除的数。判别某数m是否为素数最简单的方法是:对于m，从i=2，3，判别m能否被i整除，只要有一个能整除，m不是素数，否则m是素数。,求素数,1,求100以内素数,在循环语句中如何表示一个数是否为素数？定义一个Boolean型变量Flag，Flag=true表示一个数为素数，Flag=false表示一个数不是素数。,解题思路：（1）如何判断一个数m是否为素数；（m除以i=2）.（2）使用循环语句找出1100之间所有的素数。,2,PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,nasintegerDimflagAsBoolean:n=0Form=2To100flag=TrueIfflag=trueThenprintm;”;n=n+1ifnmod10=0thenPrintEndifNextmEndSub,判断一数是否为素数，用flag来标注,假定m为素数,根据flag来打印素数,Fori=2ToSqr(m)If(mModi)=0Thenflag=FalseNexti,在窗体上换行输出的方法，一行固定输出10数字,3,常用算法,1.累加、连乘,累加是在原有和的基础上一次一次地每次加一个数。Sum=Sum+i,连乘是在原有积的基础上一次一次地每次乘一个数。t=t*i,算法是对某个问题求解过程的描述,4,计算sum1！2！3！10！,PrivateSubForm_Click()DimsumAsLongDimiAsIntegerDimtAsLongsum=0:t=1Fori=1To10t=t*isum=sum+tNextiPrint1!+2!+3!+.+10!=;sumEndSub,5,求自然对数e的近似值,要求其误差小于0.00001，近似公式为:,该例题涉及两个问题：（1）用循环结构求级数和的问题。本例根据某项值(t)的精度(要求计算精度为0.00001）来控制循环的结束与否。（2）累加：e=e+t循环体外对累加和的变量清零e=0连乘：n=n*i循环体外对连乘积变量置1n=1,级数t,连乘积n,累加和e,6,PrivateSubForm_Click()Dimi%,neEndSub,7,穷举法求水仙花数,水仙花数是一个三位数，它的每位数的立方和刚好等于其本身。如153就是水仙花数153=13+53+33,8,思考：找出1000之内的所有完数。,完数的界定：一个数恰好等于他的因子之和，这个数就称为完数。如数字6，它的因子是1、2、3，刚好有等式：6=1+2+3成立，所以6就是一个完数。,回文数：第一位数与最后一位数相等，第二位数与倒数第二位数相等第N位数与倒数第N位数相等,9,PrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimsumAsIntegerForn=1To1000sum=0Fori=1Ton-1IfnModi=0Thensum=sum+iNextiIfsum=nThenText1.Text=Text1.Text&n&vbCrLfEndIfNextnEndSub,完数,10,PrivateSubCommand1_Click()DimnumAsStringDimstrAsStringDimiAsIntegernum=Text1.Textstr=Fori=1ToLen(num)str=Mid(num,i,1)&strNextiIfstr=numThenLabel2.Caption=num&是回文数ElseLabel2.Caption=num&不是回文数EndIfEndSub,回文数,11,“递推法”又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值，并由新值代替旧值。实验D第7题:,4.递推法,12,在若干个数中求最大值，一般先假设一个较小的数为最大值的初值，若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。例随机产生10个100200之间的数，求最大值。,PrivateSubCommand1_Click()dimmaxasinteger，xasintegerMax=100Fori=1To10 x=Int(Rnd*101+100)PrintxMaxEndSub,5.最小、最大值,13,随机输入10名学生成绩，将成绩显示在窗体中。并显示其中的最好及其序号。输入输出形式自定。例如：输入85，74，62，37，98，77，65，77，69，81显示：5号成绩最好，98分,14,PrivateSubForm_Click()DimiAsInteger,cjAsIntegerDimmaxAsInteger,maxnAsIntegermax=0:maxn=0Fori=1To10cj=Val(InputBox(请输入第IfiMod5=0ThenPrintIfcjmaxThenmax=cj:maxn=iNextiPrintPrint第&maxn&号的得分最高，为&maxEndSub,15,思考：增加显示最差成绩和平均分4号成绩最差,37分平均分为，XX,16,统计问题（一）,17,PrivateSubCommand1_Click()统计按钮的事件过程DimstrAsString：DimzimuAsInteger：DimshuziAsIntegerDimqitaAsInteger：DimiAsInteger：DimccstrAsString*1zimu=0：shuzi=0：qita=0str=Text1.TextFori=1ToLen(str)ccstr=Mid(str,i,1)SelectCaseccstrCaseAToZ,aTozzimu=zimu+1Case0To9shuzi=shuzi+1CaseElseqita=qita+1EndSelectNextiText2.Text=zimu：Text3.Text=shuzi：Text4.Text=qitaEndSub,18,统计问题（二）,输入一个字符串，统计其中每个字母（不区分大小写）出现的频率。,19,PrivateSubText1_KeyPress(KeyAsciiAsInteger)Dimstr$,i%,ccstr$Dimn(26)AsIntegerIfKeyAscii=13Thenstr=Text1.TextFori=1ToLen(str)ccstr=UCase(Mid(str,i,1)n(Asc(ccstr)-65+1)=n(Asc(ccstr)-65+1)+1NextiFori=1To26Ifn(i)0ThenPicture1.PrintChr(i+65-1)&出现了&n(i)&次EndIfNextiEndIfEndSub,PrivateSubCommand1_Click()Picture1.ClsText1.Text=EndSub清屏,是否已经按下回车键得判断,文本框得keypress事件，