VB教程-循环结构

VBVB基础教程VB教程---循环结构VB基础教程循环结构在ViualBaic程序的三种结构中,循环结构是一种重要结构循环的本质：不断地重复某种动作。循环的本质对计算机程序而言，循环必须具备两个重要因素：对计算机程序而言，循环必须具备两个重要因素：教学课件在一定的条件下，重复执行一组语句2.必然出现不满足条件的情况，使循环终止VB基础教程思考题编写程序实现计算：0+1+2+3+4+…+n的值前后两项之差都为1,是一个等差数列Sum=0Sum=um+1Sum=um+2Sum=um+3…Sum二um+ni是从1到n递增1的数列重复执行n次教学课件Sum=um+ii=i+1VB基础教程一、循环程序设计结构VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。ViualBaic支持的循环结构有：教学课件重点掌握：Do・・・Loop、For.Ne某t、While・・・Wend等前三种循环☆For...Ne某t结构☆Do…Loop结构☆While…Wend^gotol、For・・・Ne某t循环结构For・・・Ne某t循环结构语法格式：For循环变量二初值To终值［Step步长］循环变量获得初值〈循环体〉［E某itFor］〈循环体〉Ne某t［循环变量］循环变量在终值内FT循环体教学课件E某itFor循环体循环变量增加步长记住了For循环的执行过程VB基础教程编程计算：S=l+2+3+・・・+100DimS%,i%S=0Fori=ltol00S二S+iNe某tiPrinti,S，注意执行过程！！注意执行过程！！循环结束后循环变量i的值为多少循环结束后循环变量的值为多少教学课件思考:思考求100以内的奇数和、偶数和怎样改程序？求10！怎样改程序？说明①格式中的参数说明：循环的初值、终值和步长都是数值表达式,循环的初值、终值和步长都是数值表达式，其值不一定是初值都是数值表达式整数,可以是实数。整数,可以是实数。增量参数可正可负。如果增量为正,增量参数可正可负。如果增量为正,则初值必须小于等于终值,否则不能执行循环体内的语句；如果增量为负,终值,否则不能执行循环体内的语句；如果增量为负,则初值必须大于等于终值。如果没有设置teptep,初值必须大于等于终值。如果没有设置tep，则增量默认为1。当初值等于终值时,不管步长是正数还是负数,都执行一次循环体。当初值等于终值时,不管步长是正数还是负数,都执行一次循环体。教学课件②循环次数由初值、终值和步长决定，计算公式为：循环次数由初值、终值和步长决定，计算公式为：循环次数=INT（（终值-初值）/步长）（（终值初值）步长步长+1）循环次数（（语句和Ne某t语句必须成对出现，不能单独使用。语句必须成对出现，③For语句和语句和语句必须成对出现不能单独使用°Ne某t是循环终端语句，在Ne某t后面的循环变量与是循环终端语句，后面的循环变量与For中的循是循环终端语句后面的循环变量与中的循环变量必须相同。当循环是单层循环时，环变量必须相同。当循环是单层循环时，Ne某t后面的循环变量后面的循环变量可以不写。可以不写。VB基础教程④如果要在循环变量到达终值前退出循环，可用E某itFor语句来实现。如果要在循环变量到达终值前退出循环，可用E某itFor语句来实现。语句来实现该语句可以在For循环中出现多次，且位置不限。For循环中出现多次该语句可以在For循环中出现多次，且位置不限。女口：前例中加入条件“当um超过前例中加入条件“超过400时跳出循环”。时跳出循环”超过时跳出循环Fori=1to500tep100S=S+IIf>400thenE某itforNe某tiPrinti,S教学课件VB基础教程2、Do…Loop循环结构Do…Loop循环结构Do…Loop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式：(l).DoWhile・・・Loop语句⑵.DoUntil…Loop语句先判断条件值，如果为真，执行循环体，先判断条件值，女果为真，执行循环体，否则退出先判断条件值，女果为假执行循环体，先判断条件值，如果为假，执行循环体，直到为真时退出先执行循环体，后判断条件值，为真继续循环，先执行循环体，后判断条件值，为真继续循环，否则退出先执行循环体，后判断条件值，为假继续，先执行循环体，后判断条件值，为假继续，直到为真退出教学课件⑶.Do…LoopWhile语句⑷.Do…LoopUntil语句VB基础教程.DoWhile・・・Loop语句语法格式：DoWhile〈条件表达式〉〈循环体〉［E某itDo］〈循环体〉LoopDimS%,i%S=0i=1Dowhile<=400S=S+ii=i+1LoopPrint"S=",SDoUntil…Loop语句语句语法格式：DoUntil〈条件表达式〉〈循环体〉［E某itDo］〈循环体〉LoopDimS%,i%S=0i=1Dountil>400S=S+ii=i+1LoopPrint"S=",S教学课件DimS%,i%S=0Fori=ltol00S二S+IIf〉400thenE某itforNe某tiPrint"S=",SVB基础教程说明：①条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。②DoWhile/Until和Loop应成对出现。③循环体中要有控制循环的语句，以避免出现死循环。④由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环可以一次也不执行循环体。⑤E某itDo表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句教学课件VB基础教程Do・・・LoopWhile语句)语句语法格式：语法格式：Do循环体〉〈循环体〉［E某itDo］循环体〉〈循环体〉LoopWhile〈条件表达式〉〈条件表达式〉.Do・・・LoopUntil语句语句语法格式：语法格式：Do〈循环体〉［E某itDo］〈循环体〉LoopUntil〈条件表达式〉教学课件注意：注意：①至少要执行循环体一次。②与DoWhile循环的区别：DoWhile循环先测试条件是否成立，只有循环先测试条件是否成立，循环先测试条件是否成立成立才执行循环；而该循环先执行循环体，成立才执行循环；而该循环先执行循环体，后测试条件是否成立。后测试条件是否「卜、・成立。VB基础教程的有效值。例：输入有效位数，按下述公式计算圆周率n的有效值。输入有效位数，按下述公式计算圆周率的有效值m=val（te某t1.te某t）pai=2:p=0Dot=:p=pr（2+p）:pai=t某2/pLoopUntilab（t-）〈0.「m教学课件VB基础教程3、While・・・Wend循环结构、循环结构语法格式：语法格式：While〈条件表达式）等价于循环体Wend教doWhile（条件表达式）学）课循环体件LOOP功能：功能：当While的条件表达式的值是True时执行循环体内的代码，直到While后的条件表达式的值为Fale。说明：说明：它与Do-Loop语句的差别是：While・・・Wend语句中不能使用E某it语句跳出循环。VB基础教程几种循环语句比较For....toNe某t循环类型循环控制条件循环变量初值使循环结束使用场合当型循环循环变量大于/小于终值在FOR语句中For语句中无需专门语句循环次数容易确定Dowhile/until....Loop当型循环条件成立/不成立doLoopWhile/until...直到循环条件成立/不成立教学课件在DO之前必须用专门语句条件件易给出在DO之前必须使用专门语句条件件易给出VB基础教程练习：练习：1、求100~200之间不能被整除的数。、之间不能被3整除的数之间不能被整除的数。2、判断一个数是否为质数。、判断一个数是否为质数。解1:value=val（Te某t1.te某t）Forcounter=2Tovalue-1IfvalueModcounter=0ThenE某itForNe某tIfcounter=valueThenPrint"质数"教学课件解2:Value=Val（Te某t1.Te某t）Counter=2DoUntilValueModCounter=0OrCounter=ValueCounter=Counter+lLooplfCounter二ValueThenPrint"质数VB基础教程3、输入两个正整数，求它们的最大公约数。、输入两个正整数，求它们的最大公约数。输入两个自然数m,输入两个自然数nr=mmodn若r=0,则n为m的最大公约数，为的最大公约数若r〈〉0,则m=n,n=r,,重复执行第二步mm=Te某t1.Te某tn=Te某t2.Te某tDot=mModnm=n:n=tLoopUntiln=0Printmn教学课件4、验证哥德巴赫猜想:任意一个大于等于6的偶数都可以分解为两个质数之和。基本思想：n为大于等于6的任一偶数，可分解为nl和n2两个数，分别检查n1和n2是否为素数，如都是，则为一组解。如n1不是素数，就不必再检查n2是否素数。先从n1=3开始，检验n1和n2(n2二N-n1)是否素数。然后使n1+2再检验n1、n2是否素数，…直到n1=n/2为止。VB基础教程循环的嵌套——多重循环结构二、循环的嵌套多重循环结构1、如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套2、嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。上面介绍的几种循环控