vb循环结构
合集下载
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循环结构](https://img.taocdn.com/s3/m/7cfcbca358f5f61fb736667f.png)
循环体：被重复执行的语句序 列
执行时，先测试条件，若满足， 则执行一遍语句序列，然后跳 回到条件处，再次测试条件； 若不满足，则跳出循环
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方法打印出标题和一个空行。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
方法二 ：使用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 “***……**”