VB 第七章 控制结构程序设计2 循环结构课件.ppt

《VB 第七章 控制结构程序设计2 循环结构课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、6.2循环结构程序设计在实际工作中，常遇到一些操作过程不太复杂，但又需要反复进行相同处理的问题，比如，在窗体上打印一百条相同的字符串，这个问题的解决逻辑上并不复杂，但如果单纯用顺序结构来处理，那将得到一个非常乏味且冗长的程序：2021/10/5Print“你好“Print"你好“Print"你好“Print"你好“Print"你好“Print"你好“……Print"你好“Print"你好“100次2021/10/5由上面的例子不难看出，程序其实就是在反复执行语句：Print"你好"，程序当然非常简单易懂，但缺乏最基本的编程技巧。

2、要想方便地解决这类问题，最好的办法就是用循环语句。所谓循环就是重复地执行一组语句。我们用循环语句解决上面的问题，程序非常简短：Fori=1To100Print"你好“Nexti2021/10/5上述程序段便是一个循环语句，在循环过程中第2句被反复执行了100次，从而打印出最终的图形。通过上面的对比可知，循环结构非常适合于解决处理的过程相同、处理的数据相关，但处理的具体值不同的问题。我们把能够处理这类问题的语句称为循环语句。VB提供了三种不同风格的循环语句，它们分别是：（1）For…Next语句；（2）While…Wend语句；（

3、3）Do…Loop语句。我们将对这3种循环语句逐一介绍。2021/10/5*6.2.1用For…Next语句实现循环For循环变量=初始值To终止值[Step步长]循环体[ExitFor]Next[循环变量]说明循环变量：亦称为循环控制变量，必须为数值型。初值、终值：都是数值型，可以是数值表达式。步长：循环变量的增量，是一个数值表达式。一般来说，步长为正，初始值应小于终止值；若为负，初始值应大于终止值。步长不能是0。如果步长是1，Step1可略去不写。循环变量的值是自动改变的，不要人为改变，否则会出错。For跟Next必须成对出

4、现。Next后面的循环变量与For语句中的循环变量必须相同。ExitFor用于：当需要无条件跳出循环时循环次数：Int(（终值-初值）/步长+1)例子说明2021/10/5*For循环结构执行过程2021/10/5*Forn=1To10Step3Printn;Nextn具体执行情况如下：第几次循环n与终值比较执行循环体否11<1024<1037<10410=10513>10上面程序的执行结果为：14710我们通过分析下面的程序来理解For语句的执行过程。执行执行执行执行停止执行返回2021/10/5*思考题题1:Forn=1To

5、10Step3Printn;Nextn上面程序的执行结果为：14710题2:a=0Fori=1to10step–1a=a+1printaNexti‘以上循环体执行次数为?Forn=1To10Step3……NextnPrintn上面程序的执行结果？13打开程序2021/10/5PrivateSubCommand1_Click()DimN,iAsInteger’i为循环变量DimsumAsLongN=Text1.Textsum=0Fori=1ToNsum=sum+iNextiText2.Text=sumEndSubPrivateSu

6、bCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub例6-6：求1+2+3+…+n的值，n从键盘输入。思考：若改为1*2*……*N，如何实现？例6-6程序2021/10/56.2.2While……Wend循环结构循环语句必须包含的三部分内容循环初始条件终止条件循环体While……Wend实现循环语法：While条件语句块（循环体）Wend2021/10/5结合下面的程序段，我们做进一步的说明：x=1Whilex<5Printx;x=x+1Wend该程序段的

7、执行结果是：1234循环的初始条件循环的终止条件循环体2021/10/5思考：如果令第一条语句：“x=1”改为x=5,会出现什么情况？如果把第二句的“x<5”改为“x>0”以及”x>1”结果又都如何？如果删去x=x+1这一条语句结果会如何？x=1Whilex<5Printx;x=x+1Wend2021/10/5While循环的几点说明While循环语句本身不能修改循环条件，所以必须在While…Wend语句的循环体内设置相应语句，使得整个循环趋于结束，以避免死循环。While循环语句先对条件进行判断，然后才决定是否执行循环体。如

8、果开始条件就不成立，则循环体一次也不执行。【例6-9】求2000年我国有人口13亿,按人口年增长率0.8%计算,多少年后我国人口超过26亿?2021/10/5程序如下：PrivateSubForm_Click()DimxAsDouble,NAsIntegerx=