第5单元 循环结构程序设计.ppt

《第5单元 循环结构程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序设计基础-VB语言第5单元循环结构程序设计循环结构就是用于执行重复操作的结构。在程序中如果遇到需要反复多次处理的问题，我们就可以用循环结构来实现。何时用到循环结构？引言2第5单元循环结构程序设计第一节循环结构控制语句第二节循环嵌套循环结构复习第三节常用算法举例实验3本节知识点：循环结构程序设计的概念，for循环，do循环，while循环。第一节循环结构控制语句41.For循环语句For循环变量＝初值to终值[Step步长]语句块[ExitFor]Next循环变量说明：For语句的作用是确定循环变量的值如何变化，也就是用来控制循环的次数。Exitfor

2、:退出循环，执行next后的下一条语句。步长=1时，可省略。第一节循环结构控制语句5分析：S来存放累加和S=0S=S+1S=S+2S=S+3……S=S+100过程归纳S=S+I(其中：I=0to100)例4.9编程计算：S=1+2+3+…+100s=0i=1是否i<=100s=s+ii=i+1输出S第一节循环结构控制语句6PrivateSubForm_Click()DimS%,I%S=0'累加前变量S为0ForI=1To100S=S+INextIPrint"S=";Format(S,"0000")EndSub例4.9编程计算：S=1+2+3+…+100第

3、一节循环结构控制语句7For循环的例子①计算1到100之间所有奇数的和②计算1到1000之间所有能够被7整除的数和思考题第一节循环结构控制语句82.Do……loop循环1）形式1：（当型循环）Do[{While

4、Until}<条件>]语句块[ExitDo]语句块Loop2）形式2：(直到循环）Do语句块[ExitDo]语句块Loop[{While

5、Until}<条件>]第一节循环结构控制语句9第一节循环结构控制语句10编程计算：S=1+2+3+…+100（用do-loop循环）PrivateSubForm_Click()DimsAsInteger,iAs

6、Integers=0i=1DoWhile(i<=100)s=s+ii=i+1LoopPrint"s=";Format(s,"0000")EndSub第一节循环结构控制语句113.While…Wend循环使用格式如下：While<条件><循环块>Wend说明：该语句的功能与DoWhile<条件>…Loop实现的循环完全相同。第一节循环结构控制语句12编程计算：S=1+2+3+…+100（用while循环）PrivateSubForm_Click()DimsAsInteger,iAsIntegers=0i=1While(i<=100)s=s+ii=i+1we

7、ndPrint"s=";Format(s,"0000")EndSub第一节循环结构控制语句13【练习】：教材P75，程序设计题第6题（水仙花数）第一节循环结构控制语句14例4.11从键盘输入一些字符数据，对输入的字符数据进行计数。当输入的字符为“#”，停止计数并输出结果。分析：因为输入次数不定，故不使用for循环。PrivateSubForm_click()DimcAsString,nAsIntegern=0c=InputBox("输入字符：")While(c<>"#")printcn=n+1c=InputBox("输入字符：")WendPrint"字符

8、数是：";n;"个"EndSub第一节循环结构控制语句15本节知识点：循环的嵌套,循环的退出。第二节循环嵌套161.循环嵌套—多重循环结构如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。第二节循环嵌套17例4.13使用循环语句在窗体上输出有*组成的简单图形PrivateSubForm_Click()DimnAsInteger,i%,j%Cls'清屏n=Val(Text1.Text)'输入组成图形的行数Fori=1TonPrintTab(20);Forj=1Toi

9、Print"*";NextjPrintNextiEndSub图4.14例4.13运行结果第二节循环嵌套18【练习】：教材P74选择题第5题第二节循环嵌套192.循环的退出语句格式：ExitFor‘强制退出For……Next循环ExitDo‘强制退出Do……Loop循环例4.15用For……Next循环结构计算1～100之和，当和大于等于2000时终止循环，并输出实际循环的次数。第二节循环嵌套20PrivateSubCommand1_Click()Dims%,i%s=0'累加前变量S为0Fori=1To100s=s+iIfs>=2000ThenExitFo

10、rNextiLabel2.Caption=sLabel4.Caption=iEn