资源描述：
《VisualBasic 程序设计教程 教学课件 作者 刘莲英 第6章 循环结构程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第6章本章主要内容6.1循环结构程序示例6.2For...Next语句6.3Do…Loop语句6.4循环的嵌套——多重循环结构6.5GoTo语句6.6循环结构程序举例循环结构程序设计1/30在VisualBasic中，实现循环结构的语句主要有：For…Next语句DoWhile/Until…LoopDo…LoopWhile/Until语句While…Wend语句第6章循环结构程序设计2/306.1循环结构程序示例【例6-1】编程计算1+2+3+…+n的值。算法见图：i=1，sum=0当i<=nsum=sum+ii=i+1输出s
2、um的值图6-1求n个自然数的和3/30程序代码PrivateSubForm_Click()Dimsum&,i%,n%sum=0'累加前变量sum值为0n=InputBox("请输入n的值:","输入n的值")Fori=1Tonsum=sum+iNextiPrint"1+2+...";n;"=";sumEndSub4/306.2For...Next语句1.For...Next语句的语法格式For循环变量=初值to终值[Step步长]语句序列Next[循环变量]例如：求1~100奇数的和。Fori=99To1step-2sum=sum+
3、iNextiFori=1To99step2sum=sum+iNexti缺省步长为15/30说明②如果想提前退出For循环，使用ExitFor语句，并且一般应同选择结构一起出现在循环体中。>0初值<终值<0初值>终值=0死循环缺省步长为1步长①关于步长6/302.For...Next语句的简单应用【例6-2】求n!，即计算p=1×2×3×…×n的值。思路：求阶乘与求累加的运算处理过程类似，只要将“+”变为“*”。程序中设置变量i表示乘数，初值为1，终值为n（n是循环控制终值，需要从键盘输入）；变量p表示累乘器，每次循环令p=p*i。7/
4、30程序代码如下：PrivateSubForm_Click()Dimi%,n%,p&p=1n=Val(InputBox("请输入n："))Fori=1Tonp=p*iNextiMsgBoxn&"!="&p,,"求阶乘"EndSub8/301.Do…Loop语句的语法格式⑴当型循环（先判断）的语法格式DoWhile
5、Until条件语句序列Loop6.3Do…Loop语句TF语句序列条件FT语句序列条件图6-5DoWhile…Loop图6-6DoUntil…Loop9/306.3Do…Loop语句（续）例如：计算1+2+3+…+n的值，程
6、序段如下：sum=0'累加前变量sum为0i=1'给控制循环的变量赋初值DoWhilei<=100sum=sum+ii=i+1LoopDoUntili>10010/306.3Do…Loop语句（续）⑵直到型循环（后判断）的语法格式Do语句序列LoopWhile
7、Until条件FT语句序列条件TF语句序列条件图6-7Do…LoopWhile图6-8Do…LoopUntil11/306.3Do…Loop语句（续）例如：计算1+2+3+…+n的值，程序段如下：sum=0'累加前变量sum为0i=1'给控制循环的变量赋初值Dosum=sum+
8、ii=i+1LoopWhilei<=100LoopUntili>10012/302.Do...Loop语句的简单应用【例6-4】求两个整数的最大公约数和最小公倍数。思路：两个数的最小公倍数为两数乘积除以最大公约数。最大公约数使用辗转相除的方法求解。辗转相除法：如图6-9所示以24和60为例：60÷24余数：1224÷12余数：0结果：最大公约数为12，最小公倍数为24×60÷12=12013/30求最大公约数的算法输入m、nx=m*nm0时输出m和x/m14/30PrivateSub
9、Form_Click()Dimn%,m%,x%,r%,t%m=Val(InputBox("m="))n=Val(InputBox("n="))x=m*nIfm0Print"最大公约数=",mPrint"最小公倍数=",x/mEndSub15/30格式：While条件语句序列Wend3.While...Wend语句WhileI<=100S=S+II=I+1Wend该语句的功能与DoWhile<条件>….Loop实现的循环完全相同。例如:DoWhile
10、I<=100S=S+II=I+1Loop改写后16/306.4循环的嵌套——多重循环结构如果在一个循环内完整地包含另一个循环结构，则称为多重循环或循环嵌套，嵌套的层数可以根据需要而定。嵌套一层称为二重循环，嵌套二层称为三
