VB资源包第5章 循环结构.pdfVIP

第5章循环结构

循环结构是指在一定的条件下反复执行一段代

码的结构。

循环结构由两部分组成：循环体（被反复执行

的那段代码）和循环控制部分（控制循环的执行）。

进入循环体的条件称为循环条件，循环体不可

以无休止的执行下去，必须具有循环结束的条件。

5.1For…Next循环结构

For循环称为“计数循环”，特点是可以执行事先规定重

复次数的循环控制。

格式：

Forv=aTob[Stepc]

[循环体]

[ExitFor]

Next[v]

说明：

⑴v：循环控制变量，a、b、c：循环初值、循环终值、循环增值（步

长）；c为正数称此循环为递增型循环，c为负数称此循环为递减型循环，

c不允许为0；若c=1，可省略Step1;

⑵v必须是单个的数值型变量;

⑶a、b都是数值表达式，若值不是整数，系统会自动取整;

⑷循环次数的计算公式是Int((b一a)／c+1)；

⑸Next后面的v与For语句中的v必须相同，且两者必须成对出现。

⑹循环变量v的改变是隐含在Next语句中的，每次执行完一次循环后，v

值得改变是自动完成得，若在循环体中出现改变循环变量v值的语句，

将会影响循环次数；

⑺关于ExitFor语句的说明：遇到该语句时，提前退出循环，执行Next

后的下一条语句,允许在循环体内出现一次或多次。⑻循环必须遵循“

先检查、后执行”的原则，即先检查循环变量是否超过终值，然后决定

是否执行循环；

【例5.1】在窗体上显示1+2+3+…+100。

编写窗体的单击事件，事件过程代码如下：

PrivateSubForm_Click()

DimkAsInteger

Print1+2+3+…+100=;

s=0

Fork=1To100

s=s+k

Nextk

Prints

EndSub

5.2Do…Loop循环结构

Do…Loop结构也是用来实现循环的，在每次循环执行之前

（之后），程序将检测循环条件是否成立，当循环条件成立时执行

循环体，当循环条件不成立时，结束循环，跳到Loop语句之后继续

执行。

5.2.1DoWhile…Loop形式

格式：

DoWhilele

[循环体]

[ExitDo]

Loop

说明：

⑴le:逻辑量（条件）；

⑵此种形式称之为“前置当型循环”，即若le为True，则执行循环体，

当执行到Loop语句时，返回到循环开始处再次判断le是否为True。若为

True，则继续执行循环体，否则跳出循环，执行Loop后的语句，循环体

执行得次数≥0；

⑶Do型循环的Loop语句没有包含改变循环条件的操作，因此在循环体内

应该具有改变循环条件的语句，否则可能会造成“死循环”的出现；

【例5.3】利用前置当型循环在窗体上

显示1×2×3×…×10。

PrivateSubForm_Click()

DimiAsInteger,tAsLong

t=1

i=1

DoWhilei=10

t=t*i

i=i+1

Loop

Print1×2×3×…×10=;t

EndSub

若将循环体内的“i=i+1”去掉，则会形成死循环。

5.2.2Do…LoopWhile形式

格式：

Do

[循环体]

[ExitDo]

LoopWhilele

说明：

⑴le:逻辑量（条件）；

⑵此种形式称之为“后置当型循环”，即若le

为True，则执行循环体，当执行到Loop语句时，

返回到循环开始处再次判断le是否为True。若

为True，则继续执行循环体，否则跳出循环，

执行Loop后的语句，循环体执行次数≥1；

【例5.4】利用后置当型循环输出1×2×3×…×n的结果。

编写窗体的单击事