零基础学VB 第6章

1,循环结构程序设计,本章要点:For.Next循环While.Wend循环Do.Loop循环,特点:重复相同或相似的操作步骤结构:循环体要重复执行的语句序列。循环控制部分规定循环的重复条件或重复次数，确定循环范围的语句,2,6.1ForNext循环结构,1.格式For=ToStepExitForNext,循环变量值超过终值？,执行循环体,后续语句,Yes,No,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,累加分析:累加器(变量)初值S=0循环体(重复执行)S=S+I(I=1,2,N)PrivateSubCommand1_Click()DimNAsInteger,IAsInteger,SAsIntegerN=Val(Text1.Text)S=0ForI=1ToNS=S+INextILabel3.Caption=SEndSub,【例6-1】求1+2+3+4+N,6,思考:1.求12+22+32+42+10022.求13+33+53+n33.求1-3+5-7+(-1)n+1(2n-1),4.求,5.求,7,例6-2】求N！(N!=123N)累乘分析:初始化:F=1循环体:F=FI(I=1，2，3N)程序:PrivateSubCommand1_Click()DimNAsInteger,IAsInteger,FAsLongN=Val(Text1.Text)F=1ForI=1ToNF=F*INextIText2.Text=FEndSub,8,思考:1.求1357(共N项)。,2.求:,3.求:,9,【例6-3】打印斐波那契(Fibonacci)数列的前20项斐波那契数列如下:0，1，1，2，3，5，8，13，即从第三项起每一项是其前两项之和。分析:PrivateSubForm_Click()A=0:B=1Text1.Text=Text1.Text公鸡;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,31,【例6-11】数字灯谜。有算式:,A、B、C、D为非负一位数字，要求找出满足以上算式的A、B、C、D。,32,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,33,6.4应用举例,本部分内容要求自学，课外自行上机练习。P101【例6-11】P102【例6-12】P103【例6-13】,34,本章小结,1.ForNext循环结构For=ToStepExitForNext,35,2.W