资源描述
1,第5章,循环结构程序设计,2,采用循环程序可以解决一些按一定规则重复执行的问题。例如，统计一个班几十名学生，甚至全校几千名学生的学期成绩，如求平均分、不及格人数等本章主要内容,第5章循环结构程序设计,Do.Loop,For.Next,退出,循环出口语句(Exit),循环语句,多重循环,列表框与组合框,常用算法,程序举例,3,循环是指在指定的条件下多次重复执行一组语句被重复执行的一组语句称为循环体VB提供的循环语句有For.NextDo.LoopWhile.WendForEach.Next最常用的是For.Next和Do.Loop语句,4,For.Next循环主要是用在知道循环次数的情况下；若事先不知道循环次数，可以使用当型循环Do.Loop1.For.Next循环语句(计数控制)For循环变量初值To终值Step步长值循环体Next循环变量2.DoWhile.Loop语句(条件控制)DoWhile|Until条件循环体Loop,5.1循环语句示例求S=1+2+3+8,s=0Fork=1To8s=s+kNextkPrints=;s程序运行结果如下：s36,n=1:s=0DoWhilen=8s=s+nn=n+1LoopPrints=;s,例5.2,K为循环变量,专设变量n来控制循环,5,例5.2求S=1+2+3+8，把结果显示在窗体上。s=0累加器初值为0Fork=1To8s=s+k累加器，在原有和的基础上每次加一个数NextkPrints=;s程序执行结果是：s36分析,6,算法：通常采用重复运算来解决问题累加、累乘等如用级数/41-1/3+1/5-1/7+来求设置循环变量使每次运算变量值有所不同控制循环计数控制或条件控制,循环结构程序的实现,求S=1+2+3+8s=0Fork=1To8s=s+kNextkPrints=;s把长式子改为8次加,7,采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()Showt=1Forc=1To8t=t*cNextcPrintT=;tEndSub程序运行结果是：T40320语句t=t*c称为乘法器。先将t置1(不能置0)。在循环程序中，常用累加和累乘来完成各种计算任务,例5.3求T=8!=1238,例5.3,8,例5.3T=8!=1238，把结果显示在网页上。t=1累乘器初值为Forc=1To8t=t*c累乘器，在原有积的基础上每次乘一个数NextcPrintT=;t程序执行结果是：T40320分析,9,采用Print直接在窗体上输出结果，程序代码如下：PrivateSubForm_Load()ShowDimpiAsSingle,cAsInteger,sAsIntegerpi=0s=1s表示加或减运算Forc=1To10000Step2pi=pi+s/cs=-s交替改变加、减号NextcPrint=;pi*4EndSub程序运行结果是：3.141397,例5.4用/41-1/3+1/5-1/7+级数求的近似值(取前5000项来进行计算),例5.4,10,Fort=1To3Ift=1Thena=3Ift=2Thena=2Ift=3Thena=1Printa;NexttPrinttA.3334B.1234C.3214D.1114,下列程序的运行结果是？,想一想,思考题,C,12,运行下面程序后，循环体执行了_次。i=0:n=1DoWhilei32i=(i+1)*(i+1)n=n+1LoopPrintnA.2B.3C.4D.5,请回答问题,想一想,思考题,C,13,s=ABCDEFGHIJ:c=Fork=2ToLen(s)Step3a=Mid(s,k)c=c+Left(a,1)NextkPrintcA.BDFB.CFIC.BEHD.BEI,下列程序的运行结果是？,想一想,思考题,C,14,5.1.2DoLoop循环语句,前测型DoLoop循环语句格式:DoWhile|Until条件循环Loop说明:DowhileLoop:当条件成立时,执行循环体,当条件不成立的时候,终止循环.DoUntilLoop:当条件不成立时,执行循环体,直到条件成立时,终止循环.,15,采用DoWhile.Loop语句采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()DimnAsInteger,sAsLongShown=1:s=0DoWhilen=100s=s+n*nn=n+1LoopPrints=;sEndSub程序运行结果：S338350,例5.5求S12+22+1002,例5.5,16,后测型DoLoop循环,语句格式:Do循环LoopWhile|Until条件说明:先执行循环体，然后判断条件，根据条件决定是否继续执行循环体。本语句执行循环的次数最少为1，而前测型语句的最少次数为0,17,用上述公式求/4的近似值，即逐项进行累加，直到某项1/n*(1/2n+1/3n)=10(-5)逐项累加的条件，累加到t=0Thenn=n+1Print(;n;),c,b,aEndIfNextb,aEndSub,28,执行下列程序段后，变量t的值是_。t=0Forx=2To3n=1DoWhilen0ThenCombo1.AddItemCombo1.TextText1.Text=Combo1.ListCountEndIfCombo1.Text=Combo1.SetFocusEndSub,54,PrivateSubCommand2_Click()“删除”DimindAsIntegerind=Combo1.ListIndexIfind-1Then-1表示无表项Combo1.RemoveItemind删除已选定的表项Text1.Text=Combo1.ListCountEndIfEndSubPrivateSubCommand3_Click()“全清”Combo1.ClearText1.Text=Combo1.ListCountEndSubPrivateSubCommand4_Click()EndEndSub,55,PrivateSubCommand1_Click()Fora=1To9Forb=1To9t=a*bPrinta;*;b;=;t;Tab(12*b);NextbPrintNextaEndSub,
展开阅读全文