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

（3）Wend: 与While语句匹配使用的循环结束语句， 不能单独出现，也不能缺少。
9
第七章 循环结构程序设计
【例7.2】利用格里高利公式求π
1 1 1 1
4
357
分析:
这是一个用多项式累加和模拟PI值的题目，每一 项都具有特定的变化规律，那么：
1）判断出要用循环结构来做
2）寻找（或创造）循环条件
思考：Do循环的循环条件由什么构成呢？ 方案：与While语句或Until语句配合使用构成
，而且根据While语句或Until语句在Do…Loop中 所处的位置不同，既可以构成“当型循环”，又可 以构成“直到型循环”。
Ref WD
12
第七章 循环结构程序设计
特别说明： 我们知道，程序中的循环体不可能永无止境的
End Sub
29
总结：
形式：VB提供了四种循环结构的语句：
1）While … Wend
第七章 循环结构程序设计
2）Do … Loop
3）For … Next
4）Goto
方法：
1）判断出要用循环结构来做
2）寻找（或创造）循环条件
3）明确循环体，及循环条件在循环体中作用
1）循环变量：也称作计数器，是一个变量，专门用于控制循环体执行的次 数。 2）初值：循环变量的第一次取值。 3）终值：循环变量与之比较以决定是否结束循环。 4）增量：也称作步长，循环变量每次变化时需增加的数据值，增量可为正 数也可为负数。如果增量为正数，则终值应大于或等于初值；如果增量为 负数，则终值应小于或等于初值。
End Sub
‘标号 ‘循环体语句 ‘循环体语句
‘GoTo语句
24
第七章 循环结构程序设计

10
10
求：s=1+2+3+4+5 的问题
解一： 解一： (1+5) 5/2=15 （等差）
解二： 解二： S=0 S=1 S=1+2 S=1+2+3…
s←s+i ← i←i+1 ←
11
求：s=1+2+3+4+5 的问题
1、输入n的值 、输入 的值 2、s←0 、 3、i←1 、 4、如果i<=n ，做5 、如果 否则输出s， 否则输出 ，结束 5、s←s+i 、 6、i←i+1 、 7、执行4 、执行
8 8
循环结构
以下面循环为例， 以下面循环为例，以框图形式 说明For循环执行过程： For循环执行过程 说明For循环执行过程： For I=<e1> to <e2> step <e3> 循环体 Next I
I=e1 Y
I超过终值e2?
N 循环体 I=I+e3
9 9
说明
<循环变量>、<初值>、<终值>和<步长>都是数值型的，其中， 循环变量> 初值> 终值> 步长>都是数值型的，其中， 循环变量> 初值> 终值>是必需的。 <循环变量>、<初值>和<终值>是必需的。 步长>可正可负，也可以省略。 步长>为正， 初值> <步长>可正可负，也可以省略。若<步长>为正，则<初值> 必须小于或等于<终值> 否则不能执行循环体内的语句； 必须小于或等于<终值>，否则不能执行循环体内的语句；若 步长>为负， 初值>必须大于或等于<终值> <步长>为负，则<初值>必须大于或等于<终值>，否则不能执 行循环体内的语句； 步长>省略，则默认为1 行循环体内的语句；若<步长>省略，则默认为1。 可选, 语句用于退出循环体，执行Next Next语句之 Exit For 可选, 语句用于退出循环体，执行Next语句之 后的语句。必要时，循环体中可以放置多条Exit For语句 语句。 后的语句。必要时，循环体中可以放置多条Exit For语句。 该语句一般放在某条件结构中，用于表示当某种条件成立时， 该语句一般放在某条件结构中，用于表示当某种条件成立时， 强行退出循环。 强行退出循环。 Next语句中的 循环变量>必须与For语句中的<循环变量> 语句中的< For语句中的 Next语句中的<循环变量>必须与For语句中的<循环变量>一 也可以省略。 致，也可以省略。

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才退出循环。

演示
课堂练习
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

dim num as integer sum = 0 For num = 1 To 10 sum = sum + num Next num
累加
第五章
循环结构程序设计
5.1.2 循环结构
循环结构 循环（Loop）又称为重复（Repetition），是指在一定条件下重 复执行一组指定的语句。被重复执行的一组语句称为循环体。
10
判断
10不是素数
第五章
循环结构程序设计
5.2.2 Do循环语句
2.后测型Do…Loop
Do…Loop While循环语句
语法格式 Do 循环体 [Exit Do] Loop [While 条件表达式]
Do前面的语句
执行循环体
计算条件表达式的值 True
条件为真？ False Loop后面的语句
第五章
循环结构程序设计
5.2.2 Do循环语句
2.后测型Do…Loop
【例5.7】设计要求 编写程序，求1+2+3+…+10的累加和，使用Do…Loop Until循 环语句实现。
累加
sum = 0 num = 1 Do sum = sum + num num = num + 1 Loop Until num > 10
循环结构程序设计
第五章
5.2.2 Do循环语句
2.后测型Do…Loop
【例5.7】设计要求 编写程序，求1+2+3+…+10的累加和，使用Do…Loop While循 环语句实现。
累加
sum = 0 num = 1 Do sum = sum + num num = num + 1 Loop While num <= 10

图5.6 例5.4显示结果
循环嵌套
i=1
i<=3
Y N
For i = 1 To 3 Step 1 Print "i=” ; i For j = 1 To 3 Step 1 Print Tab; "j="; j Next j Next i
Print "i=” ; i For j = 1 To 3 Print Tab; "j="; j Next j
For 和Do Loop的比较
采用For语句比Do Loop更加简明。 一般情况下，能够预先确定循环次数时， 应优先采用For语句，否则的话应该使用Do Loop语句

【例 5.13】利用随机数函数模拟抛硬币

采用的方法是：每次随机产生一个0或1的 整数，相当于一次投币，1代表正面，0代 表反面。
*#*#*#* *#*#* *#* *

自顶向下、逐步求精 分而治之
****** ****** ****** ******
分析：……？
For i=1 to 4
打印第i行 换行
打印第一行星号；换行 打印第二行星号；换行 打印第三行星号；换行
Next i
打印第四行星号；换行
****** ****** ****** ******
For i=1 to 4
For i=1 to 4
打印第i行 换行
Next i
For j=1 to 6 同行打印第 j 颗 “*” Next j
print
Next i
****** ****** ****** ******
For i=1 to 4
For i=1 to 4
打印第i行 换行

If x = 0 Then Exit For
If x > 0 Then
NCount = NCount + 1 : NSum = NSum + x
Else
PCount = PCount + 1 :
PSum = PSum + x
End If
Next i
Print "正数个数："; NCount, "正数之和："; NSum
If Min > x ThIenfMMina=xx < x Then Max = x
Next i
If Min > x Then Min = x
NPerinxtt"miax="; Max, "min="; Min PErndiSnutb "max="; Max, "min="; Min
End Sub
– 注意那些语句应该作为循环体，写在For语句和next 语句之间，哪些语句应写在for语句之前，哪些语句 应写在next语句之后。
For i = 3 To 30
f3 = f1 + f2 :
Print f3,
If i Mod 5 = 0 Then Print
f1 = f2 : f2 = f3
Next i
End Sub
(1)程序中用语句“If i Mod 5 = 0 Then Print”控制每行输出 5个数据。
(2)把变量f1、f2、f3定义为长整型，是避免产生数据溢出。
Print "负数个数："; PCount, "负数之和："; PSum
End Sub

第五章 根本的控制构造 (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<条件表达

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

【说明】
省略：１
Exit For
语句块
循环变量加步长
① 循环变量：一个数值变量。 ② 初值、终值和步长：数值表达式，常量、变量或运算式。
循环次数 步长
>0I:n初t (值终<值步终长初值值
<0: 初值>终值
步1)长循=环1 时执,行可次省数略
Int
(
132 3
1)
4
For i=2
Print
To 13
Dim p As double
Dim r As single
dim n As Integer
p=6000000000#
r=0.014
n=0
Do While p<7000000000#
Do Until p>=7000000000#
p=p*(1+r)
n=n+1
Loop
Print n;”年后”;”世界人口达”;p
思考：
7
32767
N最大可取到多少？为什么？
第7页，共32页。
[例5-11]求1！+3！+5！+7！+9！的值。
求1-n阶乘的和
[程序]双重循环
result=1 sum=0 For i = 1 To n
result = result * i sum=sum+result Next i
[程序]单重循环
For i = 1 To -2 Step -1
i2 = i2+1 Next
Print i , i2
-3 4
(4)
i2 = 1
For i = 1 To 10
i=i+1

嵌套循环常用于处理二维数组、矩阵等数据 结构，以及需要多次重复执行某段代码的情
况。
嵌套循环的实例
打印九九乘法表
使用嵌套循环可以打印 出九九乘法表，外层循 环控制行，内层循环控 制列，通过两层循环嵌 套实现。
打印菱形图案
使用嵌套循环可以打印 出菱形图案，通过调整 循环条件和计数器变量， 控制行数和列数的输出。
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语句可以在循环体内部实现某 些特殊逻辑，例如忽略某些不符合条件的迭 代。
实现算法
许多算法的实现需要使用到循环结构，例如排序、 查找等算法。通过使用循环结构，可以方便地实 现这些算法。

1．下列程序段的循环结构执行过程中共循环了几 次。
Dim i%, y% For i = 1 To 10 Step 2
y=y+i Next i
2. 写出
Dim i, c As Integer
c=0 For i = -12 To -33 Step -4
c=c+1 Next i 所进行的循环后，i 的值是 。
item = f * t1 * t2 / t3 s = s + item f = -f : t1 = t1 + 2 : t2 = t2 * x * x k = k + 2 : t3 = t3 * (k - 1) * k Next MsgBox(Format(s, "0.000000"))
10. 计算下列公式的近似值。（0<X<1,X由键盘输入）
主要解决的问题：
哪些数是三位数？100~999
For num = 100 To 999
……
Next num 已知 num 是一个三位数，请写出它的三位数字相应 的表达式
百位 a = num \ 100 十位 b = num \10 – a * 10 个位 c = num mod 10
6. 小英家的门牌号码是一个三位数，其特点是，末位数字比 首位数字大，而首位数字又比中间数字大，且各位数字相加 之和等于各位数字相乘之积。请编程找出这个门牌号码。
7. 求出所有水仙花数的程序（如果一个三位整数等于 其各位数字的立方和，则该数为水仙花数。例如，371 是水仙花数，因为371＝33+73+13）。
主要解决的问题： 哪些数是三位数？ 已知 num 是一个三位数，请写出它的三位数字相应 的表达式 程序代码？？？