第5章 选择分支与循环 joyo_fly

5.2循环结构与循环结构语句,5.1分支结构与分支结构语句,第五章选择分支与循环,5.3程序示例,先对条件测试，根据测试的结果选择执行不同的分支,1.If条件语句,2.SelectCase结构,VisualBasic程序设计,5.1分支结构与分支结构语句,3.条件函数,例：Ifscore=60ThenPrint祝贺你考试通过！EndIfPrint“继续努力！”等价于：IfScore=60ThenPrint“祝贺你考试通过！”Print“继续努力!”,1.IfThen结构,格式:(1)If条件Then(A组语句)EndIf,(2)If条件Then语句,执行规则：若条件成立,执行A组语句;条件不成立,跳过A组语句.,5.1.1If条件语句,使用前提：条件成立时,A组语句中只一条执行语句,例：Ifscore=60ThenPrintscorePrint祝贺你考试通过！EndIfPrint“继续努力！”,1.IfThen结构,例1：输入两个数，分别放在x和y变量中，比较它们大小，然后将大数放在x中，小数放在y中。,x%=Text1.textY%=Text2.textIfx=60ThenPrint“祝贺你考试通过！”ElsePrint“考试未通过.”EndIfPrint继续努力！,2.IfThenElse结构,格式：If条件ThenA组语句ElseB组语句ENDIf,执行规则:条件成立,执行A组语句,条件不成立,执行B组语句,例2：计算分段函数：,5.1.1If条件语句,2.IfThenElse结构,开始,5.1.1If条件语句,例5-1：已知三边的长，设计求面积的程序。,3.IfThenElseIf结构,格式：If条件1Then（A组语句）ElseIf条件2Then（B组语句）ElseIf条件3Then（C组语句）Else（n组语句）EndIf,5.1.1If条件语句,格式：If条件1ThenA组语句ElseIf条件2ThenB组语句ElseIf条件3ThenC组语句Elsen组语句EndIf,3.IfThenElseIf结构,注意：多分支语句中，有多个分支同时满足，只执行第一个与之匹配的语句块。注意ElseIf的写法,5.1.1If条件语句,4.If语句的嵌套,5.1.1If条件语句,If语句的嵌套是指if或else后面的语句块中又包含If语句。语句形式：IfThenIfThenEndIfEndIf,注意：(1)对于嵌套结构，为了增强程序的可读性，应该采用缩进形式书写；(2)If语句形式若不在一行上书写，必须与EndIf配对多个If嵌套，EndIf与它最接近的If配对。,SelectCase测试表达式Case测试项1A组语句Case测试项2B组语句CaseElsen组语句EndSelect,说明：测试表达式的值应是数字或字符型测试项的取值必须与测试表达式的值类型相同，常用形式为：具体取值，用逗号隔开如：1，5，9连续的范围：界1TO界2如：12To20满足某个条件：Is运算符如：Is10三种形式可以组合使用,5.1.2SelectCase语句,SelectCase结构,例5-2：DimxAsIntegerSelectCasexCaseIsYThenTmax=XElseTmax=YEndIf,用Iif函数：Tmax=IIf(XY,X,Y),5.2循环结构与循环结构语句,循环:是在指定的条件下多次重复执行一组语句,2.ForNext,1.DoLoop,3.循环嵌套,4.其他辅助控制语句,1.DoWhile循环体Loop,2.D0循环体LoopWhile,3.DoUntil循环体Loop,4.Do循环体LoopUntil,5.2.1DoLoop循环,1.While循环,DoWhile循环体Exitdo循环体Loop,执行过程:（先判断，后执行）先判断循环条件,若为真:执行循环体,再判断循环条件否则，跳过循环体,执行Loop之后语句,5.2.1DoLoop循环,DoWhile循环体Exitdo循环体Loop,例1:求1+2+3+4+10的和.,DimI,sAsIntegerI=1DoWhileLoopPrintI,s,s=s+I,I=10,I=I+1,I=11,(1)循环体执行了几次?(2)没有I=I+1会怎样?(3)将Print语句移到Loop的前面结果怎样?(4)I先赋值为11,结果如何?,1.While循环,5.2.1DoLoop循环,D0循环体Exitdo循环体LoopWhile,执行过程:（先执行，后判断）先执行循环体,再判断循环条件,若为真，继续执行循环体;否则，结束循环,执行Loop之后语句,1.While循环,5.2.1DoLoop循环,D0循环体ExitDoLoopWhile,例4:修改例3,DimI,sAsIntegerI=1DoWhileI=10s=s+II=I+1LoopPrintI,s,DimI,sAsIntegerI=1Dos=s+II=I+1LoopWhileI=10PrintI,s,(1)循环体执行几次？(2)将I先赋值为11，执行结果如何?,1.While循环,5.2.1DoLoop循环,DoWhile循环体Loop,D0循环体LoopWhile,区别:(1)执行顺序不同形式一:先判断,后执行循环体;形式二:先执行循环体,后判断(2)执行次数不同（特殊情况下）形式一:条件不满足,循环体可能一次也不执行形式二:不论条件如何,至少执行一次,1.While循环,5.2.1DoLoop循环,例5-3：用辗转相除法求两自然数m、n的最大公约数和最小公倍数,分析：最大公约数已知两数m、nmModn的值为rmn，nr，若r0，则重复否则，循环结束，m为所求的最大公约数，最小公倍数原两个数相乘，再除以最大公约数,5.2.1DoLoop循环,练习3：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。,分析计算公式：26=13*（1+0.008）n已知：当前人口数量为P=13，年增长率为R=0.008循环条件：当前人口数是否超过26亿若没，计算下一年人口数PP*(1+R)，年数+1，再判断,5.2.1DoLoop循环,执行过程:（先判断，后执行）先判断循环条件：条件为假:执行循环体,然后再判断条件.条件为真:跳过循环体,执行Loop之后语句,DoUntil循环体Loop,2.Until循环,5.2.1DoLoop循环,DoUntil循环体Loop,例5:修改上例,DimI,sAsIntegerI=1DoWhileI10,5.2.1DoLoop循环,2.Until循环,几种形式比较:,DoWhile循环体Loop（While）,DoUntil循环体Loop（Until）,区别:While条件为真时执行循环体,否则退出循环Until条件为假时执行循环体,否则退出循环,关系：while和Until可以相互转换，但循环条件取反while和Until可以通过ExitDo退出循环,5.2.1DoLoop循环,练习4：输入一个正整数n，求最大的k，使得1*1+2*2+k*kn成立,循环结构.练习,分析：输入n值判断累加和sn?若是，s加下一个数的平方值重复2、3若否，结束循环由text2输出最后一个累加数k,对吗?,For循环变量=初值TO终值Step步长语句块ExitFor语句块Next循环变量,For循环格式：,执行过程:(1)将初值赋循环变量；(2)判断循环变量值是否小于等于终止值；(3)若是,执行循环体（语句块）；(4)然后将变量增加一个步长；(5)重复24步骤。(6)否则，结束循环,5.2.2For循环,步长省略，默认为1,程序代码：DimI%,s%ForI=1To10step1NextIPrintI,s,例1:求1+2+3+4+10之和.,分析:重复过程(循环体):ss+I初值、终值和增量:1、10、1,初值与终值换位可以吗？,循环体的执行次数是多少?输出的I、S的值是多少?ForI=1To10执行多少次？,s=s+I,ForI=10To1Step-1,5.2.2For循环,For循环变量=初值TO终值Step步长语句块ExitFor语句块Next循环变量,DimI,sAsIntegerForI=1To10s=s+INextIPrintI,s,例2:求10！,分析:重复过程:*初值、终值与增量不变,例1:求1+2+3+4+10之和.,分析:重复过程(循环体):+初值、终值和增量:1、10、1,DimI,sAsIntegerForI=1To10s=s*INextIPrintI,s,s=1ForI=1To10,ForI=1To10s=1,5.2.2For循环,S1=0S2=0ForI=1To1000S1=S1+INextI,练习1：计算11000的奇数和与偶数和方法一：方法二：,Step2,ForI=1To1000Step2S2=S2+INextIPrintS1,S2,0,S1=0S2=0ForI=1To1000IfImod20thenS1=S1+IElseS2=S2+IEndIfNextIPrintS1,S2,5.2.2For循环,练习2：输入一个正整数，求各位数字之和,输入正整数k求它的位数用For循环1，位数和步长取k的末位数，求和使k去掉末位数重复以上两步，直到结束在text2中显示结果,5.2.2For循环,k=Val(Text1.Text)l=Len(Trim(Text1.Text)Fori=1Tolt=kMod10sum=sum+tk=k10NextText2.Text=CStr(sum),例5-5：一个从字母、数字组成的字符串中找出所有大写字母并逆序输出的程序。,输入原字符串求出串长用For循环1，长度和步长用Mid函数取出每一位，对每个字符进行判断对符合要求的字符采用连接运算组成新字符串重复以上两步，直到结束在text2中显示新串,5.2.2For循环,例：分析下列程序段的输出结果：DimIAsInteger,JAsIntegerJ=0ForI=0To10Step2I=I+3J=J+1NextIPrintI,J,注意：初值、终值、步长必须是数值型，步长为正，初值终值；缺省为默认为1当循环变量为整型，而循环参数为浮点型时，系统将按Cint或CLong函数将其转换为与循环变量相同的整型数。在已知循环次数时使用For循环，循环次数=int(终值-初值)/步长)+1组成循环体的语句块可以是一条或多条语句ExitFor表示当遇到该语句时，退出循环体，执行Next的下一句；在循环体内对循环变量可多次引用，但在循环过程中一般不改变其值，否则影响结果。退出循环后，循环变量保持退出时的值,5.2.2For循环,循环的嵌套：在一个循环体内又包含了一个完整的循环结构,5.2.3循环嵌套,ForI=1To9ForJ=1ToIs=INextJPicture1.PrintNextI,注意：内、外循环变量不能同名外循环必须完全包含内循环，不能出现交叉,分析：用三重循环个位x的可能取值为09十位y的可能取值为09百位z的可能取值为19，看三个位置上的数是否满足如下条件，若满足，即是其中一个解x3+y3+z3=z100y10x,？,练习5：求水仙花数(P78)水仙花数是指一个3位数，其各个数字的立方和等于数字本身。,5.2.3循环嵌套,1.GoTo语句2.Exit语句,满足循环条件的情况下，提前跳出循环体，结束循