资源描述：
《第5章 循环结构程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、循环结构程序设计所谓循环结构就是根据某一条件重复地执行某些操作（程序段）。在VB.NET环境中，提供了两种类型的循环语句：（1）计数型循环语句，也称For循环。（2）条件型循环语句。For…Next循环语句For…Next循环语句以指定的次数重复执行一组语句。主要用在事先能计算出循环次数的情况下。其语法结构如下：For循环控制变量=初值To终值[Step步长]…[ExitFor]…Next[循环控制变量]说明：（1）循环控制变量（简称循环变量）是一个数值型的变量。（2）初值和终值分别表示循环控制变量的起始值和终止值。初值可以小于等于终值，也可在大于等于终值。（3）步长：表示
2、每次循环时，循环控制变量的变化量。步长可以是正数，也可以是负数。若省略不写，默认值为1。步长不能为0。通过初值、终值和步长可以计算循环体的循环次数：循环次数=int((终值-初值)/步长)+1若计算结果<=0，则循环体一次也不执行。（4）For与Next之间的语句块称为循环体。（5）循环体中的ExitFor表示提前退出循环，执行下一个语句。（6）Next表示循环的终端语句循环变量=初值语句块1语句块2循环变量=循环变量+步长循环变量是否超过终值?是否执行到Exitfor语句?YNNY例：计算1+2+3+…+100。（不能用等差数列求和的计算公式）Dimi,sAsIntege
3、rs=0’在计算累加和时，存放和的变量的初值为0Fori=1To100s=s+iNextMsgBox("1+2+3+…+100的和为："+Str(s),,"求和")考虑：如何求1*2*3*…*100说明：（1）当退出循环时，循环控制变量的值保存的是退出时的值。请计算以下两个循环结束时，循环控制变量i的值。①Fori=2to20Step5…Next②Fori=20to2Step-5…Next(2)在for循环的循环体中，只能引用循环控制变量的值，但不能对其赋值。下面的程序段是错误的。Fori=1to10Step2s=s+2*ii=i+1Next例：求从100到2000之间所有
4、3的倍数之和，当和大于1000时，就停止计算并输出和。Dimi,sAsIntegers=0Fori=100To2000IfiMod3=0Thens=s+iIfs>1000ThenExitForEndIfEndIfNextMsgBox("和为："+Str(s),,"求和")例：求100到999之间的所有“水仙花数”。“水仙花数”的含义是一个数的每个数位的立方和等于该数。例153=13+53+33。分析：对于某一个数说，先把这个数拆开成单个的数字，然后再判断它们的立方和是否等于本身。程序如下：Dimbw,gw,sw,iAsIntegerDimstr1AsStringstr1="
5、"Fori=100To999bw=i100sw=(iMod100)10gw=iMod10Ifbw^3+sw^3+gw^3=iThenstr1=str1+Str(i)+vbCrLfEndIfNextMsgBox("结果为："+vbCrLf+str1,,"求水仙花数")例子1、从键盘输入一个字符串，分别统计字母“M”和“m”在其中出现的次数。2、计算并输出下面级数前n项(n=40)中偶数项的和。s=1*2+2*3+3*4+4*5+……+n*(n+1)+…3、计算并输出所有6位正整数中能被6整除且其十位数不是4的数之和，并求它们中的最大数。4、编写程序，计算并输出下面数列前n
6、项的和(设n=15,结果取4位小数)。数列为：2/1,3/2,5/3,8/5,13/8,21/13,……While...EndWhile循环此循环也称“当型循环”，表示当条件成立时，重复执行某个动作。语法如下：While<条件表达式>语句块[ExitWhile]语句块EndWhile其中：（1）条件表达式表示循环要满足的条件。若表达式的值为True，则执行语句块。（2）语句块：即循环体。执行的流程如图所示。说明如下：语句块YN条件表达式例：用辗转相除法求两个数m，n的最大公约数和最小公倍数。分析：辗转相除法求两个数m，n的最大公约数的思想如下：（1）求m除以n的余数r，即r
7、=mmodn；(2)若r≠0，转（3）；若r=0，则此时的n就是最大公约数，转（4）；(3)把n的值给m，把r的值给n，即m←n，n←r，转（1）；（4）循环结构的下一个语句。求最小公倍数的方法：两个数的乘积除以它们的最大公约数。Dimm,n,r,x,y,zAsIntegerm=TextBox1.Textn=TextBox2.Textx=m:y=n’保存最初两个数的值给x和y，以备求最小公倍数时使用r=mModnWhiler<>0m=nn=rr=mModnEndWhilez=x*y/n’求最小公倍数MsgBox("
