大学VB教学课件：第4.3章 循环结构程序设计
合集下载
VB教程---循环结构幻灯片PPT
(2) Do Until …Loop语句
语法格式：
Do Until〈条件表达式〉
〈循环体〉
教
[Exit Do]
学
〈循环体〉 Loop
课 件
Dim S%, i% S=0 i=1 Do while s<=400
S=S+i i=i+1 Loop Print " S=",S
Dim S%, i% S=0 For i=1 to 100
〔3〕Do … Loop While语句
语法格式： Do 〈循环体〉 [Exit Do] 〈循环体〉 Loop While〈条件表达式〉
⑷ . Do …Loop Until语句
语法格式：
Do
教
〈循环体〉
学
[Exit Do]
课
〈循环体〉
件
Loop Until〈条件表达式〉
注意： ① 至少要执行循环体一次。
教
② Do While/Until和Loop应成对出现。
学
课
③ 循环体中要有控制循环的语句，以防止出
件
现死循环。
④ 由于该循环的特点是先判断条件，然后再 决定是否要执行循环体里的语句。所以，这 种循环可以一次也不执行循环体。
⑤ Exit Do 表示当遇到该语句时，强制退出 循环，执行Loop后的下一条语句
② 与Do While循环的区别： Do While循环先测试条件是否成立，只有 成立才执行循环；而该循环先执行循环体， 后测试条件是否成立。
例：输入有效位数，按下述公式计算圆周率∏的有效值。
教 学 课 件
m=val(text1.text) pai=2:p=0 Do
t=s:p=spr(2+p):pai=t*2/p Loop Until abs(t-s)<0.1^m
大学vb 第3章 循环结构
演示
课堂练习
1.执行下面的程序段后，s的值为【 20 】。 s=5 For i=2 To 9 Step 3 s=s+i Next i 2.编写如下事件过程： For j=10 To 6 Step -1 k=j Next j Print k ; j 程序运行后，单击窗体，其输出结果为【 C 】 。 A)5 5 B)5 6 C)6 5 D)6 6
s=0 for i=1 to 100 step 1 s=s+i Next i
i=1 : s=0 Do s=s+i i=i+1 Loop While i<=100
Do Until <条件表达式> 循环体 Loop
先判断后执行 Yes 条件表达式 成立？ No 循环体
Do 循环体 Loop Until <条件表达式>
条件 T 循环体
F
Байду номын сангаас
演示
例：计算1+2+…+10，并输出。
Dim s%
s=1+2+3+4+5+6+7+8+9+10
Print "其和是" ;s
循环结构的设计： 1、循环三要素（循环变量）： （1）初值 （2）更新 （3）条件 2、循环体：重复的操作
i=1 : s=0 While i<=10 s=s+i i=i+1 wend
下次课内容：
第4章 常用控件的使用
作业：
实验作业：实验作业8
先执行后判断 循环体 Yes
条件表达式 成立？ No
特点：条件表达式不成立执行循环体
求∑n(n为1-100)，并将结果打印出来。 i=1 : s=0 Do While i<=100 s=s+i i=i+1 Loop i=1 : s=0 Do Until i>100 s=s+i i=i+1 Loop i=1 : s=0 Do s=s+i i=i+1 Loop While i<=100 i=1 : s=0 Do s=s+i i=i+1 Loop Until i>100
VB程序设计教程高等教育出版社第4章
多分支结构，用Select Case语句比If…Then…ElseIf 语句直观，程序可读性强。但不是所有的多分支结构 均可用Select Case语句代替If…Then…ElseIf语句。
VB程序设计教程(第3版)
26
Select Case语句例
例4.9判断坐标点(x，y)，落在哪个象限。
代码一
VB程序设计教程(第3版)
22
多分支结构例
例4.7 已知变量ch中存放了一个字符，判断该字符是 字母字符、数字字符还是其他字符。
If UCase(ch) >= "A" And UCase(ch) <= "Z" Then
MsgBox(ch + "是字母字符") '考虑大小写字母
ElseIf ch >= " 0" And ch <= "9" Then ' 数字字符
VB程序设计教程(第3版)
23
If语句的嵌套
指If或Else后面的语句块中又包含If语句。
If 表达式1 Then
If 表达式2 Then …
If x<y Then t=x: x=y: y=t
End If …
End If
If y<z Then t=y: y=z: z=t
例 已知x，y，z三个数，
If x<y Then
MsgBox(ch + "是数字字符")
Else
' 除上述字符以外的字符
MsgBox(ch + "是其他字符")
不E管nd有If几个分支，依次判断，当某条件满足，执行相应 的语句，其余分支不再执行；若条件都不满足，且有 Else子句，则执行该语句块，否则什么也不执行。
VB程序设计教程(第3版)
26
Select Case语句例
例4.9判断坐标点(x，y)，落在哪个象限。
代码一
VB程序设计教程(第3版)
22
多分支结构例
例4.7 已知变量ch中存放了一个字符，判断该字符是 字母字符、数字字符还是其他字符。
If UCase(ch) >= "A" And UCase(ch) <= "Z" Then
MsgBox(ch + "是字母字符") '考虑大小写字母
ElseIf ch >= " 0" And ch <= "9" Then ' 数字字符
VB程序设计教程(第3版)
23
If语句的嵌套
指If或Else后面的语句块中又包含If语句。
If 表达式1 Then
If 表达式2 Then …
If x<y Then t=x: x=y: y=t
End If …
End If
If y<z Then t=y: y=z: z=t
例 已知x，y，z三个数，
If x<y Then
MsgBox(ch + "是数字字符")
Else
' 除上述字符以外的字符
MsgBox(ch + "是其他字符")
不E管nd有If几个分支，依次判断，当某条件满足，执行相应 的语句，其余分支不再执行；若条件都不满足，且有 Else子句，则执行该语句块，否则什么也不执行。
VB课件第4章循环结构
End Sub
整理课件
13
思考：
Private Sub Form_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum = sum + x
Next i
End Sub
整理课件
14
示例3：100 元买100 只鸡，母鸡3元1只，小鸡1元 3只，问各应买多少只?
Show
t=1 For c = 1 To 8
t=t*c
如果要求 N!呢???
Next c
Print "T="; t
End Sub
程序运行结果是： T＝40320
语句t=t*c也称累乘器。先将t置1(不能置0)。
在循环程序中，常用累加器整和理累课件乘器来完成各种计算任务1。0
思考：
x=5 For i=1 To 20 Step 5
x = x + i\5 Next i
整理课件
11
思考：
s=5 For i=2.6 To 4.9 Step 0.6
s=s+1 Next i
整理课件
12
思考：
Private Sub Form_Click() x=5 : k=5 For k=1 To 10 Step -2 x=x+k Next k Print k; x
i = 1 ’进入循环之前赋初值
Do While i <= 100
整理课件
3
4.3.1 For...Next循环
按指定次数执行循环体
循环变量获得初值
循环变量超过终值？ F T
整理课件
13
思考：
Private Sub Form_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum = sum + x
Next i
End Sub
整理课件
14
示例3：100 元买100 只鸡，母鸡3元1只，小鸡1元 3只，问各应买多少只?
Show
t=1 For c = 1 To 8
t=t*c
如果要求 N!呢???
Next c
Print "T="; t
End Sub
程序运行结果是： T＝40320
语句t=t*c也称累乘器。先将t置1(不能置0)。
在循环程序中，常用累加器整和理累课件乘器来完成各种计算任务1。0
思考：
x=5 For i=1 To 20 Step 5
x = x + i\5 Next i
整理课件
11
思考：
s=5 For i=2.6 To 4.9 Step 0.6
s=s+1 Next i
整理课件
12
思考：
Private Sub Form_Click() x=5 : k=5 For k=1 To 10 Step -2 x=x+k Next k Print k; x
i = 1 ’进入循环之前赋初值
Do While i <= 100
整理课件
3
4.3.1 For...Next循环
按指定次数执行循环体
循环变量获得初值
循环变量超过终值？ F T
VB程序基本控制结构
4.1.1 赋值语句
本章目录
形式： 变量名＝表达式 作用:计算右边表达式的值，然后赋给左边的变量。 一般用于给变量赋值或对控件设定属性值。
表达式可以是任何类型，一般应与变量名的类型一致。当 表达式的类型与变量的类型不一致时，强制转换成左边的 类型。 例：
sRate!=0.1
Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
End If
语句块 1
表达式 2 T
语句块 2
F
表达式 n
T 语句块 n
F 语 句 块 n+1
该语句的作用是根据不同的表达式值确定执行哪个语句块
17
上一页
下一页
4.3 循环结构
本章目录
我们已经学习了顺序结构和分支结构，这种结构的特点
是任何一条语句至多只执行一次，但是在处理实际问题的 过程中，用这种结构来编写程序就长得不能忍受。
初始值 循环体
Do 循环体语句 Loop until条 件
条件
4.3 循环结构
初始值 条件 循环体
初始值 循环体
条件
4.3.1 For循环语句
本章目录
For循环语句用于控制循环次数预知的循环结构。 For 循环变量 ＝初值 To 终值 [Step 步长]
语句块
[Exit For] 语句块
Next 循环变量 循环变量必须为数值型。
本章目录
24
上一页
下一页
Do…Loop流程
表达式列表 1
F
T 语句块
T 有 Exit Do
F 语句块
Do While…Loop
25
本章目录
语句块
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程序设计》之循环结构讲解
嵌套循环常用于处理二维数组、矩阵等数据 结构，以及需要多次重复执行某段代码的情
况。
嵌套循环的实例
打印九九乘法表
使用嵌套循环可以打印 出九九乘法表，外层循 环控制行，内层循环控 制列，通过两层循环嵌 套实现。
打印菱形图案
使用嵌套循环可以打印 出菱形图案，通过调整 循环条件和计数器变量， 控制行数和列数的输出。
Do...Loop循环的实例
01 02 03
```vb Dim input As String input = Console.ReadLine()
Do...Loop循环的实例
01
Do While Not IsNumeric(input)
02
Console.WriteLine("请输入一个数字：")
For循环的实例
总结词
给出For循环的一个具体应用实例，展 示如何使用For循环实现特定的功能。
详细描述
以下是一个使用For循环计算1到10的 累加和的VB程序实例。
For循环的实例
Dim i As Integer = 1
Dim sum As Integer = 0
```vbnet
01
03 02
的执行效率。
Continue语句
总结词
用于跳过本次循环迭代
详细描述
当满足某个条件时，Continue语句可以用 来跳过本次循环迭代的剩余语句，直接进入 下一次迭代。在VB中，常见的Continue语 句有Continue Do、Continue For等。使 用Continue语句可以在循环体内部实现某 些特殊逻辑，例如忽略某些不符合条件的迭 代。
实现算法
许多算法的实现需要使用到循环结构，例如排序、 查找等算法。通过使用循环结构，可以方便地实 现这些算法。
VB 循环结构程序设计
a = Array(8, 2, 3, 7, 5) ' a数组有5个元素，上界为4 b = Array("abc", "def", "67") 素，上界为2 ' b数组有3个元
2015/9/27
19
2015/9/27
20
2015/9/27
21
计算机为什么能够大大提高人们的工作效率？ 一个很重要的原因就是它能够不知疲倦地进行 循环运算，而且结果精确。
方法二：从三个未知数的关系，利用两重循环来实现。
2015/9/27
37
2015/9/27
38
2015/9/27
39
•
运行时单机命令按钮后，输入n(n<10),然后在窗 体上输出n层金字塔
For i = 1 To n Print Tab(n - i + 1); '设置该行输出的起始位置 分号表示紧凑格式 For j = 1 To 2 * i - 1 Print Trim(i); '函数trim除去i两端的空格 Next j Next i
2015/9/27
25
2015/9/27
26
2015/9/27
27
2015/9/27
28
2015/9/27
29
Do…Loop循环语句(用于控制循环次数未知) 形式2： 形式1： Do Do { While|Until }<条件> 语句块 语句块 [Exit Do [Exit Do 语句块] 语句块] Loop { While|Until} <条件> Loop
2015/9/27
15
建立动态数组要分两步： (1)用Dim 语句声明数组，但不指定数组的大小； Dim 数组名( ) As 数据类型
2015/9/27
19
2015/9/27
20
2015/9/27
21
计算机为什么能够大大提高人们的工作效率？ 一个很重要的原因就是它能够不知疲倦地进行 循环运算，而且结果精确。
方法二：从三个未知数的关系，利用两重循环来实现。
2015/9/27
37
2015/9/27
38
2015/9/27
39
•
运行时单机命令按钮后，输入n(n<10),然后在窗 体上输出n层金字塔
For i = 1 To n Print Tab(n - i + 1); '设置该行输出的起始位置 分号表示紧凑格式 For j = 1 To 2 * i - 1 Print Trim(i); '函数trim除去i两端的空格 Next j Next i
2015/9/27
25
2015/9/27
26
2015/9/27
27
2015/9/27
28
2015/9/27
29
Do…Loop循环语句(用于控制循环次数未知) 形式2： 形式1： Do Do { While|Until }<条件> 语句块 语句块 [Exit Do [Exit Do 语句块] 语句块] Loop { While|Until} <条件> Loop
2015/9/27
15
建立动态数组要分两步： (1)用Dim 语句声明数组，但不指定数组的大小； Dim 数组名( ) As 数据类型
VB循环结构程序设计
VB循环结构程序设计VB循环结构程序设计==========================================本文档旨在介绍VB语言中的循环结构程序设计，并提供相应的示例代码和详细解释。
通过学习本文档，您将能够掌握VB中循环结构的基本概念、使用方法以及常见的应用场景。
章节列表------------------------------------------1. 循环结构简介2. For循环1. 基本语法2. 示例代码3. 常见应用场景3. While循环1. 基本语法2. 示例代码3. 常见应用场景4. Do...While循环1. 基本语法2. 示例代码3. 常见应用场景5. 循环控制语句1. Continue语句2. Exit语句3. 示例代码4. 常见应用场景6. 常见错误和问题解决方法7. 总结1. 循环结构简介------------------------------------------循环结构是一种重复执行特定任务的结构，通过循环结构可以避免重复编写相似的代码，提高代码的可读性和维护性。
在VB中，常见的循环结构包括For循环、While循环和Do...While循环。
2. For循环------------------------------------------1. 基本语法：```vbFor 变量 = 初始值 To 终止值 [Step 步长]' 循环体Next [变量]```2. 示例代码：```vbFor i = 1 To 10Console.WriteLine(i)Next i```3. 常见应用场景：- 遍历数组或集合中的元素- 执行指定次数的循环任务- 特定范围的数字序列3. While循环------------------------------------------1. 基本语法：```vbWhile 条件表达式' 循环体[Exit While]' 循环控制语句End While```2. 示例代码：```vbDim i As Integer = 1While i <= 10Console.WriteLine(i)i += 1End While3. 常见应用场景：- 根据条件循环执行任务- 无限循环直到某个条件满足时退出循环4. Do...While循环------------------------------------------1. 基本语法：```vbDo' 循环体[Exit Do]' 循环控制语句Loop While 条件表达式```2. 示例代码：```vbDim i As Integer = 1Console.WriteLine(i)i += 1Loop While i <= 10```3. 常见应用场景：- 根据条件循环执行任务- 至少执行一次循环，然后根据条件决定是否继续循环5. 循环控制语句------------------------------------------VB提供了一些循环控制语句，用于控制循环的执行流程。
vb控制结构循环结构程序设计课件
π/4=1- 1/3 + 1/5 -1/7 +…+(-1)n+11/2n-1+…
6.3 Do...Loop循环结构
Private Sub cmdPi_Click() Dim a As Single Dim m As Single Dim s As Integer Dim i As Integer s=1 i=1 Do m=1/i a=a+s*m i=i+2 s = -s Loop Until m < 0.0001 Text1.Text = a * 4
Print i j=j-1 k=k+1 Next Print j, k End Sub
练习：分析下面程序段结束时窗体上显示的值是多少？
(1) For i = 1 To 10
i2 = i2+1 Next Print i (11)
(2) i2=0 For i = 1 To -2 Step -1
i2 = i2+1 Next Print i , i2 （-3 4）
i=i+1 i2 = i2 + 1 i3 = i3 + 1 Next Print i, i2 (11 6)
(6)
i2 = 0
For i = 1 To 10
i2 = i2 + 1
If i > 6 Then Exit For
Next Print i, i2
(7 7)
(7)
i2 = 0
i = 10
Do
i2 = i2 + 1
Dim i As Integer, n As Integer, a As Integer '定义所需变量
n = Text1.Text
6.3 Do...Loop循环结构
Private Sub cmdPi_Click() Dim a As Single Dim m As Single Dim s As Integer Dim i As Integer s=1 i=1 Do m=1/i a=a+s*m i=i+2 s = -s Loop Until m < 0.0001 Text1.Text = a * 4
Print i j=j-1 k=k+1 Next Print j, k End Sub
练习：分析下面程序段结束时窗体上显示的值是多少？
(1) For i = 1 To 10
i2 = i2+1 Next Print i (11)
(2) i2=0 For i = 1 To -2 Step -1
i2 = i2+1 Next Print i , i2 （-3 4）
i=i+1 i2 = i2 + 1 i3 = i3 + 1 Next Print i, i2 (11 6)
(6)
i2 = 0
For i = 1 To 10
i2 = i2 + 1
If i > 6 Then Exit For
Next Print i, i2
(7 7)
(7)
i2 = 0
i = 10
Do
i2 = i2 + 1
Dim i As Integer, n As Integer, a As Integer '定义所需变量
n = Text1.Text
vb循环结构ppt课件
例：连乘求自然数1-30的乘积(即30的阶乘)
Private Sub Form_Click() s=1
For i = 1 To 10 s = s * I ‘ 赋值语句实现 Print i; "的阶乘是："; s
Next i End Sub
11
思考？若把循环体前面置各变量初值的语句放在 循环体内，程序运行时会产生什么情况？
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
9
★：常用算法：累加，连乘
算法：是对某个问题求解过程的描述
5
循环变量得到初值
循环变量在终值内
T 语句块
T 有Exit For
F
循环变量加步长
For…Next流程图 F
For 循环流程图
6
例: For I=2 To 13 Step 3
Print I ,
Next I
Print : Print “I=“, I
结果： 输出I的值分别为:
2 5 8 11
循环执行次数：
Next ii
For ii =1 To 10 For jj=1 To 20 … Next ii
Next jj
For ii =1 To 10 …
Next ii For ii =1 To 10
… Next ii
For ii =1 To 10 For ii=1 To 20 … Next ii
vb循环结构程序设计实例PPT教案学习
第16页/共47页
例如，下面的循环退出位置如箭头所示： f=1 For i = 1 To 10 For j = 1 To 10 f=f*i*j If f > 1000 Then Exit For Next j Print i; j; f Next I
使用多重循环处理程序时，需要考虑清楚内外层循环分 别用来控制哪一个量的变化，其变化规律如何。
循环体中必须包含使循环 趋于结束的语句
可以使用 Exit Do 语句随 时跳出当前所在的循环， 提前结束循第6环页/共语47页 句
Exit Do 可出现在循环体语
Do - Loo p Whil e语句
语法格式
Do 循环体语句
Loop While 循环条件
执行流程
循环体语句
条件判断 No
Yes
直 ns=conr+e1中
判 断 输入 的 数据 是 否是 -1 ， 如 到 txtScore.Text = txtScore.Text & score & Chr(13) &
输 Cshurm(10=) sum+ score
换行符
果不是-1 入
-
score = Val(InputBox(“请输入...”, “成绩输入", -1))
11111
第23页/共47页
代码
Private Sub Form_Activate()
Dim i As Integer, j As Integer For i = 1 To 5
For j = 1 To i Print 1;
Next j For j = 2 To 6 - i
Print j; Next j Print Next i
例如，下面的循环退出位置如箭头所示： f=1 For i = 1 To 10 For j = 1 To 10 f=f*i*j If f > 1000 Then Exit For Next j Print i; j; f Next I
使用多重循环处理程序时，需要考虑清楚内外层循环分 别用来控制哪一个量的变化，其变化规律如何。
循环体中必须包含使循环 趋于结束的语句
可以使用 Exit Do 语句随 时跳出当前所在的循环， 提前结束循第6环页/共语47页 句
Exit Do 可出现在循环体语
Do - Loo p Whil e语句
语法格式
Do 循环体语句
Loop While 循环条件
执行流程
循环体语句
条件判断 No
Yes
直 ns=conr+e1中
判 断 输入 的 数据 是 否是 -1 ， 如 到 txtScore.Text = txtScore.Text & score & Chr(13) &
输 Cshurm(10=) sum+ score
换行符
果不是-1 入
-
score = Val(InputBox(“请输入...”, “成绩输入", -1))
11111
第23页/共47页
代码
Private Sub Form_Activate()
Dim i As Integer, j As Integer For i = 1 To 5
For j = 1 To i Print 1;
Next j For j = 2 To 6 - i
Print j; Next j Print Next i
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Command1_Click() Dim s AS Integer，n AS Integer s = 0 ：n = 0 Do Until S > 3000 n=n+1 s=s+n Loop Text1.Text=n End Sub
例4-11 求两个正整数的最小公倍数。
开始 输入两个自然数m,n
True
方法四: 例Private :求1+2+3+ …+100 Sub Command1-Click （） Dim s AS Single，i AS Single s = 0 ：i = 1 Do s=s+i i=i+1 Loop Until i >100 Text1.Text=s End Sub
3、 For-Next 循环结构语句
格式: For 循环控制变量 = 初值 To 终值 [Step 步长] 循环体 Next 循环控制变量 循环控制变量也称为“循环变量”、“控制变量”或“循环计数器”，
它必须为数值型变量，但不能是下标变量或记录元素
初值、终值和步长也必须是数值表达式。其中步长是指每次循环变量的
开始 输入两个自然数m,n r=m Mod n m=n
n=r
True r<>0 False
输出最小公倍数a*b/m 结束
2、 While型循环控制语句
格式: While 循环条件 循环体 Wend
这种结构使用完全类似于Do-Loop的当型循环(格式1)，表示
当循环条件为True时，反复执行循环体，直到循环条件为 False为止 一般，现在常用Do-Loop结构化与适应性更强的当型循环格 式替换这种格式
While型循环结构
For-Next 循环结构
1.
Do…Loop循环语句
当 型 (DO WHILE……LOOP)
前测试型 Do循环 后测试型 直到型 (DO UNTIL……LOOP) 当 型 (DO……LOOP WHILE)
直到型 (DO……LOOP UNTIL)
当型循环(While)
格式1 Do While 循环条件 循环体 Loop
s+is i+1i
输出s 结束
在解决实际问题中，经常要对某一处理过程反 复执行多次，这就是循环。
由两部分组成： • 循环体：即要重复执行的语句序列； • 循环控制部分：即用于规定循环的重复条件或重复次数，同
时确定循环范围的语句。
循环结构
Do-Loop循环结构
当型循环(While) 直到型循环(Until)
[例4-15 ] 用下列近似式计算Sin（x）的近似值：
x3 x5 x 7 ( 1) n x 2n1 ... Sin（x）≈ x 3! 5! 7! (2n 1)!
Private Sub Command1_Click() Dim x As Single, y As Single, n As Integer, f As long x = Val(Text1.Text) n = Val(Text2.Text) y=x:s=1 For i = 1 To n f = 1: p = 1 For j = 1 To 2 * i + 1 f=f*j p=p*x Next j s = -s y=y+s*p/f Next i Text3.Text = y End Sub
4.3 循环结构程序设计
学习重点和难点
循环的概念 循环的基本语句结构和流程 循环在常用算法中的应用
例:
开始
0s
1i
i≤100
Private Sub Command1-Click（） Dim s AS long，I AS integer s = 0 ：i = 1 Do While i <= 100 s=s+i i=i+1 Loop Text1.Text=s End Sub
增量，一般当初值<终值时，步长应取正数，而当初值>终值，则步长 应取负值。仅当步长为1时，Step 步长可以省略
For 循环控制变量 = 初值 To 终值 [Step 步长] 循环体 Next 循环控制变量
For-Next的值 循环变量=初值表达式的值 循环变量超过终值？ False
格式一 :前测式当型循环 Do While <条件> <循环体> [Exit Do] Loop 格式二:前测式直到型循环 Do Until <条件> <循环体> [Exit Do] Loop
格式三 :后测式当型循环 Do <循环体> [Exit Do] Loop While<条件>
格式四：后测式直到型循环 Do <循环体> [Exit Do] Loop Until<条件>
输入一个正整数，判断该正整数是否为素数
For i = 2 To x - 1 x '如果能被某个数据整除,x就不是素数直接提前结束循环 If x Mod i = 0 Then Exit For Next i 实际上数学上已经证明：x不可能 被大于 x/2的数整除，也不可能被大 If i <= x -x 1 Then '若 i<=x-1 循环非正常结束 ,说明x不是素数 于 x" 的数整除，因此上述代码可以 MsgBox CStr(x) & "不是素数 Else '如果x不能被[2，x-1]进一步优化，减少循环判断的次数 数整除,则循环正常结束，i>x-1，即说 明x是素数 MsgBox CStr(x) & "是素数" End If
方法三: Private Sub Command1-Click（） i+1i Dim s AS Single，i AS Single s = 0 ：i = 1 Do Until i >100 s = s + i 输出s i=i+1 Loop 结束 Text1.Text=s End Sub
s+is
方法二: 开始 Private Sub Command1-Click（） Dim s AS Single，i AS Single s = 0 ：i = 1 0s Do s=s+i 1i i=i+1 Loop While i <= 100 Text1.Text=s i≤100 End Sub
方法一: Private Sub Command1-Click（） Dim s AS Single，i AS Single s = 0 ：i = 1 Do While i <= 100 s=s+i i=i+1 Loop Text1.Text=s End Sub
r=m Mod n m=n n=r True r<>0
False
输出最小公倍数a*b/m 结束
Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer, t As Integer Dim a As Integer, b As Integer m = Val(Text1.Text) n = Val(Text2.Text) a = m: b = n If m < n Then t = m: m = n: n = t End If Do r = m Mod n m=n n=r Loop While r <> 0 Label3.Caption = "最小公倍数：" & (a * b / m) End Sub
例题4-14
打印乘法“九九表” 分析：9*9的二维表，用双重循环。
For i = 1 To 9 For j = 1 To 9 Print i; "*"; j; "="; i * j; Next j Print Next i
注意:
内层与外层循环不得交叉。 如：For x For x For y For y …… …… Next y Next x Next x Next y 正确 错误 内层与外层循环的循环变量名不得相同 For a = 1 To 10 For a = 5 To 10 Print a Next a Next a 错误
思考题：素数问题
分析：
素数就是大家在数学中熟知的质数，即一个大于1 且只能被1和它本身整除的整数 输入一个正整数，判断该正整数是否为素数
从素数的定义出发：既然素数除了1和它本身之外， 不能被任何数整除，那么就把待判断的数X依次与除 了1和它本身之外的其他所有的数进行除，看是否有 整除的情况；若有，表示X不是素数，否则就是素数。 除数的范围i从2开始到X-1(因为一个数不可能能整 除比它自身大的数)，由于要对这个范围内的每一个 数都进行相同的重复除操作，所以使用循环
输入一个正整数，判断该正整数是否为素数
For i = 2 To x - 1 '如果能被某个数据整除，x就不是素数，直接提前结束循环 If x Mod i = 0 Then Exit For Next i If i <= x - 1 Then '若 i<=x-1循环非正常结束,说明x不是素数 MsgBox CStr(x) & "不是素数" Else '如果x不能被[2，x-1]数整除,则循环正常结束，i>x-1，即 说明x是素数 MsgBox CStr(x) & "是素数" End If
循环次数的一般计算公式：
Int((终值-初值)/步长)+1