其它第5章-循环结构

第5章

循环结构程序设计

结构化程序中的三种基本程序结构：顺序结构选择结构循环结构在程序中，凡是需要重复相同或相似的操作步骤，都可以用循环结构来实现。循环结构由两部分组成：循环体：即要重复执行的语句序列；循环控制部分：循环的重复条件或重复次数，同时确定循环范围的语句。VB支持的循环结构有：

Do…Loop循环√For…Next循环√

ForEach…Next循环

While…Wend循环其中For…Next循环结构常用于设计已知循环次数的程序，而Do…LoopWhile…Wend循环结构更适合于设计循环次数未知，而只知道循环结束条件的程序。5.1Do…Loop循环语句格式为：Do

循环体LoopDo…Loop循环结构有几种演变形式，但每一种都是通过判断某条件以决定循环是否继续执行。所不同的是，是先判断条件后执行循环体，还是先执行循环体后判断条件；5.1Do…Loop循环形式一：前测型：Do{While|Until}<条件>

语句块

[ExitDo]

语句块LoopDo

语句块

[ExitDo]

语句块Loop{While|Until}<条件>形式二：后测型：5.1.1前置型Do…Loop循环语句Do[while循环条件]循环体Loop【分析】：该结构循环条件位于循环的开始部分。循环开始时就进行循环条件判断，所以循环体有可能一次都不执行循环。while循环结构中，如果满足循环条件就执行循环，否则就跳出循环。流程图

While前置型结构：5.1.1前置型Do…Loop循环语句Do[while循环条件]循环体Loop【分析】：该结构循环条件位于循环的开始部分。循环开始时就进行循环条件判断，所以循环体有可能一次都不执行循环。while循环结构中，如果满足循环条件就执行循环，否则就跳出循环。流程图

例1：求1+2+···+50的值。5.1.1前置型Do…Loop循环语句PrivateSubForm_click()Dimi%,Sum%Dowhilei<50i=i+1Sum=Sum+ILoopPrintSumEndSub例1：求1+2+···+50的值。思考：1、变量i初值为多少？2、条件可否改成i<=50?3、可否交换语句4、5?5.1.1前置型Do…Loop循环语句例2：求两个整数的最大公约数5.1.1前置型Do…Loop循环语句例2：求两个整数的最大公约数、最小公倍数【分析】：求最大公约数的算法思想：

(1)对于已知两数m，n，使得m>n；

(2)m除以n得余数r；

(3)若r=0，则n为最大公约数结束；否则执行(4)；

(4)m＝n，n＝r，再重复执行(2)。5.1.1前置型Do…Loop循环语句5.1.1前置型Do…Loop循环语句语句ExitDo的作用：退出它所在的循环结构只能用在DO/Loop结构中，用来实现当满足某一条件时提前退出循环。Exit

Do语句将控制权转移到Loop后面的语句。5.1.1Do…Until…Loop循环语句Do[Until循环条件]循环体Loop【分析】：该结构循环条件位于循环的开始部分。循环开始时就进行循环条件判断，所以循环体有可能一次都不执行循环。Until循环结构中，如果不满足循环条件就执行循环，如果满足循环条件就跳出循环。流程图Until前置型结构：

例３：输入一个正数，利用“当型”循环判断其是否为素数。5.1.1Do…Until…Loop循环语句【分析】：依次用２～作除数去除ｎ，若ｎ不能被其中任何一个数整除，则ｎ为素数。5.1.1Do…Until…Loop循环语句5.1.２

后测型Do…Loop循环语句Until后置型结构Do循环体Loop[Untill循环条件]该结构循环条件位于循环的结尾部分。循环结束时就进行循环条件判断，所以循环体最少会执行一次。其他循环变量的设置、循环条件的设置与前置型相同。条件为假时继续执行循环体，知道条件为真时，结束循环。5.1.２

后测型Do…Loop循环语句Ｗhile后置型结构Do循环体Loop[While循环条件]该结构循环条件位于循环的结尾部分。循环结束时就进行循环条件判断，所以循环体最少会执行一次。其他循环变量的设置、循环条件的设置与前置型相同。条件为真时继续执行循环体，条件为假时，结束循环。练习在窗体上画两个名称分别为Text1和Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件代码：PrivateSubCommand1_Click()DimxasInteger,nasIntegerx=1:n=0DoWhilex<20x=x*3n=n+1LoopText1.text=Str(x)Text2.text=Str(n)EndSub练习以下循环的执行次数为：K=0Dowhilek<=10k=k+1Loop5.2For循环For循环格式:For循环变量＝初值To终值[Step步长]<语句块>[ExitFor]循环体<语句块>Next[循环变量]一般用于循环次数已知的情况。5.2For循环

循环变量赋初值

TRUE

是否在循环范围

FALSE循环体

循环变量加步长

流程图:

5.2For循环把“初值”赋给“循环变量”检查“循环变量”是否超过终值，若没有则执行循环体，若超出则结束循环，执行Next后面的语句循环变量加步长，转②，继续循环。直到循环变量达到终值时退出该循环。For循环执行过程：

For-Next循环的循环次数由初值、终值和步长三个因素决定，计算公式为：循环次数＝Int（终值－初值）/步长＋1。

5.2For循环循环变量也称“循环计算器”或“循环控制变量”，用来记录循环的次数。初值与终值均为数值或数值型表达式，表示循环的开始位置和终止位置，初值与终值的大小不固定。步长是一个数值表达式，为循环变量的增量；如果省略，默认为1。当初值小于终值时步长为正数，当初值大于终值时步长为负数。ExitFor可用于提前退出for循环。Next后面的“循环变量”与For后面的“循环变量”必须相同。案例5-4【案例5-4】：单击窗体时，在窗体上打印输出5个“@_@”符号。案例5-4【程序代码】PrivateSubForm_Click()

Fori=1To5Print"@_@"‘循环体Nexti‘下一次循环，直到结束EndSub

[思考]：如果循环起始值为0可以吗？循环的起始值和终止值有什么要求？练习练习：单击窗体时，在窗体上打印1～10。如图所示：

PrivateSubForm_Click()Fori=1To10PrintiNextiEndSub案例5

-

5【案例5-5】：点击窗体，在窗体上打印输出1～20内的所有奇数的和。PrivateSubForm_Click()

DimsAsInteger

Fori=1To20Step2

s=s+i

Nexti

Print"计算结果为："&sEndSub[思考]：1、本实例中S变量的初始值是多少？2、打印结果的语句可不可以放在循环内部？练习2课堂练习：点击窗体，在窗体上打印输出1～20内的所有能被3整除的数的乘积。

PrivateSubForm_Click()

DimsAsLongs=1Fori=3To20Step3s=s*iNextiPrint"计算结果为："&sEndSub5.3循环嵌套语句格式为：Fori

…

Forj…

循环体

NextjNexti说明：1、上述循环结构是一个双重循环结构，其中i为外循环控制变量，j为内循环控制变量。可以把内循环看成外循环的循环体，所以内外循环结构要相互匹配，循环控制变量不能出现交叉。2、两个For语句中循环计数器变量（i和j）是不同的两个变量，不可用同一个变量名；3、双重循环的次数是：内循环次数与外循环次数的乘积。案例5-6案例5-6：在屏幕上输出如下内容：◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆【案例分析】：上面的这个图案，每一行有5个◆，一共有5行，使用For语句将输出其中一行的这个动作重复5次即可。案例5-6PrivateSubForm_Click()Dimi,jAsInteger'定义循环变量Fori=1To5'外循环循环一次打印一行图案

Forj=1To5'内循环打印一个图案

Print"◆";NextjPrintNextiEndSub案例5-7在屏幕上输出如下内容：◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆【思考】：如何确定每一行输出的个数。行数图案个数行数图案个数1123334455案例5-7[程序代码]：PrivateSubForm_Click()Dimi,jAsIntegerFori=1To5

Forj=1ToiPrint"◆";NextjPrintNextiEndSub【小结】：解决此类问题的关键是确定循环次数，注意分析内循环次数和外循环次数之间的关系。案例5-8一个数如果出现在它的平方的右边，则称该数为同构数，如1在1^2的右边，25在25^2=625的右边，所以1，25都是同构数。编程找出1~999之间的所有同构数。（界面自行设计）【分析】：若x为1位数，则x是同构数的条件是x与x^2MOD10的值相同；若x为2位数，则x是同构数的条件是x与x^2MOD100的值相同。案例5-8课堂练习在屏幕上输出下面图案：◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆程序代码如下：PrivateSubForm_Click()

Dimi,jAsInteger

Fori=1To5

Forj=1To6-i

Print"◆";

Nextj

Print

NextiEndSub课堂练习PrivateSubCommand1_Click()s=2fori=2.6To5.9step0.4 s=s+1 i=i+1nextiendsub执行下面的程序后，s、i的值分别为多少？5，6.8练习在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件代码：

PrivateSubCommand1_click()DimiasInteger,nasIntegerFori=0to50i=i+3:n=n+1ifi