vb循环结构
- 格式：ppt
- 大小：3.32 MB
- 文档页数：39
下载文档原格式
合集下载
VB教程---循环结构
Next i
学
For i =1 To 10 课 For j=1 To 20 件 … Next i
Next j
6.5 跳转语句
GoTo语句可以改变程序执行的顺序，跳过程序的某一
教 学 课
件
前后两项之差都 Sum=0
为1，是一个等 差数列
Sum=sum+1i=i+1
Sum=sum+3
… Sum=sum+n
i是从1到n递增 1的数列
一、循环程序设计结构
VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结
先执行循环体，后判断条件值，为假继续，直到为真退出
⑴. Do While … Loop语句
语法格式： Do While 〈条件表达式〉
〈循环体〉 [Exit Do] 〈循环体〉 Loop
(2) Do Until …Loop语句
语法格式：
Do Until〈条件表达式〉
〈循环体〉
教
[Exit Do]
学
说明
① 格式中的参数说明：
循环的初值、终值和步长都是数值表达式，其值不一定是
教 学
整数，可以是实数。
课
增量参数可正可负。如果增量为正，则初值必须小于等于
件
终值，否则不能执行循环体内的语句；如果增量为负，则
初值必须大于等于终值。如果没有设置step，则增量默认
为1。
当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。
学
钱一。百钱买百鸡，问鸡翁、母、雏各几
课
何？
件
• 找出1~999之间所有的同构数
– 同构数：该数出现在它的平方数的右边，如： 5—25，25—625
学
For i =1 To 10 课 For j=1 To 20 件 … Next i
Next j
6.5 跳转语句
GoTo语句可以改变程序执行的顺序，跳过程序的某一
教 学 课
件
前后两项之差都 Sum=0
为1，是一个等 差数列
Sum=sum+1i=i+1
Sum=sum+3
… Sum=sum+n
i是从1到n递增 1的数列
一、循环程序设计结构
VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结
先执行循环体，后判断条件值，为假继续，直到为真退出
⑴. Do While … Loop语句
语法格式： Do While 〈条件表达式〉
〈循环体〉 [Exit Do] 〈循环体〉 Loop
(2) Do Until …Loop语句
语法格式：
Do Until〈条件表达式〉
〈循环体〉
教
[Exit Do]
学
说明
① 格式中的参数说明：
循环的初值、终值和步长都是数值表达式，其值不一定是
教 学
整数，可以是实数。
课
增量参数可正可负。如果增量为正，则初值必须小于等于
件
终值，否则不能执行循环体内的语句；如果增量为负，则
初值必须大于等于终值。如果没有设置step，则增量默认
为1。
当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。
学
钱一。百钱买百鸡，问鸡翁、母、雏各几
课
何？
件
• 找出1~999之间所有的同构数
– 同构数：该数出现在它的平方数的右边，如： 5—25，25—625
VB循环结构
Visual Basic 程序设计
主讲：马秀峰
复习
第6章 基本控制结构
6.1 顺序结构 6.2 选择结构 6.3 循环结构
2
复习 一、单行结构条件语句 格 式：If 条件 Then 语句1 [Else 语句2]
If 条件 Then 语句1 Else 语句2 If 条件 Then 语句1
流程图
End Sub
16
12
•流程图
输入n
i←2,s←0
当i<= n and s=0
如果 n被i整除
真
假
s←1
i←i+1
如果s=0
真
假
输出:n是素数
输出:n不是素数
13
(1)程序核心代码
s=0：i=2 Do While i<=sqr(n) And s =0 If n Mod i=0 Then
s =1 Else
i=i+1 End If Loop If s=0 Then Print “x是一个素数" Else Print “x不是一个素数"
3
复习 二、块结构件句
If 条件1 Then 语句块1
[ElseIf 条件2 Then 语句块2]
[ElseIf 条件3 Then 语句块3] ……
[ElseIf 条件n] Then 语句块n]
[Else 语句块 n+1]
End If
1 2
n-1
n
4
NEW
6.3 循环结构
VB所提供的循环结构主要有： (1) For…Next 循环 (2) Do…Loop 循环 (3) While…Wend 循环
5
一、For...Next循环
主讲：马秀峰
复习
第6章 基本控制结构
6.1 顺序结构 6.2 选择结构 6.3 循环结构
2
复习 一、单行结构条件语句 格 式：If 条件 Then 语句1 [Else 语句2]
If 条件 Then 语句1 Else 语句2 If 条件 Then 语句1
流程图
End Sub
16
12
•流程图
输入n
i←2,s←0
当i<= n and s=0
如果 n被i整除
真
假
s←1
i←i+1
如果s=0
真
假
输出:n是素数
输出:n不是素数
13
(1)程序核心代码
s=0：i=2 Do While i<=sqr(n) And s =0 If n Mod i=0 Then
s =1 Else
i=i+1 End If Loop If s=0 Then Print “x是一个素数" Else Print “x不是一个素数"
3
复习 二、块结构件句
If 条件1 Then 语句块1
[ElseIf 条件2 Then 语句块2]
[ElseIf 条件3 Then 语句块3] ……
[ElseIf 条件n] Then 语句块n]
[Else 语句块 n+1]
End If
1 2
n-1
n
4
NEW
6.3 循环结构
VB所提供的循环结构主要有： (1) For…Next 循环 (2) Do…Loop 循环 (3) While…Wend 循环
5
一、For...Next循环
VB程序循环结构、列表框和组合框
34
S=1*(1+2)*(1+2+3)*…*(1+2+3+…+n)
编程求S不大于20000时最大的n值
35
Private Sub Form_Click() Dim sum As Long Dim s As Long Dim n As Integer sum = 0: s = 1: n = 0 Do n = n + 1 sum = sum + n s = s * sum Loop Until s > 20000 Label3.Caption = Val(n - 1) End Sub
执行循环体
Hale Waihona Puke N条件为真？Y
29
例【5-6】：编写程序在标签中显示1~100之 间既能被3整除又能被7整除的整数，并计算它 们的和。要求用Do…Loop While和Do…Loop Until两种语句分别编写循环体部分。
30
编程思路：程序的循环次数是确定的，即从1到100。
对于用Do…Loop While语句编写循环体部分，While
程序运行时，循环体语句n＝n+1被重复执行10次 后，因执行语句If n>＝10 Then Exit Do End If时，满足条件n>＝10，退出循环。
16
2、Do While…Loop语句
具体格式： Do While<条件表达式> <循环体> [Exit Do] Loop
17
首先判断条件表达式的 值是否为True。若为 True，则执行循环体中 的语句，当执行到Loop 语句时，返回到Do While语句，继续判断条 件表达式的值是否为 True ；若为False，则 退出循环，执行Loop后 面的语句。如此反复执 行，直到条件表达式的 值为False才退出循环。
S=1*(1+2)*(1+2+3)*…*(1+2+3+…+n)
编程求S不大于20000时最大的n值
35
Private Sub Form_Click() Dim sum As Long Dim s As Long Dim n As Integer sum = 0: s = 1: n = 0 Do n = n + 1 sum = sum + n s = s * sum Loop Until s > 20000 Label3.Caption = Val(n - 1) End Sub
执行循环体
Hale Waihona Puke N条件为真？Y
29
例【5-6】：编写程序在标签中显示1~100之 间既能被3整除又能被7整除的整数，并计算它 们的和。要求用Do…Loop While和Do…Loop Until两种语句分别编写循环体部分。
30
编程思路：程序的循环次数是确定的，即从1到100。
对于用Do…Loop While语句编写循环体部分，While
程序运行时，循环体语句n＝n+1被重复执行10次 后，因执行语句If n>＝10 Then Exit Do End If时，满足条件n>＝10，退出循环。
16
2、Do While…Loop语句
具体格式： Do While<条件表达式> <循环体> [Exit Do] Loop
17
首先判断条件表达式的 值是否为True。若为 True，则执行循环体中 的语句，当执行到Loop 语句时，返回到Do While语句，继续判断条 件表达式的值是否为 True ；若为False，则 退出循环，执行Loop后 面的语句。如此反复执 行，直到条件表达式的 值为False才退出循环。
《vb循环结构》课件
Do...Loop循环的执行流程如下：首先进入循环，然后进行条件判断，如果条件为真， 则执行循环体，接着再次进行条件判断，如果条件仍为真，则继续执行循环体，直到条
件为假，最后退出循环。
Do...Loop循环的示例
总结词
给出Do...Loop循环的一个具体示例 ，包括代码实现和运行结果。
详细描述
以下是一个使用Do...Loop循环计算1 到10的累加和的示例代码
01
```vb
02
Dim sum As Integer = 0
Dim i As Integer = 1
03
While循环的示例
While i <= 10 sum = sum + i
While循环的示例
• i=i+1
While循环的示例
Wend
VS
MsgBox "1到10之间所有整数的和 为：" & sum
Console.WriteLine("1到10的累加和为：" & sum)
Do...Loop循环的示例
01
```
02
在上述代码中，使用Do...Loop循 环从1到10进行累加，每次循环 将i的值加到sum变量中，并更新i 的值。当i大于10时，循环结束， 最终输出累加和的结果。
05
循环结构的嵌套
Do...Loop循环的语法结构包括Do关键字、 条件表达式和循环体三个部分。Do关键字 表示开始循环，条件表达式用于控制循环的 执行条件，循环体包含重复执行的代码块。
Do...Loop循环的执行流程
总结词
详细描述Do...Loop循环的执行流程，包括循环的启动、条件判断和循环体的执行等步 骤。
件为假，最后退出循环。
Do...Loop循环的示例
总结词
给出Do...Loop循环的一个具体示例 ，包括代码实现和运行结果。
详细描述
以下是一个使用Do...Loop循环计算1 到10的累加和的示例代码
01
```vb
02
Dim sum As Integer = 0
Dim i As Integer = 1
03
While循环的示例
While i <= 10 sum = sum + i
While循环的示例
• i=i+1
While循环的示例
Wend
VS
MsgBox "1到10之间所有整数的和 为：" & sum
Console.WriteLine("1到10的累加和为：" & sum)
Do...Loop循环的示例
01
```
02
在上述代码中，使用Do...Loop循 环从1到10进行累加，每次循环 将i的值加到sum变量中，并更新i 的值。当i大于10时，循环结束， 最终输出累加和的结果。
05
循环结构的嵌套
Do...Loop循环的语法结构包括Do关键字、 条件表达式和循环体三个部分。Do关键字 表示开始循环，条件表达式用于控制循环的 执行条件，循环体包含重复执行的代码块。
Do...Loop循环的执行流程
总结词
详细描述Do...Loop循环的执行流程，包括循环的启动、条件判断和循环体的执行等步 骤。
vb循环结构
★：常用算法：累加，连乘
算法：是对某个问题求解过程的描述
例：累加求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-30的乘积(即30的阶乘)
Private Sub Form_Click s=1
For i = 1 To 10 s = s * I ‘ 赋值语句实现 Print i; “的阶乘是：“; s
Next i End Sub
思考？假设把循环体前面置各变量初值的语句放 在循环体内，程序运行时会产生什么状况？
For i = 1 To 9 For j = 1 To 9 se = i & “ד & j & “=“ & i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print
Next i
打印上三角或下三角程序如何改动
以下30-90为语句标号，分别标记该语
(3)假设r=0，则n为最大公约数完毕； 否则执行(4)；
(4)m n，n r，再重复执行(2)
求 m=14 ,n=6 的最大公约数和最小公倍数。
z=m*n
If m < n Then t = m: m = n: n = t
r=m mod n Do While (r <> 0)
m=n n=r r= m mod n
n=n-m End If
VB循环结构
VB程序的基本结构流程图
从上至下逐条执行
2 分支结构流程图
根据不同情况， 选择执行不同分 支中的语句
3 循环结构流程图
能够控制计算机 自动重复执行某 些程序段
2.分支结构
Y 分支1
条件 语句
N 分支2
VB循环结构
For-Next语句的基本结构：
步长，可以是正数，也可以是负数。 步长为1时可以省略。
For 循环变量 = 初值 to 终值 [ step 步长] 循环体
Next 循环变量
循环变量=当前循环变量+步长
将下面程序补充完整
Private Sub Command1_Click()
Dim xyz As Integer
For xyz = 2 To 1 Step -1
Print i
Next (
Private Sub Command1_Click() Dim i As Integer For i = 25 To 1 Step -1 Print i Next i End Sub
计算循环次数
a=0 for i=1 to 6 step 2
a=a+1 mod 4 print a next i a的值（）
)
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single 'a是公里数 b是车费
a=4
If a <= 3 Then
b=7
(
)
b = 7 + (a - 3) * 1.5
End If
Print b
End Sub
VB循环结构，For-Next语句举例
从上至下逐条执行
2 分支结构流程图
根据不同情况， 选择执行不同分 支中的语句
3 循环结构流程图
能够控制计算机 自动重复执行某 些程序段
2.分支结构
Y 分支1
条件 语句
N 分支2
VB循环结构
For-Next语句的基本结构：
步长，可以是正数，也可以是负数。 步长为1时可以省略。
For 循环变量 = 初值 to 终值 [ step 步长] 循环体
Next 循环变量
循环变量=当前循环变量+步长
将下面程序补充完整
Private Sub Command1_Click()
Dim xyz As Integer
For xyz = 2 To 1 Step -1
Print i
Next (
Private Sub Command1_Click() Dim i As Integer For i = 25 To 1 Step -1 Print i Next i End Sub
计算循环次数
a=0 for i=1 to 6 step 2
a=a+1 mod 4 print a next i a的值（）
)
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single 'a是公里数 b是车费
a=4
If a <= 3 Then
b=7
(
)
b = 7 + (a - 3) * 1.5
End If
Print b
End Sub
VB循环结构，For-Next语句举例
[计算机软件及应用]vb循环结构
循环体：被重复执行的语句序 列
执行时，先测试条件，若满足， 则执行一遍语句序列，然后跳 回到条件处，再次测试条件； 若不满足，则跳出循环
VB提供的循环语句有 For...Next Do...Loop While...Wend For Each...Next
其中最常用的是For...Next和 Do...Loop语句
If x Mod 2 = 0 Then Print x
x=x+1
Loop
End Sub 代码的这种结构称为“循环结构”
Do While…Loop是典型的循环语句
h
开始
x=1
F x<=20
T
x Mod 2=0
F
T
语Pr句in序t 列x
x=x+1
结束
6
循环结构
F 条件
T 语句序列
循环：指在满足指定条件下重 复多次执行相同语句序列的程 序结构
h
10
例4.2
程序代码如下：
Private Sub Command1_Click()
Dim n As Integer,s As Integer
n=1
s=0
Do While n<=100 s=s+n
1）变量s称为累加器变量， 用来保存求和结果
n=n+1 Loop
2）赋值语句s＝0称累加 器清零
Print "s=";s End Sub
说明： 1）变量c的作用：实 现加减法的交替
2）n的取值规律
Loop pi = pi * 4
3）π的编辑：通过输 入法的特殊字符输入
Print "π="; pi
End Sub
执行时，先测试条件，若满足， 则执行一遍语句序列，然后跳 回到条件处，再次测试条件； 若不满足，则跳出循环
VB提供的循环语句有 For...Next Do...Loop While...Wend For Each...Next
其中最常用的是For...Next和 Do...Loop语句
If x Mod 2 = 0 Then Print x
x=x+1
Loop
End Sub 代码的这种结构称为“循环结构”
Do While…Loop是典型的循环语句
h
开始
x=1
F x<=20
T
x Mod 2=0
F
T
语Pr句in序t 列x
x=x+1
结束
6
循环结构
F 条件
T 语句序列
循环：指在满足指定条件下重 复多次执行相同语句序列的程 序结构
h
10
例4.2
程序代码如下：
Private Sub Command1_Click()
Dim n As Integer,s As Integer
n=1
s=0
Do While n<=100 s=s+n
1）变量s称为累加器变量， 用来保存求和结果
n=n+1 Loop
2）赋值语句s＝0称累加 器清零
Print "s=";s End Sub
说明： 1）变量c的作用：实 现加减法的交替
2）n的取值规律
Loop pi = pi * 4
3）π的编辑：通过输 入法的特殊字符输入
Print "π="; pi
End Sub
简说VB循环语句
循环结构是指在一定条件下多次重复执行一组语句。
VB中提供了两种循环语句，它们是For 语句和Do语句。
1. For循环语句如果己知某一段代码需要重复执行的次数，可以使用For循环语句。
该语句的一般形式如下：For<循环变量>=<初值>To<终值>[Step<步长>]<语句块>[Exit For]Next<循环变量>例如:For i=l To 8 Step1Print “这是文本”&iNext i该段代码的功能是在窗体上显示8行文本，如图3.16所示。
如果不采用循环结构，则需要使用8条Print语句来实现相同的功能。
For语句中的循环变量必须是数值型，初值、终值以及步长则是具体的数值For…next步长用来指定循环变量每次的增量，当所有循环体中的语句都执行后，循环变量就会自动增加一个步长。
默认的步长为1.For语句的执行流程如图3.17所示。
具体执行流程为：（1）将初值赋给循环变量。
（2）判断循环变量的取值是否在终值范围内否则结束循环，执行Next的下一条语句。
（3）将循环变量的取值自动增加一个步长，然后回转到步骤（2）继续执行。
若是则执行循环体内的语句，循环中可以在任何位置放置任意个Exit FOr语句，该语句的作用是退出循环，转到Next语句的下一条语句。
Exit For语句经常在条件判断之后使用，例如在If…Then语句之后。
例如，修改上例如下：For I=1 To 10For J=1 To 10For K= 1 To 10....Next KNext JNext I实例3.3打印九九乘法表本例讲解怎样打印九九乘法表，如图3.18所示。
九九乘法表的打印看起来很烦琐，但是如果使用嵌套循环，则问题变得非常简单。
打开【代码】窗口，编写窗体的Click事件过程如下：Private Sub form_Click()Print“----------------------------九九乘法表----------------------”PrintFor i=1 To 9For j=1 To is=i*jPrint j & “X”& i & “=” & sNext jPrintNext iEnd Sub在该段代码中，首先使用Print方法打印出标题和一个空行。
VB程序设计--循环结构ppt课件
第五章 根本的控制构造 (5学时〕
5.1 顺序构造 5.2 选择构造 5.3 循环构造 5.4 其它辅助控制语句 5.5 常见错误 〔顺序、条件、循环〕
判别条件进展循环
• While循环
例：设
•
While <条件s>=1×2×3×……×n，
• <循环体>
求s不大于4000时的最 大的n。
•
wend
Private Sub Command1_Click() Max = 100 For i = 1 To 10
x = Int(Rnd * 101 + 100) Print x; If x > Max Then Max = x Next i Print Print "最大值="; Max End Sub
‘ e存放累加和、n存放阶
乘
i=0 : t=1
‘ i计数器、t第i项的值
Do While t > 0.00001
e = e + t : i = i + 1 ‘ 累加、连乘
n=n*i: t=1/n
Loop
Print "计算了 "; i; " 项的和是 "; e
End Sub
2.求素数
判别某数m能否为素数最简单的方法是:
> 当条件为真时，继续执行循
环体，为假，退出循环体。 循环体至少执行一次
循环体
Exit Do
循环体 T 条件
F
Do循环控制构造
⑷ Do……loop until语句 do <循环体> [exit do] <循环体> loop until<条件表达
VB第7章 循环结构
Private Sub Form_Load() Dim a As Integer, i As Integer Show Print Tab(25); "ASC码对照表" ：Print "ASC码对照表 码对照表" For a = 32 To 126 Print Tab(8 * i + 2); Chr(a); "="; a; i=i+1 If i = 7 Then i = 0 Next a End Sub
7.3 循环结构的嵌套
7.3 循环结构的嵌套
x = 0: y = 0: z = 0 num = 3 For i = 1 To num For j = 1 To i For k = j To 6 z=z+1 '计算k循环的循环次数 计算k Next k y=y+1 '计算j循环的循环次数 计算j Next j x=x+1 '计算i循环的循环次数 计算i Next i Print x, y, z 3 6 32
Counter = Counter + 1可以缺少吗？ 可以缺少吗？ 可以缺少吗
7.1 Do 循环结构
种循环（通用型） 注：第5种循环（通用型） Do …… If < 条件 > Then Exit Do …… Loop 必须包含改变循环条件的语句
7.1 Do 循环结构
Do While Counter < n Counter = Counter + 1 s = s + Counter Loop Do Counter = Counter + 1 s = s + Counter If Counter >= n Then Exit Do Loop
7.3 循环结构的嵌套
7.3 循环结构的嵌套
x = 0: y = 0: z = 0 num = 3 For i = 1 To num For j = 1 To i For k = j To 6 z=z+1 '计算k循环的循环次数 计算k Next k y=y+1 '计算j循环的循环次数 计算j Next j x=x+1 '计算i循环的循环次数 计算i Next i Print x, y, z 3 6 32
Counter = Counter + 1可以缺少吗？ 可以缺少吗？ 可以缺少吗
7.1 Do 循环结构
种循环（通用型） 注：第5种循环（通用型） Do …… If < 条件 > Then Exit Do …… Loop 必须包含改变循环条件的语句
7.1 Do 循环结构
Do While Counter < n Counter = Counter + 1 s = s + Counter Loop Do Counter = Counter + 1 s = s + Counter If Counter >= n Then Exit Do Loop
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
结果：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#