VB程序设计第2版第6章

1,第6章,循环结构程序设计,本章要点:For.Next循环While.Wend循环Do.Loop循环,特点:重复相同或相似的操作步骤结构:循环体要重复执行的语句序列。循环控制部分规定循环的重复条件或重复次数，确定循环范围的语句,2,6.1ForNext循环结构,1.格式For=ToStepExitForNext,循环变量值超过终值？,执行循环体,后续语句,T,F,2.功能:执行过程如流程图所示,3,3.说明1)循环变量数值型变量2)初值,终值,步长数值表达式3)步长可正可负,但不能为0,为1时可以省略步长0时，必须:初值终值步长=终值循环结束条件循环变量的值终值4)ExitFor退出循环，常放在条件语句中5)Next之后的循环变量应与For语句中的循环变量一致，也可以省略,4,例:判断以下程序段的执行结果:Fori=5To1Step-1Printi*i;NextiPrintPrinti,例:判断以下程序段的执行结果:X=6ForK=1To10Step-2X=X+KNextKPrintK,X,5,累加分析:累加器(变量)初始化Sum=0重复执行（循环体）Sum=Sum+I(I=1,2,N),【例6-1】输入N的值，求1+2+3+4+N,流程图：,6,设计界面：,Text1,Label3,Command1,运行界面：,7,代码：PrivateSubCommand1_Click()DimNAsInteger,IAsInteger,SumAsIntegerN=Val(Text1.Text)输入累加总项数Sum=0设累加和初值为0ForI=1ToNSum=Sum+I循环体:和值=和值+累加项NextILabel3.Caption=Sum输出累加结果EndSub,8,思考:1.求12+22+32+42+10022.求13+33+53+n33.求1-3+5-7+(-1)n+1(2n-1),4.求,5.求,9,练习：输入N的值，求123N(即N！),代码:PrivateSubCommand1_Click()DimNAsInteger,IAsInteger,FAsLongN=Val(Text1.Text)F=1ForI=1ToNF=F*INextIText2.Text=FEndSub,累乘分析:初始化:F=1循环体:F=FI(I=1，2，3N),10,思考:1.求1357(共N项)。,2.求:,3.求:,11,【例6-2】打印斐波那契(Fibonacci)数列的前20项斐波那契数列如下:0，1，1，2，3，5，8，13，分析：产生斐波那契数列的方法是：1）首先给出第一项、第二项的值0和1:A=0，B=1。2）输出当前两个数A,B，求后两个数:A=A+BB=A+B这样就产生了数列中新的两个数，且这两个数取代了其前两个数，仍存于变量A、B中。3）重复步骤2），直到输出所有的数。,12,流程图：,13,设用文本框Text1显示数据，每行显示两个数。代码：PrivateSubForm_Click()A=0:B=1Text1.Text=Str(A)J;FF=1NextI,48,F=1DoWhileI1000ThenExitDoNextJPrintFF=1I=I+1LoopPrintF,49,4)嵌套循环应选用不同的循环变量例:ForI=.ForJ=.NextJ.ForJ=.NextJNextI,50,【例6-9】求1+(1+2)+(1+2+3)+(1+2+3+n)，n由用户输入。分析:PrivateSubForm_Click()N=Val(Text1.Text)Sum=0ForI=1ToNSum1=0ForJ=1ToISum1=Sum1+JNextJSum=Sum+Sum1NextIText2.Text=SumEndSub,51,【例6-10】设计如下图a所示的界面，运行时单击图片框Picture1，用输入框指定行数，然后按该行数在图片框中打印一个三角形，如下图b所示。,Picture1,a）,b）,52,分析：程序首先输入N，然后N控制循环次数，每循环一次打印。而对于每一行，只需要确定该行打印的起始位置及打印的星号个数就可以了。对于本题，分析其行号、打印起始位置和打印的星号个数之间具有表所示（设N为6）。,结论：第I行打印的起始位置为N+1-I;第I行星号的个数为2I-1,53,代码如下：PrivateSubPicture1_Click()Picture1.ClsN=Val(InputBox(请输入行数)ForI=1ToNPicture1.PrintTab(N+1-I);ForJ=1To2*I-1Picture1.Print*;NextJPicture1.PrintNextIEndSub,Picture1.PrintString(2*i-1,*);,54,【例6-11】公鸡5个钱一只，母鸡三个钱一只、小鸡一个钱三只，要用100个钱买100只鸡，问公鸡、母鸡、和小鸡各买几只？分析:使用“穷举法”，PrivateSubForm_Click()DimIAsInteger,JAsInteger,KAsIntegerPrintTab(5);公鸡;Tab(15);母鸡;Tab(25);_小鸡ForI=0To20ForJ=0To33ForK=0To100Step3IfI*5+J*3+K3=100AndI+J+K=100ThenPrintTab(5);I;Tab(15);J;Tab(25);KEndIfNextK,J,IEndSub,55,【例6-12】数字灯谜。有算式:,A、B、C、D为非负一位数字，要求找出满足以上算式的A、B、C、D。,分析:使用“穷举法”，,56,PrivateSubForm_Click()DimAAsInteger,BAsInteger,CAsInteger,_DAsIntegerDimS1AsInteger,S2AsInteger,S3AsIntegerForA=1To9ForB=0To9ForC=1To9ForD=0To9S1=A*1000+B*100+C*10+DS2=C*100+D*10+CS3=A*100+B*10+CIfS1-S2=S3ThenPrintA;B;C;DEndIfNextD,C,B,AEndSub,57,6.5应用举例,本部分内容要求自学，课外自行上机练习。P106【例6-13】P107【例6-14】P108【