结果：Pr输in出tI的: 值P分r别in为t : “2I=“,5I 8
循环执行11次数：
?
Int
(
13? 3
2
? 1)
?
4
循环结束输出为: I=14 (初值+循环次数 *步长)
思考1:计算下列循环语句的次数。
（1） for I=-3 to 20 step 4 (2) for I=-3.5 to 5.5 step 0.5 (3) for I=-3.5 to 5.5 step –0.5 (4) for I=-3 to 20 step 0
结果分别为: 6 19 0 无数次
思考2:如果事先不知道循环次数，如何用For…..Next？
For 循环变量=1 to 非常大的数 if 达到循环结束条件 then exit for …. Netxt 循环变量
例4.9 改变循环控制变量对循环的影响 Private Sub Command1_Click()
Loop
Print yearr; 年后我国的人口为： ; m
End Sub
例:迭代法求a的立方根。 X=a1/3 迭代公式： Xn+1= 1/3(2X n+a/Xn2）
a1/3的当近‖似X值n+1。- Xn‖<e （一个很小的数）则 Xn+1为
迭代思想： 是一个反复用新值取代旧值的过程。
Private sub command1_click()
程序设计语言的三种基本结构流程图：
语句块1
真 条件 假
语句块2
语句块 1
语句块2
顺序结构
条件 假 真
循环体
选择结构
循环体
条件 假 真
循环结构
循环结构
用于在一定的条件下多次重复执行一组语句 .
例如：在一行上输出60个“*”号。用Print方法 方法一：可以用60个“*”号组成一个字符串：
Print “***……**” 方法二 ：使用60个语句:
Next 循环变量
例:
For I=2 To 13 Step 3
Print I ,
Next I
Print : Print “I=“, I
【说明】 循环变量 :必须是数值型 语句块:可以是一条或多条语句 ,
Exit for : 当遇到该语句 ,退出循环 ,执行该循 环的下一条语句。
>0 初值<终值
步长 （也可 <0
2）While用于指明条件为真 时执行循环体； Until 刚好相反。
3）当省略了 {While|Until}< 条件>子句，表示 无条件循环，循环体中应有 Exit Do 语句， 否则为死循环。
4）遇到Exit Do 语句时退出循环，. Loop流程图
Private Sub Form_Click() For i = 3 To 100 step 3
sum=0 sum = sum+ I Next I Print sum End Sub
结论； 在一重循环中，存放累加，连乘结果的变 量初值设置应该放在 循环体外。
二： Do…Loop循环语句：条件型
(用于控制循环次数未知 )
例：连乘 求自然数 1-30的乘积(即30的阶乘)
Private Sub Form_Click()
s=1
For i = 1 To 10
s=s*I
‘赋值语句实现
Print i; 的阶乘是： ; s
Next i
End Sub
思考？ 若把循环体前面置各变量初值的语句放在 循环体内，程序运行时会产生什么情况？
j=0 For i = 1 To 20 Step 2
i=i+3 “有无此句结果有什么不同？
j=j+1 Print 第; j; 次循环i=; i Next i Print 退出循环后i=; i End Sub 正常情况：i=1,3,5,7,9,11,13,15,17,19 现在： i=4,9,14,19
为实数） =0
初值>终值 死循环
（=1 时,可省略）
循环次数 ＝int（（终值 -初值）/步长）+1
循环变量得到初值
循环变量在终值内
T 语句块 T
有Exit For F
循环变量加步长
For…Next流程图 F
For 循环流程图
例: For I=2 To 13
Step 3
Print I ,
Next I
F 条件 T 语句块
T 有Exit Do F
语句块
语句块 T
有Exit Do F 语句块
T 条件 F
Do While … Loop 流程图
Do … While Loop 流程图
例4.11:我国有13.2亿人口,按出生率为 0.5%的增长
率,多少年后超过 20亿？
Private Sub Form_Load()
★：常用算法：累加，连乘
算法： 是对某个问题求解过程的描述
例：累加 求1-100的偶数和。
Private Sub Form_Load() Dim i As Integer, s As Integer Show s=0 For i = 2 To 100 Step 2
s = s + I ‘赋值语句实现 Next i Print s=; s End Sub
形式1：先判断后循环
形式2：先做后判断
Do { While|Until }<条件>
语句块 [Exit Do] 语句块 Loop
Do 语句块 [Exit Do] 语句块
Loop { While|Until} <条件>
【说明】： 1 ）形式 1先判断后执行，有可能一次也不执行
形式2先执行后判断， 最少执行一次循环体
Print *; Print * ”;
…… Print *
流程图
分类： 1. 计数型循环 (已知循环次数） 2. 条件型循环 (未知循环次数）
学习要点： 1.进入循环的条件 2. 实现循环 的算法 3.退出循环的条件
一：For循环语句：计数型
( 一般用于循环次数已知 )
形式如下：
For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For ] 语句块
Dim m As Double Dim yearr As Integer
若将While 改为Until， 条件表达式
Show
怎么修改？
m = 1320000000#: yearr = 0
Do While m <= 2000000000#
m = m + m * 0.00D5o Until m > yearr = yearr + 1 200000000000#