VB程序设计课件第9讲-Do循环.pdfVIP

VB程序设计课件第9讲-Do

循环

小花：老师，我想交卷了

老师：才开考20分钟，还早呢！再检查

主要内容：

Do/Loop语句

2

Do/Loop（条件循环）

Do/Loop（条件循环）

对只知道循环终止条件，可采用Do/Loop循环

3

说明

1.当条件为True时执行循环，用DoWhile互为

当条件为True时退出循环，用DoUntil反条件

DoWhileSDoUntilNotS

DoUntilSDoWhileNotS

2.循环体中应有改变循环条件的语句，避免死循环

4

【例】：求n!

DimN%,Result#DimN%,Result#

Dimi%Dimi%

N=Val(InputBox(n=))N=Val(InputBox(n=))

Result=1Result=1:i=1

Fori=1ToN

DoWhilei=N

Result=Result*iResult=Result*i

Nextii=i+1

Loop

MsgBoxResult

MsgBoxResult

Do/Loop循环应该在循环开始前设置初值

5

DoWhile

Loop

例：计算1~100内的某数的倍数及个数

6

【例】求π的值。直到最后一项

n=1:Sum=0

Sum=Sum+(-1)^(n+1)/(2*n-1)

n=n+1

Loop

7

分数项求和

第一步：找出后一项与前一项的关系，写出关系式，

将求和过程表示成sum=sum+item的形式

第二步：确定初值

检查顺序：

1.求出待加的项

2.累加

3.将项数基数增加，定位于下一项