第4章 循环结构程序设计ppt课件.ppt

《第4章 循环结构程序设计ppt课件.ppt》由会员分享，可在线阅读，更多相关《第4章 循环结构程序设计ppt课件.ppt（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第4章 循环结构程序设计第4章 循环结构程序设计目录目录4.1 循环结构的类型循环结构的类型4.2 ForNext 循环循环4.3 WhileEnd While 循环循环4.4 Do-Loop 循环语句循环语句4.5 循环的嵌套循环的嵌套4.6 Exit 语句语句4.1 4.1 循环结构的类型循环结构的类型 计数循环计数循环 （ForNext循环）循环） 按规定的次数执行循环体。按规定的次数执行循环体。 2. 当循环当循环 （While-end while 循环）循环） 给定条件满足时，重复执行循环体。给定条件满足时，重复执行循环体。 3. Do循环循环 （Do-Loop循环）循环） 给定条件

2、满足时执行循环体。给定条件满足时执行循环体。4.2 For4.2 ForNext Next 循环循环 语法格式：语法格式： For 循环控制变量循环控制变量 = 初值初值 To 终值终值 step 步长步长 Exit For Next 循环控制变量循环控制变量 For i = 1 To 100 step 2 s=s+i Exit For Next i循环变量初值终值步长循环体说明：说明： （1）循环控制变量循环控制变量（简称循环变量）是一个数值型的变量。（简称循环变量）是一个数值型的变量。 （2）初值和终值初值和终值分别表示循环控制变量的起始值和终止值。初值可分别表示循环控制变量的起始值和终止

3、值。初值可以小于等于终值，也可在大于等于终值。以小于等于终值，也可在大于等于终值。 （3）步长步长：表示每次循环时，循环控制变量的变化量。步长可以是：表示每次循环时，循环控制变量的变化量。步长可以是正数，也是负数。若省略不写，默认值为正数，也是负数。若省略不写，默认值为1。步长不能为。步长不能为0。 通过初值、终值和步长可以计算循环体的循环次数：通过初值、终值和步长可以计算循环体的循环次数： 循环次数循环次数=int(终值终值-初值初值)/步长步长)+1 若计算结果若计算结果终值？终值？结束 执行循环体 循环变量=初值 true循环变量=循环变量+步长falsei=i+1i=1S=s + 10

4、 Dim i , s As Integer s=0 For i = 1 to 3 step 1 s = s + 10 Next iMsgbox(i & “, ” & s)例例4-14-1：求和求和 在循环体中在循环体中可以可以引用引用“循环变量循环变量”的值，的值，但但不能改变不能改变“循环变量循环变量” 的值。的值。 例例4-2：求所有三位数之和求所有三位数之和 Dim i ,s As Integer For i = 100 to 999 step 1 s = s + i Next i Msgbox(“所有三位数之和所有三位数之和s=” &s)求所有三位数偶数项之和？求所有三位数偶数项之和？

5、求所有三位数奇数项之和？求所有三位数奇数项之和？可使用关键字可使用关键字StepStep来改变来改变ForForNextNext循环的步长，循环的步长，或使用或使用反向步长反向步长。 Dim i,s As Integer For i = 999 to 100 Step -2 s = s + i Next Msgbox(“所有三位数中奇数项之和所有三位数中奇数项之和”&chr(13) &“s=” &s)请计算以下两个循环结束请计算以下两个循环结束时，循环控制变量时，循环控制变量i的值。的值。 For i=2 to 10 Step 5 Next MsgBox(i= & i) For i=10 to

6、 2 Step -5 Next MsgBox(“i= & i)例例4-3 4-3 编写程序，计算并输出所有三位整数中能被编写程序，计算并输出所有三位整数中能被4 4整整除且末位不是除且末位不是4 4的数之和。的数之和。 Dim s, k, i as integer s = 0: k = 0 For i = 100 To 999 If i Mod 4 = 0 And Mid(i.tostring, 3, 1) 4 Then s = s + i 累和累和 k = k + 1 计数计数 End If Next i Msgbox(“s=”& s) -98820例例4-4 求求100到到999之间的所有

7、之间的所有“水仙花数水仙花数”。“水仙花数水仙花数”的含义是一个数的每个数位的立方的含义是一个数的每个数位的立方和等于该数。和等于该数。例：例： 153=13+53+33。分析：对于某一个数说，先分析：对于某一个数说，先把这个数拆开成单个把这个数拆开成单个的数字的数字，然后再判断它们的立方和是否等于本身。，然后再判断它们的立方和是否等于本身。程序如下：程序如下： 水仙花程序水仙花程序 Dim bw, sw, gw, i As Integer Dim str1 As String str1 = For i = 100 To 999 bw = i 100 sw = (i 10) mod 10 gw

8、 = i Mod 10 If bw 3 + sw 3 + gw 3 = i Then str1 = str1 + Str(i) + vbCrLf End If Next MsgBox(结果为：结果为： + vbCrLf + str1, , 求水仙花数求水仙花数)习题习题4-11 阶乘小于阶乘小于9999的那个自然数是多少？的那个自然数是多少？ Dim i, s As Integer s = 1 For i = 1 To 10 s = s * i If s = 9999 Then Exit For End If Next MsgBox(阶乘阶乘9999的自然数是：的自然数是： & (i - 1)

9、4.2.3 Exit For程序设计技术（ VB ）144.2.4 4.2.4 嵌套嵌套ForFor循环循环 可以将一个可以将一个ForNext循环放置在另一个循环放置在另一个ForNext循环中，组循环中，组成成嵌套循环嵌套循环。 每个循环中的每个循环中的循环控制变量循环控制变量，要使用不同的变量名。，要使用不同的变量名。 For i =1 to 3 for j=1 to 4 next Next如果省略如果省略Next后的后的循环控制变量循环控制变量，程序仍像存在时一样执行。，程序仍像存在时一样执行。程序设计技术（ VB ）15例例4-8a 4-8a 编写程序，用循环和表达式生成下列图形。编

10、写程序，用循环和表达式生成下列图形。 1 2 3 4 1 2 3 4 5 6 7 8 5 6 7 8 9 10 11 12 9 10 11 12 13 14 15 16 13 14 15 16 Dim i, j, p As Integer Dim str1 As String str1 = p = 1 For i = 1 To 4 For j = 1 To 4 If p=60 ten k1=k1+1 else k2=k2+1 endif next程序设计技术（ VB ）22提示：提示：3、习题、习题5-6 统计并逐行显示（每行统计并逐行显示（每行5个）在区间个）在区间10000，20000上的

11、回文数。回文数指该数上的回文数。回文数指该数前后对称，如前后对称，如12321，16561. for i=10000 to 20000 ww=?qw=sw=gw=If ww=gw and qw=sw then k=k+1 If k mod 5=0 then str1 &=str(i)+vbcrlf else str1 &=str(i) end ifEnd if next4.3 WhileEnd While 循环格式：格式： While 条件表达式条件表达式-为真为真 语句块语句块 End While1.WhileEnd While 循环也可以是多层的嵌套结构。循环也可以是多层的嵌套结构。2.每

12、个每个End While都匹配最近的都匹配最近的While语句。但没有提前退出循环体的方法，它没有语句。但没有提前退出循环体的方法，它没有类似类似Exit For或或Exit Do之类的语句。之类的语句。 DoLoop结构使用起来比较灵活，所以大多数程序员经常选用它。结构使用起来比较灵活，所以大多数程序员经常选用它。开始条件为true?结束 执行循环体 计算条件值 no yes whileEnd while当循环While-end While条件型循环条件型循环 Dim i , s As Integer s=0 For i = 1 to 100 s = s + i Next Msgbox(st

13、r(s) Dim i , s As Integer i=1: s=0 while i=100 s = s + i i=i+1 end whileMsgbox(str(s) Dim i , s As Integer i=1: s=0 while s=3000 s = s + i i=i+1 end whileMsgbox(str(i-1)计数型循环计数型循环例例4-114-11 由键盘输入两个数由键盘输入两个数m m，n, n, 求这两个数的最大公约数求这两个数的最大公约数r r和最小公倍数和最小公倍数z z。 m=15、n=6 15 mod 6=3 m=6 : n=3 6 mod 3=0 则：

14、则：3 是是6和和15的最大公约数的最大公约数 6*15/3=30是它们的最小公倍数是它们的最小公倍数 分析：分析： 辗转相除法求两个数辗转相除法求两个数m，n的最大公约数的思想如下：的最大公约数的思想如下： （1）求求m除以除以n的余数的余数r，即，即r=m mod n； (2) 若若r0，转（，转（3）；若）；若r=0，则此时的，则此时的n就是最大公约数，转（就是最大公约数，转（4）；）； (3) 把把n的值给的值给m，把，把r的值给的值给n，即，即mn，nr，转（，转（1）；）； （4）循环结构的下一个语句。）循环结构的下一个语句。 求最小公倍数的方法：两个数的乘积除以它们的最大公约数。

15、求最小公倍数的方法：两个数的乘积除以它们的最大公约数。 rmn程序设计技术（ VB ）27mod 由键盘输入两个数由键盘输入两个数m，n, 求这两个数的最大公约数求这两个数的最大公约数r和最小公倍数和最小公倍数z。 Dim m, n, x, y, r, z ,t As Integer m = Val(TextBox1.Text) n = Val(TextBox2.Text) if mn then t=m: m=n: n=t x = m y = n 备份最初两个数的值给备份最初两个数的值给x和和y，以备求最小公倍数时使用，以备求最小公倍数时使用 r = m Mod n While r 0 m =

16、 n n = r r = m Mod n End While z = x * y / n 求最小公倍数求最小公倍数 MsgBox(最大公约数为：最大公约数为： + Str(n) + vbCrLf + 最小公倍数为：最小公倍数为： + Str(z), , 求最求最大公约和最小公倍大公约和最小公倍)习题习题4-13 4-13 利用利用while-end whilewhile-end while循环，判定任意循环，判定任意正整数的位数，及其各位数字之和。正整数的位数，及其各位数字之和。 Dim x, s, k As Integer x = Val(InputBox(请输入请输入x：) s = 0 W

17、hile x 0 s = s + x Mod 10 加上末位数加上末位数 k = k + 1 x = x 10 去掉末位数去掉末位数 End While MsgBox(“和和 s=” & s & vbCrLf & “位数位数 k= & k) 4.4 Do4.4 DoLoop Loop 循环结构循环结构 ForForNextNext已知循环次数；已知循环次数；DoDoLoopLoop语句是满足条件时循环就结束。语句是满足条件时循环就结束。 格式：格式： (1) ( 2) Do While 循环条件循环条件 Do Until 循环条件循环条件 语句块语句块 语句块语句块 Exit Do Exit

18、Do Loop Loop (3) (4) Do Do 语句块语句块 语句块语句块 Exit Do Exit Do Loop While 循环条件循环条件 Loop Until 循环条件循环条件While ：是当条件为真时，执行循环体；：是当条件为真时，执行循环体；Until ： 条件为真之前执行循环体，直到条件为真时结束循环。条件为真之前执行循环体，直到条件为真时结束循环。关键字关键字UntilUntil和和WhileWhile之间的区别：之间的区别： 条件反转后就可以用另一个关键字。条件反转后就可以用另一个关键字。例题例题4-134-13 （1）While ：当条件为真：当条件为真时，执行循

19、环体；时，执行循环体； Dim i ，sum As Integer sum = 0 Do While i 100 sum = sum + i i = i+1 Loop循环控制变量循环控制变量i必须在循环使用由语句改变，否则会形成死循环。必须在循环使用由语句改变，否则会形成死循环。例例4-14 4-14 利用循环，对级数数列求和，求利用循环，对级数数列求和，求pipi的近似值。的近似值。 Dim n As Integer, pi, t As Double n = 0 : pi = 0 Do n = n + 1 项数递增项数递增 t = 1 / (2 * n - 1) 每一项的值每一项的值 pi=

20、 pi + (-1) (n - 1) * t 累和累和 Loop While t = 10 -4 循环条件循环条件 TextBox1.Text = pi = + Format(4 * pi, 0.0000)程序设计技术（ VB ）32例例4-15 4-15 计算计算e e的近似值。的近似值。e=1+1/1!+1/2!+1/3!+1/e=1+1/1!+1/2!+1/3!+1/n n!+!+当通项当通项1/1/n n!10!10-7-7时停止计算。时停止计算。 Dim s, t As Double, n As Integer t = 1 n = 1 s = 1 Do t = t / n s = s

21、 + t n = n + 1 Loop Until t 0.0000001 TextBox1.Text = e= + s.ToString例例4-16 4-16 从键盘输入一个整数从键盘输入一个整数N N，求它的阶乘，求它的阶乘. . Dim n , i as integer, jc As Double n = Val(TextBox1.Text) jc = 1 i = 1 Do While i 9999 Msgbox(s=& s &chr(10)&k=& k)猜数游戏猜数游戏给定一个数字，由用给定一个数字，由用户来猜。用户在点户来猜。用户在点击击“猜猜价格”按钮，按钮，录入数值，若猜中，录入

22、数值，若猜中，给出成功提示；如给出成功提示；如没猜中，给出提示；没猜中，给出提示；若用户不想继续猜若用户不想继续猜测，则点击测，则点击“不猜不猜了了”按钮。按钮。程序设计技术（ VB ）36实验实验05- 05- 循环结构作业循环结构作业2 2 1. 教材 P102 习题4-7 利用for循环，编写应用程序，读入一行字符，统计其中有字母、数字、空格和其他字符的个数。 2.教材 p102 习题4-13 （参见：实验教程p40 实例4-5 ） 从键盘输入一个不大于5位的正整数，判断是几位整数。 3.教材p95 例题4-14 利用do循环，求pi的近似值。利用公式计算，直到最后一项的绝对值小于0.0001为止。 pi/4=1-1/3+1/5-1/7+1/9+.+(-1)(n-1)*1/（2*n-1）+ 4. 利用嵌套for循环， 实现实验教程p46 ，图4-11所示格式的9*9乘法表。