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