Presentation is loading. Please wait.

Presentation is loading. Please wait.

第5章 Visual Basic控制结构 之 循环结构

Similar presentations


Presentation on theme: "第5章 Visual Basic控制结构 之 循环结构"— Presentation transcript:

1 第5章 Visual Basic控制结构 之 循环结构
郭清溥

2 5.3 循环结构 循环是客观世界普遍存在的一种客观现象。
在我们所处理的问题中,常常遇到这样一些情况,它们的计算和处理方法完全一样,只是要求重复计算多次,而每次使用的数据都按照一定的规则在改变。这就是“循环”。 程序设计中的循环,是指在程序设计中,从某处开始有规律地反复执行某一操作块(或程序块)的现象,并称重复执行的该操作块(或程序块)为循环体。

3 5.3 循环结构 问题1. 输入10个数求其和 I=0 : S=0 I=0 : S=0 输入 M I=10 S=S+M 输入 M I=I+1
问题1. 输入10个数求其和 I < 10 S=S+M I=I+1 I=0 : S=0 …… True False 输入 M True I=10 …… False I=0 : S=0 S=S+M I=I+1 输入 M

4 5.3 循环结构 得到N的值 问题2. 计算2 n K=0 : S=1 K<N 直接计算 2n 2^n S=S*2 K=K+1 ……
True False 问题2. 计算2 n 直接计算 2n 2^n

5 5.3 循环结构 5.3.1 固定次数的循环 格式 For <循环变量>=<初值> To <终值> [Step <步长值>] <循环体> [Exit For] Next <循体变量>

6 5.3 循环结构 5.3.1 固定次数的循环 <循环变量>是一个数值变量,作用是:对循环进行控制,根据它的值决定是否终止循环。
For <循环变量>=<初值> To <终值> [Step <步长值>] <循环体> [Exit For] Next <循体变量> <循环变量>是一个数值变量,作用是:对循环进行控制,根据它的值决定是否终止循环。 <初值>是循环开始的值,<终值>是循环结束的值,它们可以是变量、常量、表达式; <步长>是每执行一次循环体后变量获得的增量,可以是正数、负数,可以是整数或小数,但不能为0 ,步长值为+1时可以缺省。

7 5.3 循环结构 5.3.1 固定次数的循环 功能 当循环变量不超过终值时,将一次增加一个步长值地重复执行循环体。
For <循环变量>=<初值> To <终值> [Step <步长值>] <循环体> [Exit For] Next <循体变量> 功能 当循环变量不超过终值时,将一次增加一个步长值地重复执行循环体。 其具体执行过程是:执行到For语句时,循环变量先得到“初值”,然后与“终值”比较。如果循环变量未“超过”终值,那么就执行循环体。执行到Next语句时,循环变量累加一个步长值。之后再与终值比较。若还未“超过”终值,则重复上述过程,直到循环变量“超过”终值。

8 5.3 循环结构 5.3.1 固定次数的循环 流程图 循环变量=初值 循环变量未超过终值? 循环体 循环变量累加一个步长 Next的下一语句
False True 循环体 循环变量累加一个步长 Next的下一语句

9 5.3 循环结构 5.3.1 固定次数的循环 说明 (1) For 和 Next 必须配对使用。
For <循环变量>=<初值> To <终值> [Step <步长值>] <循环体> [Exit For] Next <循体变量> 说明 (1) For 和 Next 必须配对使用。 (2) 当步长值 > 0 时,“超过”就是“>”; 当步长值 < 0 时,“超过”就是“<”。 (3) 循环变量应尽量使用整型变量,以免出现误差。 (4) 循环结束后,循环变量的值不变。即保持当前值。

10 5.3 循环结构 5.3.1 固定次数的循环 例8 编写程序,利用固定次数循环计算 分析: 这是一个典型的固定循环次数的问题。
 为了简单直观起见,假设程序中我们 用S表示待求的和 用K表示累加的数据 用N表示累加的终值

11 5.3 循环结构 5.3.1 固定次数的循环 例 8 Dim N%, S&, K%
N = Val(InputBox("", "输入 N 的值")) S = 0 For K = 1 To N Step 1 S = S + K Next K lblResult.Caption = "前 " & N & " 个数的和为:" & S Step 1可以缺省

12 5.3 循环结构 5.3.1 固定次数的循环 例9 相传古代印度国王舍罕要褒奖他聪明能干的宰相(国际象棋发明者)达依尔。国王问达依尔需要什么,达依尔说:国王只要在国际象棋的棋盘上第一格放一粒麦子,第二格放两粒麦子,第三格放四粒麦子,以后都按此比例每一格都是前一格的两倍,一直放到第64格为止,我将感激不尽!国王一听马上便答应下来,结果,他让扛过来的麦子,不一会儿就用完了。国王很纳闷,这到底是怎么回事呢?我们下面编程序,让计算机来算一算这笔帐,假定1.42×108粒小麦/m3,计算一下这么多小麦有多大的体积。

13 5.3 循环结构 根据题目的描述,我们知道: 第一格放1粒麦子,1=20 第二格放2粒麦子,2=21 第三格放4粒麦子,4=22
5.3.1 固定次数的循环 例9 根据题目的描述,我们知道: 第一格放1粒麦子,1=20 第二格放2粒麦子,2=21 第三格放4粒麦子,4=22 第四格放8粒麦子,4=23 …… 第64格应该有263粒麦子。 分析:

14 5.3 循环结构 5.3.1 固定次数的循环 例9 这实际上是计算: 分析: 为了简单直观起见,假设程序中我们 用S表示待求的和
用I表示累加的数据

15 5.3 循环结构 5.3.1 固定次数的循环 K代表第I项的累加值 这实际上是计算: 例9 Dim I%, S# ,K#
Const T = # S = 0 For I = 0 To 63 S = S + 2 ^ I Next I lblTotal.Caption = lblTotal.Caption & " " & S lblVolume.Caption = lblVolume.Caption _ & " " & S / T & " 立方米" ,K# S = 1: K = 1 For I = 1 To 63 K = 2 * K S = S + K Next I

16 5.3 循环结构 5.3.1 固定次数的循环 例10 编写程序,判断输入的整数是否是素数。
假设程序中我们用Num表示待判断的整数。依据素数的定义,我们不难得出判断Num 是不是素数的方法:将 Num 看作被除数,用 2~Num-1作为除数,一一判断,只有当从2~Num-1 之间的所有整数除 Num 后都不为整数时,Num 才为素数。 实际上,由定理保证,只要当从2 ~ 之间的所有整数除 Num后都不为整数,那么 Num 即为素数。 分析:

17 5.3 循环结构 5.3.1 固定次数的循环 例10 编写程序,判断输入的整数是否是素数。
程序中设置了一个逻辑型变量“Sign”,其初始值为“True”。循环体中的选择语句用来判断 Num 能否整除循环变量 I 。如果能整除,则 Num 不为素数。此时,令Sign取值“False”。当确认了 Num 不为素数以后,循环就不需要再继续下去了。因此,程序中可以使用Exit For语句退出循环。 循环结束后,对 Sign 进行判断,如果 Sign 的值为“True”,则在标签控件“lblResult”的“Caption”中显示“是素数”;否则就显示“不是素数”。 分析:

18 5.3 循环结构 5.3.1 固定次数的循环 例10 编写程序,判断输入的整数是否是素数。

19 5.3 循环结构 转下页 5.3.1 固定次数的循环 例10 编写程序,判断输入的整数是否是素数。 Dim I&, Num&
Dim Sign As Boolean Sign = True Num = Val(txtNum.Text) For I = 2 To Sqr(Num) If Num / I = Int(Num / I) Then Sign = False Exit For End If Next I 程序中设置了一个逻辑型变量“Sign”,其初始值为“True”。 当确认Num 不为素数时,令Sign取值“False”。使用Exit For语句退出循环。 转下页

20 5.3 循环结构 接上页 5.3.1 固定次数的循环 例10 编写程序,判断输入的整数是否是素数。 If Sign Then
lblResult.Caption = "是素数" Else lblResult.Caption = "不是素数" End If 接上页

21 5.3 循环结构 5.3.2 条件循环 格式 While <条件> <循环体> Wend 功能
  <循环体> Wend 功能 当“条件”成立时,顺序执行循环体。当“条件”不成立时,脱离循环,程序转到Wend后继续执行。

22 5.3 循环结构 5.3.2 条件循环 说明 (1) While和Wend必须配对使用。 (2) 为使程序正确执行,循环中必须有改变条
件的语句。 (3) 要想执行循环体,必须先执行While。

23 5.3 循环结构 5.3.2 条件循环 例11 有一张面积足够大的纸,如果可能,你将它不断的对折。编写程序,计算对折多少次以后可以超过珠穆朗玛峰( mm)的高度? 分析: 我们用 H 表示纸张的厚度,对折一次其厚度就扩大一倍,即H=H*2,用N记录对折的次数 ,用条件控制,看折多少次以后可以超过 。

24 5.3 循环结构 5.3.2 条件循环 例11 有一张面积足够大的纸,如果可能,你将它不断的对折。编写程序,计算对折多少次以后可以超过珠穆朗玛峰( mm)的高度?

25 5.3 循环结构 5.3.2 条件循环 例11 Private Sub cmdStart_Click() Dim H#, N% N = 0
H = Val(InputBox("输入纸的厚度(mm)")) lblPaper.Caption = "纸的厚度:" & H & "mm" While H <= H = H * 2 N = N + 1 Wend lblH.Caption = "对折" & N & "次后的厚度为:" & H & "mm" End Sub

26 重复前一步直到将整个数据处理完毕(N=0)
5.3 循环结构 5.3.2 条件循环 例12 任给一自然数,编写程序,求其反序数 。 分析: 我们用N表示输入的自然数,用M表示其反序数 用N 与 10 求模,得出个位,该位计入M; 用N 除以10取整,去掉个位,然后再与10求模,得出新数据的个位,该位与M乘以10以后作和; 重复前一步直到将整个数据处理完毕(N=0)

27 5.3 循环结构 5.3.2 条件循环 例12 任给一自然数,编写程序,求其反序数 。

28 5.3 循环结构 5.3.2 条件循环 例12 任给一自然数,编写程序,求其反序数 。 这样修改条件 While N 结果会如何?
Private Sub cmdStart_Click() Dim N&, M&, T% N = Val(txtN.Text) M = 0 While N <> 0 T = N Mod 10 M = M * 10 + T N = Int(N / 10) Wend txtM.Text = M End Sub 这样修改条件 结果会如何? While N

29 5.3 循环结构 5.3.2 条件循环 例12 任给一自然数,编写程序,求其反序数 。 能按字符处理吗?
Private Sub cmdStart_Click() Dim N&, M&, T% N = Val(txtN.Text) M = 0 While N <> 0 T = N Mod 10 M = M * 10 + T N = Int(N / 10) Wend txtM.Text = M End Sub 能按字符处理吗?

30 5.3 循环结构 5.3.3 不固定次数的循环 先比较条件 1. 格式 格式1: Do [While|Until <条件>]
<循环体> [Exit Do] Loop 格式2: Do <循环体> [Exit Do] Loop [While|Until <条件>] 后比较条件

31 5.3 循环结构 5.3.3 不固定次数的循环 功能 “While”,表示“当”条件成立时执行循环
(类似While-Wend循环)(当型循环); “Until”,则表示“直到”条件成立才不 执行循环 (条件为假时执行循环)(直到型循环)。

32 5.3 循环结构 5.3.3 不固定次数的循环 该循环的常用格式为 Do <循环体1>
If <条件> Then Exit Do <循环体2> Loop 该格式中必须有一个语句决定是否退出Do循环

33 … 5.3 循环结构 5.3.3 不固定次数的循环 例13 编写程序, 求两个正整数的最大公约数。
我们用辗转相除的方法求出两个数A,B的最大公约数。辗转相除的方法就是求A除以B的余数,当这个余数为0时,除数即为最大公约数。 分析: 如果R≠0, A B B R 直到R=0 则B为所求

34 5.3 循环结构 <>0 <>0 <>0 = 0 例如:A=72, B=28 A B R 72 28
5.3.3 不固定次数的循环 例13 编写程序, 求两个正整数的最大公约数。 例如:A=72, B=28 A 72 B 28 R 16 <>0 Mod 28 Mod 16 12 <>0 Mod 12 4 <>0 16 12 Mod 4 = 0

35 5.3 循环结构 5.3.3 不固定次数的循环 例13 编写程序, 求两个正整数的最大公约数。

36 5.3 循环结构 5.3.3 不固定次数的循环 例13 编写程序, 求两个正整数的最大公约数。 Dim A%, B%, R%
A = Val(txtA.Text) B = Val(txtB.Text) Do R = A Mod B If R = 0 Then Exit Do A = B B = R Loop lblResult.Caption = "A、B 两数的最大公约数是:" & B

37 当条件循环中需要有中途退出时可以使用Do While语句
5.3 循环结构 5.3.3 不固定次数的循环 当条件循环中需要有中途退出时可以使用Do While语句 Do While <条件> <循环体1> If <条件> Then Exit Do <循环体2> Loop

38 5.3 循环结构 循环结构的嵌套 循环结构做为循环体的一部分出现时,就被叫做循环的嵌套。它实际上是循环结构中又包含了循环结构。这种嵌套可以是步长型循环的自身嵌套,可以是当型循环的自身嵌套,还可以是当型循环嵌套步长型循环或者步长型循环嵌套当型循环等。 包含循环结构的循环叫外循环,被包含的循环叫内循环。使用循环嵌套时一定要注意,内外循环不能交叉,各层循环的循环变量名不能相同。

39 5.3 循环结构 [ [ [ [ [ [ × √ 5.3.4 循环结构的嵌套 不能交叉 FOR A FOR B FOR C ……
循环结构的嵌套 不能交叉 [ FOR A FOR B FOR C …… NEXT C NEXT B NEXT A [ FOR A FOR B FOR C …… NEXT B NEXT A NEXT C [ [ [ [ ×

40 * ** *** **** ***** 5.3 循环结构 第 1 行 1 个“*”, 第 2 行 2 个“*”, ……
循环结构的嵌套 例14 利用循环语句编写程序,输出如下图形 : 分析: * ** *** **** ***** 第 1 行 1 个“*”, 第 2 行 2 个“*”, …… 第 5 行 5 个“*”, 第 I 行 ? 个“*” I

41 5.3 循环结构 5.3.4 循环结构的嵌套 例14 利用循环语句编写程序,输出如下图形 : 我们用外层 I 循环控制行数。
循环结构的嵌套 例14 利用循环语句编写程序,输出如下图形 : 我们用外层 I 循环控制行数。 内层 J 循环控制每行的符号“*”的个数。 有前面的分析我们知道,第 I 行 I 个“*”,也就是说,内层循环的终值与外层循环的当前值一致。同时每一行上的第一个“*“都从第一个位置开始显示。 分析:

42 * ** *** **** ***** 5.3 循环结构 5.3.4 循环结构的嵌套 例14 利用循环语句编写程序,输出如下图形 : 解法1
循环结构的嵌套 例14 利用循环语句编写程序,输出如下图形 : 解法1 …… For I = 1 To 5 For J = 1 To I Print "*" ; Next J Print Next I * ** *** **** *****

43 * ** *** **** ***** 5.3 循环结构 5.3.4 循环结构的嵌套 例14 利用循环语句编写程序,输出如下图形 : 解法2
循环结构的嵌套 例14 利用循环语句编写程序,输出如下图形 : 解法2 * ** *** **** ***** …… For I = 1 To 5 Print String(I, "*") Next I

44 5.3 循环结构 第1行首个“*”的位置 5, 第2行首个“*”的位置 4, 第3行首个“*”的位置 3, 第4行首个“*”的位置 2,
循环结构的嵌套 例15 利用循环语句编写程序,输出如下图形 : 第1行首个“*”的位置 5, 分析: 第2行首个“*”的位置 4, 第3行首个“*”的位置 3, 第4行首个“*”的位置 2, 第5行首个“*”的位置 1, 第I行首个“*”的位置 ? 6-I

45 5.3 循环结构 第 1 行 1 个“*”, 第 2 行 3 个“*”, 第 3 行 5 个“*”, 第 4 行 7 个“*”,
循环结构的嵌套 例15 利用循环语句编写程序,输出如下图形 : 分析: 第 1 行 1 个“*”, 第 2 行 3 个“*”, 第 3 行 5 个“*”, 第 4 行 7 个“*”, 第 5 行 9 个“*”, 第 I 行 ? 个“*” 2*I-1

46 5.3 循环结构 5.3.4 循环结构的嵌套 例15 利用循环语句编写程序,输出如下图形 : 解法1 …… For I = 1 To 5
循环结构的嵌套 例15 解法1 利用循环语句编写程序,输出如下图形 : …… For I = 1 To 5 Print Tab(6-I); For J = 1 To 2*I-1 Print "*"; Next J Print Next I

47 5.3 循环结构 5.3.4 循环结构的嵌套 例15 解法2 利用循环语句编写程序,输出如下图形 : …… For I = 1 To 5
循环结构的嵌套 例15 解法2 利用循环语句编写程序,输出如下图形 : …… For I = 1 To 5 Print Tab(6-I);String(2*I-1, "*") Next I

48 5.3 循环结构 循环结构的嵌套 利用循环语句编写程序,输出如下图形 :

49 5.3 循环结构 ? A BBB CCCCC DDDDDDD EEEEEEEEE M GGG CCCCC HHHHHHH QQQQQQQQQ
循环结构的嵌套 利用循环语句编写程序,输出如下图形 : A BBB CCCCC DDDDDDD EEEEEEEEE M GGG CCCCC HHHHHHH QQQQQQQQQ A ABC ABCDE ABCDEFG ABCDEFGHI

50 5.3 循环结构 While For 三种循环语句的比较
For循环语句用于循环次数已知的情况,根据指定的次数重复执行For 和Next之间的循环体。 For

51 5.3 循环结构 三种循环语句的比较 DO Do循环实际上是不固定次数的条件循环,但它的形式非常灵活,既可以指定循环开始的条件,也可以指定循环结束的条件;既可以先判断条件,也可以后判断条件 Do循环常常使用Do—Loop格式。 Go!

52 第5章作业2 P116 习题:一、二 P121 习题:三 1. 2. 3.


Download ppt "第5章 Visual Basic控制结构 之 循环结构"

Similar presentations


Ads by Google