visual basic (vb)第5章_2(循环语句)解析
合集下载
Visual Basic 程序设计基础知识-循环
WHILE循环结构一、语法结构WHILE <条件><循环体>WEND注:1.执行过程：先判断条件是否成立，如果成立就执行循环体（while与wend之间的语句）；循环体执行完后，再判断条件是否依旧成立，如果成立继续执行循环体，否则退出循环，执行wend后的语句。
2.while－wend结构的循环必须在循环体内改变循环控制变量的值，否则会出现死循环例1 求s＝2＋3＋……＋100s=0:n=1while n<=00s=s+nn=n+1wendprint “s=”;s例2．如果我国工农业生产每年以12%速度增长,问多少年后产值翻一番:基值设为100。
（逐年计算产值，看是否达到200）p=100r=0.12n=0WHILE p<200p=p*(1+r)n=n+1WENDPRINT n，p例3．一张纸厚度为0.5毫米，问对折多少次后厚度超过8844米 n =0h = 0.5Do while h<=8844000h =2*hn =n+1LoopPrint nFor-next循环结构1、格式FOR <变量>=<初值> TO <终值> STEP <增量>循环体NEXT <变量>如： for i=1 to 10 step 2print inext i2、说明（1）FOR与NEXT必须配对；（2）FOR必须在NEXT的前面；（3）FOR中的循环变量与NEXT的变量一致；（4）步长为1时“ STEP 1”可省略；（5）循环终止的条件是循环变量赋值超过终值，而不是等于终值。
终止条件:当步长>0时,循环变量>终值当步长<0时,循环变量<终值当步长=0时,永不终止（6）循环次数的计算次数=(终值一初值)/步长+1（7）循环变量尽量用整型变量；（8）循环变量初值和终值、步长值均可以是正值、负值或零，也可是整数或小数；例题1for i=1 to 100print "a"next I例题2for I=1 to 100 step 2 s=s+Inext I例题3for I=100 to 1 step -5 print Inext i 例题4 百钱买白鸡For g=1 to 19For m = 1 to 31x=100-g-mif 5*g+3*m+x/3=100 thenprint g , m , xend ifNext mNext g。
Visual Basic程序设计第5章
Dim s As Integer, x As Integer s = 0: x = 0 Do While x < 100
x=x+2 s=s+x Loop Print "1～100所有偶数的和="; s End Sub
在循环体中应该有对循环条件进行修改的 语句，以免进入死循环。
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
例5.6 人口增长问题。假设我国现有人口13亿，若年增 长率为1.5%，试计算多少年后我国人口增加到或超过 15亿；若年增长率为1.8%呢？
分析：人口增长的计算公式为：p=y(1+r)n。y为人 口初值，r为年增长率，n为年数。
中国农业出版社
Visual Basic 程序设计
End Sub
思考：Do…Loop While循环语句与Do While…Loop 循环语句的区别
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
5.2.3 Do Until…Loop循环语句 Do Until…Loop循环语句又叫“直到型循环”语句。
1．Do Until…Loop循环语句的格式 Do Until <条件> [<循环体>] [Exit Do] Loop
1．Do…Loop While循环语句的格式 Do [<循环体>] [Exit Do] Loop while <条件>
2．Do…Loop While循环语句的执行过程: 先执行循环体，然后判断“条件”，根据
“条件”决定是否再次执行循环体。如果“条件” 成立（值为真），则再次执行循环体；如果某次 判断“条件”不成立（值为假），则退出循环。
x=x+2 s=s+x Loop Print "1～100所有偶数的和="; s End Sub
在循环体中应该有对循环条件进行修改的 语句，以免进入死循环。
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
例5.6 人口增长问题。假设我国现有人口13亿，若年增 长率为1.5%，试计算多少年后我国人口增加到或超过 15亿；若年增长率为1.8%呢？
分析：人口增长的计算公式为：p=y(1+r)n。y为人 口初值，r为年增长率，n为年数。
中国农业出版社
Visual Basic 程序设计
End Sub
思考：Do…Loop While循环语句与Do While…Loop 循环语句的区别
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
5.2.3 Do Until…Loop循环语句 Do Until…Loop循环语句又叫“直到型循环”语句。
1．Do Until…Loop循环语句的格式 Do Until <条件> [<循环体>] [Exit Do] Loop
1．Do…Loop While循环语句的格式 Do [<循环体>] [Exit Do] Loop while <条件>
2．Do…Loop While循环语句的执行过程: 先执行循环体，然后判断“条件”，根据
“条件”决定是否再次执行循环体。如果“条件” 成立（值为真），则再次执行循环体；如果某次 判断“条件”不成立（值为假），则退出循环。
VisualBasic程序设计基础-5-循环结构
For 循环控制变量=初始值 to 终止值 Step … …….
Next 循环控制变量
注意事项：
1、隐藏的条件是：初始值≤循环控制变量≤终止值
2、变量、初始值、终止值的类型必须一致，且不能为小数； 3、初始值和终止值也可以是表达式； 4、循环控制变量会自动从初始变化到终止，在语句中不能强 制手工改变循环控制变量的值。
3、步长step不写时，默认为1。
4、S=0这句一定要写，否整理则ppt 程序容易出错。
9
错误示例1：下面这个程序错在哪里？
For i=1 to 100 S=0
// 也被反复执行了100次
S=S+i
// 反复执行100次
Next i Print S
// 输出S
S=0 的位置不对，应该放在循环外面。 每次循环都初始化，结果只能保留最后一个数字100
Next i
// 执行100次 // 反复输出S
题意只要求输出一个总和， 所以打印语句应放在循环外面。
整理ppt
12
例二 打印1～100内的所有偶数
序列
2 4 6 8 …… 100
编号i 第 1 2 3 4 …… 50 个数
因此可以由编号i产生这个偶数序列: 2*i (1≤i≤50) 由此公式生成序列的过程交给计算机自动完成
循环结构
整理ppt
1
循环概念的引入：求和 1+2+…+100
S=1+2+3+….+100 Print S 非法操作！！ 系统不认得省略号，中间省略的东西必须明确。 一定要把100个数字和99个加号全部打出来才对
整理ppt
2
分析
计算 1+2+3+……+100
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才退出循环。
第5章 基本的控制结构(循环)
结束
图5-7
“九九乘法表”运行结果
结束
循环嵌套要注意以下事项： （1）在多重循环中，各层循环的循环控制变 量不能同名。但并列循环的循环控制变量名
可以相同，也可以不同。
（2）外循环必须完全包含内循环，不能交叉。
结束
下面的循环代码正确吗？ For I=1 To 100 For I=1 To 100 For J=1 To 10 For I=1 To 10 „„ „„
结束
5.3.5 循环的退出
在某些情况下，为了减少循环次数或便 于程序调试，可能需要提前强制退出循 环。VB为For„Next和Do„Loop循环语句 提供了相应的强制退出循环的语句。
结束
Exit For语句：
用于For„Next循环，在循环体中可以出 现一次或多次。当系统执行到该语句时， 就强制退出当前循环。
结束
格式1的两种形式： Do {while} <条件> [<循环体>] Loop Do
当条件为真时， 执行循环体语句
{until} <条件> 当条件为真时，终 [<循环体>] 止执行循环体语句 Loop 说明： 格式1是先判断条件是否为真，然后执行。
结束
F
条件是否为真？
T
条件是否为真？
T
循环体
F
循环体
图2-3
Do While „Loop执行流程
图2-4
Do
Until „Loop执行流程
结束
格式2的两种形式： Do [<循环体>] Loop {while} <条件> Do
[<循环体>] Loop {until} <条件> 说明： 格式2是先执行循环体语句，然后判断条件。
大学VB课堂 第五章第二节
语句格式 注意
5.2 While … Wend 语句
例5.2.1
e 利用公式 ex 1 xn 求 x 的值。精确到
105 的近似值。
n1 n!
分析 程序 思考 结论
循环条件：abs ( t ) > = 1E-5 循环终止条件 ：abs ( t ) < 1E-5 修改循环条件语句：t = t * x / i ;
End Sub 程序演示
语句格式 注意
5.2 While … Wend 语句
例5.2.1
e 利用公式 ex 1 xn 求 x 的值。精确到
1考 结论
1、该程序的循环条件是什么？ 2、循环终止条件是什么？ 3、什么语句修改循环条件？ 4、最少循环次数为多少？
语句格式 注意
5.2 While … Wend 语句
例5.3
例5.3 求两个正整数m和n的最大公约数。
分析:
求最大公约数有许多方法。这里采用辗转相除法: 设m=na+R1（0≤R1<n),就是说m是n的a倍还多R1。那 么m和n的最大公约数与m和R1的最大公约数相同。若R1 等于0，则n就是m和n的最大公约数。若R1不等于0，则 对n和R1重复上述过程，直到求出R1等于0为止。
1
x 1!
x2 2!
xi i!
,
若第
i
-1项的值为Ti 1 ,
则 i 项的值为 Ti Ti1 * x / i。
2、当 Ti 10 5 ，结果为所求。
3、循环次数未知。
语句格式 注意
5.2 While … Wend 语句
例5.2.1
e 利用公式 ex 1 xn 求 x 的值。精确到
105 的近似值。
visual basic (vb)第5章_2(循环语句)解析
Visual Basic 程序设计
1 为什么要使用循环结构？ 使用循环结构，上述程序可以修改为： Private Sub Form_Click() For I = 1 To 6 Print "**********" Next I End Sub 与前面的程序相比，循环结构使得程序更加 清晰，功能更加强大，修改也更加方便。
VB 程序设计基础课件 Visual Basic 程序设计
例题3 计算S=1!+2!+……+20!
Private Dim Dim S = For Sub Form_Click() S As Single, temp As Single I As Integer, J As Integer 0 I = 1 To 20 temp = 1 For J = 1 To I temp = temp * J Next J S = S + temp Next I Print "1!+2!+……20!=", S End Sub
例题5 输出乘法口诀—2
Private Sub form_Click() For I = 1 To 9 For J = 1 To I Print I;"*"; J; "="; I * J; ' 不换行 Next J Print ' 换行 Next I End Sub
Visual Basic 程序设计
例6 输出图形
Visual Basic 程序设计
Private Sub picture1_Click() Picture1.Cls ' 清除图片框 n = Val(InputBox("请输入行数")) For i = 1 To n Picture1.Print Tab(n + 1 - i); ' 控制打印起点 For j = 1 To 2 * i - 1 Picture1.Print "*"; Next j Picture1.Print For j = 1 To n - i Next i Picture1.Print Spc(1); End Sub
vb第5章循环结构程序设计
输入m，n
大数放m,小数放n 除数d=1
当d<=n 如果m、n都能 被d整除， 则max ← d d=d+1 输出max
求两个正整数的最大公约数。
分析：求最大公约数可以用
［例5.4]输入两个正整数，递减法求最 大公约数。 输入m，n
大数放m,小数放n 除数d=n
当d>=1
如果m、n都能被d 整除，则max ← d, 退出循环
输入m，n 大数放m,小数放n 求得m对n的余数r 当r<>0 m←n n ←r 求m对n的余数r 输出n
求两个正整数的最大公约数。
分析：求最大公约数可以用
［例5.4]输入两个正整数，递增法求最 大公约数。 输入m，n
大数放m,小数放n 除数d=1
当d<=n 如果m、n都能 被d整除， 则max ← d d=d+1 输出max
步长为正时，超过—循环变量大于终值使循环结束 步长为负时，超过—循环变量小于终值使循环结束 5、一般在循环体中不对循环变量重新赋值， 否则影响循环的次数控制。
步长为负时
0
1.5
3
初值送循环变量
For I = 3 To 0 Step -1.5 Print I Next Print "After For :"; I For I = 0 To 3 Step -1.5 Print I Next Print "After For :"; I
说明： （l）条件为True ,（循环体语句列）将被重复执行
作业：
例题 5-1、5-4 ～ 5-6 选做5-2、5-3 5.6习题
xt5-1 ～xt5-4 选做xt5-5
VisualBasic程序设计案例教程 第5章 循环结构设计课件
5.2 Do…Loop循环序设计案例
If x = -1 Then Exit Do
End If Sum = Sum + x Text1.Text = Sum Loop MsgBox "累加运算结束" End Sub
程序运行效果如图5.5所示。
程序中用了While...Wend当循环，即当Do While True为真是，程序 一直执行，当以-1作为“终止循环标志”(假设要累加的数不会等于-1) ，当判别到用户输人数为-1时，就会执行ExitDo来结束循环。
pi = pi + s / c
s = -s
'交替改变加、减号
Next c
Print "π="; pi * 4
End Sub
程序运行后在窗体中输入为：=3.141397
5.1For…Next循环语句案例
请读者注意，pi = pi + s / c和s = -s代码其实就是对进行了分解， 请注意理解。 5.1.3 相关知识及注意事项
▪ 5.1.2 应用扩展 我们在前面案例基础之上把For…Next语句引入到相对较复杂的问题
中去，读者在处理这此问题的时候，要抓住问题的本盾，即无论问题有 多复杂，但For…Next语句没有变化。
用级数=，求的近似值，要求取前5 000项来计算 要解答以上问题，首先我们要把复杂问题简单化，即怎样把以上计算 式转化为可理解的，可执行的内容。第二，5000项我们不可能加5千次 ，所应该首先想到用循环来实现。 通过分析我们可以设=pi=，我们求出pi后，然后=pi*4，即为最后所 求。
Print k * k Next k End Sub
5.1For…Next循环语句案例
VB循环语句课件ppt
VB循环语句课件
目录
CONTENTS
• VB循环语句概述 • For循环语句 • While循环语句 • Do-While循环语句 • 循环语句的嵌套使用
01
CHAPTER
VB循环语句概述
什么是循环语句
循环语句是编程中用于重复执行一段 代码的语句。
循环语句是编程中的重要组成部分， 尤其在处理大量数据或重复执行特定 任务时。
Next j
1
Next i
2
```
3
THANKS
谢谢
总结词
解释Do-While循环的执行流程
详细描述
Do-While循环的执行流程是先判断 条件表达式是否为真，如果为真则执 行循环体内的语句块，然后再次判断 条件表达式，直到条件表达式为假时 结束循环。
Do-While循环的示例代码
总结词
提供Do-While循环的示例代码
详细描述
以下是一个简单的Do-While循环 示例代码，用于打印1到10之间 的整数
预设值时停止循环。
do-while循环先执行一次代 码块，然后在条件满足时重复 执行，直到条件不再满足为止
。
循环语句的作用
循环语句可以简化重复操作的代 码，提高代码的可读性和可维护
性。
通过循环语句，程序可以高效地 处理大量数据，避免重复编写相
同的代码。
循环语句还常用于算法的实现， 例如排序、搜索和数学计算等。
05
CHAPTER
循环语句的嵌套使用
嵌用于控制循环的次数和范 围。
内层循环
嵌套在外层循环内部，用 于执行具体的操作。
循环变量
用于控制循环的起始、结 束和步长。
嵌套循环的执行流程
目录
CONTENTS
• VB循环语句概述 • For循环语句 • While循环语句 • Do-While循环语句 • 循环语句的嵌套使用
01
CHAPTER
VB循环语句概述
什么是循环语句
循环语句是编程中用于重复执行一段 代码的语句。
循环语句是编程中的重要组成部分， 尤其在处理大量数据或重复执行特定 任务时。
Next j
1
Next i
2
```
3
THANKS
谢谢
总结词
解释Do-While循环的执行流程
详细描述
Do-While循环的执行流程是先判断 条件表达式是否为真，如果为真则执 行循环体内的语句块，然后再次判断 条件表达式，直到条件表达式为假时 结束循环。
Do-While循环的示例代码
总结词
提供Do-While循环的示例代码
详细描述
以下是一个简单的Do-While循环 示例代码，用于打印1到10之间 的整数
预设值时停止循环。
do-while循环先执行一次代 码块，然后在条件满足时重复 执行，直到条件不再满足为止
。
循环语句的作用
循环语句可以简化重复操作的代 码，提高代码的可读性和可维护
性。
通过循环语句，程序可以高效地 处理大量数据，避免重复编写相
同的代码。
循环语句还常用于算法的实现， 例如排序、搜索和数学计算等。
05
CHAPTER
循环语句的嵌套使用
嵌用于控制循环的次数和范 围。
内层循环
嵌套在外层循环内部，用 于执行具体的操作。
循环变量
用于控制循环的起始、结 束和步长。
嵌套循环的执行流程
VisualBasic程序设计第五章
11
Private Sub Command1_Click() Dim i As Integer, n As Integer, f As Variant n = Text1.Text f = 1 For i = 1 To n f = f * i Next i Text2.Text = f Label2.Caption = Str(n) + "!=" End Sub Private Sub Command2_Click() Text1.Text = "" Text1.SetFocus Text2.Text = "" Label2.Caption = "" End Sub Private Sub Command3_Click() End End Sub
2010年11月19日 14
Private Sub Command2_Click() Text1.Text = "" Text1.SetFocus Label2.Caption = "" End Sub Private Sub Command3_Click() End End Sub For…Next语句的嵌套 5.1.5 For…Next语句的嵌套 For…Next语句可以嵌套且嵌套层数无限制，其基本要求是： For…Next语句可以嵌套且嵌套层数无限制，其基本要求是： 语句可以嵌套且嵌套层数无限制 ①每个循环必须有一个惟一的变量作为控制变量。 每个循环必须有一个惟一的变量作为控制变量。 ②内层循环必须完全放在个循环体内，内外循环不得相互交叉骑跨。 内层循环必须完全放在个循环体内，内外循环不得相互交叉骑跨。 例如，下面的嵌套是错误的： 例如，下面的嵌套是错误的：
05 第05章 VB程序设计循环结构
初值问题：Sum初值为0，Item初值应为1。
为防止溢出，Item和Sum 声明为双精度型。 程序运行结果： 当X=6，N分别为1、2、3 时，其和分别为3、9、18。
x x2 xn 2! 3! (n 1)!
22
Visual Basic程序设计教程
Private Sub Command1_Click() Dim Sum As Double, Item As Double, i As Integer Dim N As Integer, X As Double N = Val(InputBox("请输入项数: ")) X = Val(InputBox(" X= ")) Sum = 0: Item = 1 For i = 1 To N Item = Item * X / (i + 1) Sum = Sum + Item Next i MsgBox " x/2!+x^2/3!+...= " & Sum, , "信息" End Sub 23 Visual Basic程序设计教程
Not为一元运算符，其它均为二元运算符。格式： Not 表达式 表达式1 逻辑运算符 表达式2 （除Not外）
一个逻辑表达式可用一个或多个逻辑运算符。如：A>0 And B>0 And C>0 2．数据类型
逻辑运算的数据及结果均为布尔类型。
10
Visual Basic程序设计教程
3．运算方式
4．优先级
循环结构是根据条件来决定某段代码是否重复执行。 循环结构中一种常用的流程可以表示如图： 条件满足就执行a块程序段 然后再进行条件判别 如果满足条件，则继续执行a块程序段 直到条件不满足，才执行a块后面的程序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
④注意：
（1）For循环语句是先判断后执行。 （2）当退出循环后，循环变量的值保持退出时的值。 （3）在循环体内可多次引用循环控制变量，但最好不要给 它赋值，否则会影响原来的循环控制规律。
Visual Basic 程序设计
例题1 计算S=1+2+3+……+100 Private Dim S = For Sub Form_Click() S As Integer, I As Integer 0 I = 1 To 100 S = S + I Next I Print "1+2+3+……+100=", S End Sub
2 For…Next 循环语句
Visual Basic 程序设计
For…Next 循环语句的执行过程 循环变量赋初值
循环变量未超过终值?
True False
循环体
循环变量加上一个步长
Visual Basic 程序设计
2 For…Next 循环语句 功能：
当循环变量的值在初值到终值范围内时,执行一次循环 体中的语句块,并使初值增加一个步长。 当循环变量的值不在初值到终值范围内时,就退出循环, 执行Next后面的语句。
Visual Basic 程序设计
4 Do…Loop 循环语句
四种形式的Do…Loop 语句的比较：
■ 四种循环结构都是以Do语句开始，而以Loop语句结束。
■ 若循环控制条件跟在Do语句后，则要先判断条件，再执 行循环体，因此是一种当型循环；若循环控制条件跟在Loop语 句后，则是先执行循环体，再判断条件 ■ 若条件语句使用While，则当条件为真时，执行循环体， 条件为假时，退出循环；若条件语句使用Until，则当条件为 假时，执行循环体，条件为真时，则退出循环。 例题2：分别使用四种形式的Do…Loop语句，计算： S=1+2+3+……100 的值。
For…Next 循环语句适合处理循环次数已知的循环结构。
For…Next循环语句的格式：
For <循环控制变量>=<初值> TO <终值> [Step <步长>] <循环体> [Exit For] Next <循环控制变量>
For I = 1 To 6 Print "**********" Next I
■问题3：根据例题1，自己编写程序计算20！，与 计算累加和相比，计算阶乘时应注意什么问题？
Visual Basic 程序设计
例题2：七彩字 Private Sub Form_click() Dim i% Randomize For i = 1 To 1000 Form1.CurrentX = 500 + i Form1.CurrentY = 500 + i ForeColor = RGB(Int(256 * Rnd),
Visual Basic 程序设计
1 为什么要使用循环结构？
在VB中，通常可以使用如下循环语句：
■ For…Next 语句：适合处理循环次数预知 的循环问题。 ■ While...Wend语句 、Do…Loop 语句： 适合处理用循环条件控制的循环问题。
Visual Basic 程序设计
2 For…Next 循环语句
Visual Basic 程序设计
例题2-1 用Do语句计算1+…+100
Private Sub Form_Click() Dim S As Integer, I As Integer S = 0 I = 0 Do While I <= 100 S = S + I I = I + 1 Loop Print "1+2+3+……+100=", S End Sub
环结构？ 使用循环结构，上述程序可以修改为： Private Sub Form_Click() For I = 1 To 6 Print "**********" Next I End Sub 与前面的程序相比，循环结构使得程序更加 清晰，功能更加强大，修改也更加方便。
例题2：使用while语句，计算：S=1+2+3+……100 的值。
Visual Basic 程序设计
4 Do…Loop 循环语句
Do…Loop 循环语句的四种形式 Do While <条件> <循环体> [Exit Do] Loop Do Until <条件> <循环体> [Exit Do] Loop Do <循环体> [Exit Do] Loop While <条件> Do <循环体> [Exit Do] Loop Until <条件>
Visual Basic 程序设计
1 为什么要使用循环结构？ 但上述程序结构让人觉得烦琐，尤其是当 需要100行或1000 行 “ ********** ”的话，源 程序将变得很长。所以，在程序设计中，我们 需要使用循环结构，来进行一系列重复的动作。
在VB中，当需要对某一段程序反复执行多 次，且反复执行的次数是可以预知的或可以用 某种条件控制的，就可以使用循环结构。
如果要编写一个程序，在窗体上输出6行 “ ********** ”，如下图所示：
Visual Basic 程序设计
1 为什么要使用循环结构？
该程序最直觉的编写方法如下：
Private Sub Form_Click() Print "**********" Print "**********" Print "**********" Print "**********" Print "**********" Print "**********" End Sub
Visual Basic 程序设计
第5章 程序控制结构二
循环结构
Visual Basic 程序设计
主要内容
1. 为什么要使用循环结构？
2. For…Next 循环语句
3. While循环
4. Do…Loop 循环
5. 循环嵌套 6. 循环语句使用举例
Visual Basic 程序设计
1.为什么要使用循环结构？
Rnd), Int(256 * Rnd))
Int(256 *
Print "Hello" Next i End Sub
Visual Basic 程序设计
3 While循环语句
While循环又称“当” 型循环，它是通过“循环 条件”控制重复执行一组 语句。 While <循环条件> <循环体> Wend