VB五章控制结构-循环结构.ppt

《VB五章控制结构-循环结构.ppt》由会员分享，可在线阅读，更多相关《VB五章控制结构-循环结构.ppt（34页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、教教学学课课件件循环结构循环结构 在Visual Basic程序的三种结构中,循环结构是一种重要结构。循环的本质循环的本质：不断地重复某种动作。对计算机程序而言，循环必须具备两个重要因素：对计算机程序而言，循环必须具备两个重要因素：1.在一定的条件下，重复执行一组语句2.必然出现不满足条件的情况，使循环终止教教学学课课件件思考题编写程序实现计算：0+1+2+3+4+n的值前后两项之差都为1，是一个等差数列Sum=0Sum=sum+1Sum=sum+2Sum=sum+3Sum=sum+nSum=sum+ii=i+1i是从1到n递增1的数列重复执行n次教教学学课课件件一、循环程序设计结构 VB中提

2、供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。Visual Basic 支持的循环结构有：For.Next结构 DoLoop 结构 WhileWend goto重点掌握：DoLoop、For.Next、WhileWend等前三种循环教教学学课课件件1、ForNext循环结构循环结构循环体Exit For循环体循环变量增加步长循环变量获得初值FT循环变量在终值内For循环的执行过程语法格式：For 循环变量=初值 To 终值 Step 步长 Exit For Next 循环变量记住了教教学学课课件件编程计算：S=1+2+3+100Dim S%,i%S=0 For i=1 to

3、 100 S=S+iNext iPrint i，S 思考思考:求100以内的奇数和、偶数和怎样改程序？求10！怎样改程序？注意执行过程！注意执行过程！循环结束后循环变量循环结束后循环变量i的值为多少的值为多少教教学学课课件件说明说明 格式中的参数说明：l 循环的循环的初值、终值初值、终值和和步长步长都是数值表达式，其值不一定是都是数值表达式，其值不一定是 整数，可以是实数。整数，可以是实数。l 增量参数可正可负。如果增量为正，则初值必须小于等于增量参数可正可负。如果增量为正，则初值必须小于等于 终值，否则不能执行循环体内的语句；如果增量为负，则终值，否则不能执行循环体内的语句；如果增量为负，则

4、 初值必须大于等于终值。如果没有设置初值必须大于等于终值。如果没有设置stepstep，则增量默认则增量默认 为为1 1。l 当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。循环次数由初值、终值和步长决定，计算公式为：循环次数由初值、终值和步长决定，计算公式为：循环次数循环次数=INT（终值（终值 初值）初值）/步长步长+1）For语句和语句和Next语句必须成对出现，不能单独使用。语句必须成对出现，不能单独使用。Next是循环终端语句，在是循环终端语句，在Next后面的循环变量与后面的循环变量与For中的循中的循 环变量

5、必须相同。当循环是单层循环时，环变量必须相同。当循环是单层循环时，Next后面的循环变量后面的循环变量 可以不写。可以不写。教教学学课课件件 如如果果要要在在循循环环变变量量到到达达终终值值前前退退出出循循环环，可可用用Exit Exit ForFor语语句句来来实实现现。该语句可以在该语句可以在ForFor循环中出现多次，且位置不限。循环中出现多次，且位置不限。如：前例中加入条件如：前例中加入条件“当当sum超过超过400时跳出循环时跳出循环”。For i=1 to 500 step 100 S=S+I If s400 then Exit forNext iPrint i,S 教教学学课课件

6、件2、DoLoop循环结构循环结构 DoLoop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式：.Do While Loop 语句 先判断条件值，如果为真，执行循环体，否则退出先判断条件值，如果为真，执行循环体，否则退出 .Do Until Loop 语句 先判断条件值，如果为假，执行循环体，直到为真时退出先判断条件值，如果为假，执行循环体，直到为真时退出 .Do Loop While 语句 先执行循环体，后判断条件值，为真继续循环，否则退出先执行循环体，后判断条件值，为真继续循环，否则退出 .Do Loop Until 语句 先执行循环体，后判断条件值，为假继续，直到为真退出先执

7、行循环体，后判断条件值，为假继续，直到为真退出教教学学课课件件 .Do While Loop语句Dim S%,i%S=0For i=1 to 100 S=S+I If s400 then Exit forNext iPrint S=,S Dim S%,i%S=0i=1Do while s400 S=S+i i=i+1LoopPrint S=,S 教教学学课课件件说明：条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。Do While/Until和Loop应成对出现。循环体中要有控制循环的语句，以避免出现死循环。由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语

8、句。所以，这种循环可以一次也不执行循环体。Exit Do 表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句教教学学课课件件注意：注意：至少要执行循环体一次。与Do While循环的区别：Do While循循环环先先测测试试条条件件是是否否成成立立，只只有有成成立立才才执执行行循循环环；而而该该循循环环先先执执行行循循环环体体，后测试条件是否成立。后测试条件是否成立。（3）Do Loop While语句语句.Do Loop Until语句语句 语法格式：语法格式：Do 循环体 Exit Do 循环体 Loop Until条件表达式语法格式：语法格式：Do 循环体循环体 Exit Do

9、 循环体循环体 Loop While条件表达式条件表达式教教学学课课件件例：例：对比以下两段程序，分别写出其执行结果对比以下两段程序，分别写出其执行结果Dim i As Integer i=1 Do While i 1 Print i LoopDim i As Integer i=1 Do Print i Loop While i 1练习：练习：分别用分别用For.Next语句，语句，Do whileLoop语句语句和和DoLoop While语句编写代码求语句编写代码求100以内偶数之和。以内偶数之和。教教学学课课件件功能：功能：当While的条件表达式的值是True时执行循环体内的代码，直

10、到While后的条件表达式的值为False。说明：说明：它与Do Loop语句的差别是：While Wend语句中不能使用Exit语句跳出循环。语法格式：语法格式：While 条件表达式）等价于 do While（条件表达式）循环体 循环体Wend LOOP3、WhileWend循环结构循环结构教教学学课课件件例题 假设我国现有人口12亿，若年增长率为1.5%，试计算多少年后我国人口增加到或超过20亿。【分析】人口计算公式为：p=y(1+r)n y为人口初值，r为年增长率，n为年数。教教学学课课件件Private Sub Form_click()Dim p!,r!,I%p=12 r=0.015

11、 I=0While p n(2)r=m mod n(3)若若r=0，则，则n为最大公约数，结束；否则为最大公约数，结束；否则执行执行(4)(4)mn，nr，再重复执行，再重复执行(2)教教学学课课件件二、循环的嵌套二、循环的嵌套多重循环结构多重循环结构1、如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，2、嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：教教学学课课件件（1）For I=.For J=.Next J .Next I（2）For I=.Do While/Until

12、.Loop .Next I（3）Do While.For J=.Next J .Loop（4）Do While/Until.Do While/Until .Loop .Loop教教学学课课件件例题：例题：在窗体上输出在窗体上输出100以内质数（又称素数以内质数（又称素数）。）。Private Sub Command1_Click()Dim value As IntegerDim counter As IntegerDim num As IntegerMe.Cls For value=2 To 100 For counter=2 To value-1 If value Mod counter=0

13、 Then Exit For End If Next If counter=value Then Print value;Tab;num=num+1 If num Mod 3=0 Then Print End If NextPrintPrint 100以内的质数有以内的质数有&num&个个End Sub教教学学课课件件例题：例题：在文本框内输出水仙花数。在文本框内输出水仙花数。Private Sub command1_Click()Dim x%,y%,z%,n%For x=0 To 9 For y=0 To 9 For z=1 To 9 If x 3+y 3+z 3=x+y*10+z*100

14、Then text1.text=x 3+y 3+z 3 End If Next Next NextEnd subPrivate Sub command1_Click()text1.text=“”Dim x%,y%,z%,n%For n=100 To 999 x=n Mod 10 y=n 10 Mod 10 z=n 100 If x 3+y 3+z 3=n Then text1.text=x 3+y 3+z 3 End If NextEnd sub“水仙花数水仙花数”是指一个三位数，它是指一个三位数，它的各位数字的立方和等于其本身，的各位数字的立方和等于其本身，比如：比如：153=13+53+3

15、3 教教学学课课件件 我国古代数学家章丘建在“算经”里提出一个 世界数学史上有名的百钱百鸡问题：鸡翁 一，值钱五，鸡母一，值钱三，鸡雏一，值 钱一。百钱买百鸡，问鸡翁、母、雏各几 何？找出1999之间所有的同构数同构数：该数出现在它的平方数的右边，如：525，25625输入一个整数，判断其是否是“完全数”完全数：该数的因子之和等于其本身，如28=1+2+4+7+14练习：教教学学课课件件例题：例题：打印打印九九乘法表九九乘法表 For i=1 To 9 For j=1 To 9 e=i&j&=&i*j Print Tab(j-1)*9+1);e;Next j Print Next i教教学学课

16、课件件例题：例题：打印打印九九乘法表九九乘法表 For i=1 To 9 For j=1 To i e=j&i&=&i*j Print Tab(j-1)*9+1);e;Next j Print Next i教教学学课课件件跳转语句跳转语句格式格式：GoTo 行标签行标签|行号行号GoTo语句可以改变程序执行的顺序，跳过程序的某一部分去执行另一部分，或者返回已经执行过的某语句使之重复执行。行标签可以是任何字符的组合，以字母开头，以冒号(:)结尾。行号由整型数字组成，后面没有冒号。GoTo语句只能在一个过程中使用。GoTo语句是无条件转移语句，但常与条件语句结合使用。教教学学课课件件跳跳转语转语句

17、句举举例：求例：求1+2+3+100的和的和Private Sub Command1_Click()Dim sum&,i%i=1sum=0again:If i=100 Then sum=sum+i i=i+1 GoTo again End IfPrint sumEnd Sub 教教学学课课件件对于循环的嵌套，要注意以下事项：对于循环的嵌套，要注意以下事项：(1)内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；外循环必须完全包含内循环，不能交叉；正 确错 误 For i=1 To 10 For j=1 To 20 Next i Next

18、j For i=1 To 10 For j=1 To 20 Next j Next i教教学学课课件件三、程序调试错误类型语法错误、运行时错误和逻辑错误三类。语法错误、运行时错误和逻辑错误三类。1 1、语法错误、语法错误错误的代码显示为红色，窗错误的代码显示为红色，窗口上显示出错的原因。口上显示出错的原因。本段程序使用了中文逗号本段程序使用了中文逗号 教教学学课课件件2、运行错误、运行错误指令代码执行了一非法操作引起的。例如，类指令代码执行了一非法操作引起的。例如，类型不匹配、试图打开一个不存在的文件等。程型不匹配、试图打开一个不存在的文件等。程序会自动中断，并给出有关的错误信息。序会自动中断

19、，并给出有关的错误信息。教教学学课课件件 如果使用，则 Option Explicit 语句必须出现在文件中其他所有源语句之前。当 Option Explicit 出现在文件中时，必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。试图使用未声明的变量名将发生编译时错误。Option Explicit 语句语句 用于在文件级强制对该文件中的所有变量进行显式声明。注意:使用使用 Option Explicit Option Explicit 可避免拼错现有变量的名称，可避免拼错现有变量的名称，或避免在变量范围不清楚的代码中产生混淆。或避免在变量范围不清楚的代码中

20、产生混淆。教教学学课课件件3、逻辑错误、逻辑错误 程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。例如，运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要程序员仔细地阅读分析程序，并具有调试程序的经验。教教学学课课件件三、程序调试调试和排错 VB的三种模式 1、设计模式(设计)可以进行程序的界面设计、属性设置、代码编写等。2、运行模式(运行)执行启动命令进入运行模式。在此阶段，可以查看程序代码，但不能修改。3、中断模式(Break)执行中断命令，进入中断模式。在中断模式下可以查看代码、修改代码、检查数据。教教学学课课件件调试和排错调试和排错-插入断点插入断点按下F9键 按F8键跟踪执行 鼠标指向所鼠标指向所关心的变量关心的变量