第六章 循环结构.ppt

6.1For循环语句(重点)6.2Do.Loop循环语句（重点）6.3定时器、滚动条控件,第六章循环结构,引言,在实际工作中，常遇到一些操作过程并不复杂，但需要反复进行相同处理的问题。比如，按照人口某增长率，对人口增长统计，求全班同学各科的平均成绩，这些问题并不复杂，如果单纯用顺序结构来处理，那将是一个非常乏味且冗长的程序。例如：计算1100所有奇数的和，如果用顺序结构来解决这个问题。程序代码如下,引言,所谓循环结构，就是重复地执行一组语句，直到满足指定的条件退出循环。一般地说，一个循环结构应由4个主要部分构成：（1）循环体：完成循环程序的主要工作（2）循环变量：它保证循环体在循环的过程中，有关的量能按一定的规律变化。（3）循环条件：它控制循环程序按规定的条件正确进行，并结束循环。（4）循环的初始部分：它是保证循环结构能够开始执行的语句，往往编写在程序的开头部分，逻辑上先从这一部分开始执行。,引言,VB中主要提供了2类循环语句：（1）for。next循环结构（一般用于已知循环次数）（2）do。loop循环结构（一般用于未知循环次数）,格式：For=初值To终值Step步长语句块（循环体）Next循环变量工作原理,返回目录,Step缺省为1,用途：ForNext循环一般应用于循环次数已知的场合,例求1+3+5+7+99PrivateSubForm_Click()DimSumAsInteger,IAsIntegerSum=0保存累加和，先清零ForI=1To99Step2Sum=Sum+INextIMsgBox1+3+5+99=定每行*的起始位ForJ=1ToIJ控制每行输出I个*Print*;NextJPrint换行NextIEndSub,返回目录,注意：两重循环不能形成交叉,例1求斐波那契级数的前20项PrivateSubForm_Click()DimA,B,I,TAsIntegerA=1:B=1生成级数第一、二项PrintA;B;ForI=3To20T=A+B产生级数新的一项A=B让B成为下一组的AB=T原来A+B的值成为下一组的BPrintB;IfIMod6=0ThenPrintNextIEndSub,返回目录,斐波那契级数：第一、二项为1第三项开始，每一项的值是前两项值之和,每6个数一行,例2求学生平均成绩ConstN=40学生人数PrivateSubForm_Click()DimSumAsInteger,IAsIntegerDimDataAsInteger,AverageAsSingleSum=0存放累加值的变量清零ForI=1ToN循环40次，步长值为1省略Data=InputBox(输入第eEndSub,返回目录,本循环计算F=I!,例5计算将1角钱兑换成零钱有多少种方案,PrivateSubForm_Click()DimIasinteger,Jasinteger,Kasinteger,SAsIntegerS=0统计兑换1角钱的方案数ForI=0To101分钱个数ForJ=0To10Step22分钱个数ForK=0To10Step55分钱个数IfI+2*J+5*K=10ThenS=S+1NextKNextJNextIMsgBox1角钱兑换成零钱的方案有=;N1;3+;N2;3+;N3;3EndIfNextEndSub,对只知道循环终止条件，可采用Do/Loop循环FOR语句可改写成Do/Loop循环，反之则不然。Do/Loop语句常用的有四种表示形式。,返回目录,先判断后执行,先执行后判断,特点：条件表达式成立执行循环体内容,当型循环,例6计算平均分PrivateSubForm_Click()DimDataAsInteger,SumAsInteger,NAsIntegerDimAverageAsSingleSum=0:N=0Data=InputBox(输入第Sum,N=;NEndSub,返回目录,当Sum的值超出10000时循环才终止。因此Sum值要减去多加的一个N；而在循环过程中，N也被多加了一个1，需要减去。,返回目录,特点：条件表达式不成立执行循环体内容,直到型循环,例8计算平均分(要求同例6)PrivateSubForm_Click()DimDataAsInteger,SumAsInteger,NAsIntegerSum=0:N=0Data=InputBox(输入成绩,计算总分)DoUntilData=-1Sum=Sum+DataN=N+1Data=InputBox(输入数据,计算总分)LoopPrint全班平均分为:;Sum/NEndSub,返回目录,DoWhileData-1Sum=Sum+DataN=N+1Data=InputBox(输入数据,计算总分)Loop,Do.Loop的嵌套：Do.Loop循环次数在两重以上的循环结构例9使用Do.Loop输出如图所示等要三角形。DoWhilei=9PrintSpc(10-i);j=1DoWhilej=2*i-1Print*;j=j+1LoopPrinti=i+1Loop,返回目录,编程1：求的值。有关的级数公式为：要求逐项累加，直到最后一项=0.0000001)s=s+k*signt=t+2k=1/tsign=-signLoopPrint4*sEndSub,最大公约数指某几个整数共有因子中最大的一个。如果有一个自然数a能被自然数b整除，则称a为b的倍数，b为a的约数。几个自然数公有的约数，叫做这几个自然数的公约数。公约数中最大的一个公约数，称为这几个自然数的最大公约数.最小公倍数如果有一个自然数a能被自然数b整除，则称a为b的倍数，b为a的约数，对于两个整数来说，指该两数共有倍数中最小的一个。计算最小公倍数时，通常会借助最大公约数来辅助计算。,编程2:求最大公约数和最小公倍数,求最大公约数和最小公倍数,PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,rAsIntegera=Val(Text1.Text)b=Val(Text2.Text)r=aModbDoWhiler0a=bb=rr=aModbLoopLabel1.Caption=gysh&bLabel2.Caption=gbs&Val(Text1.Text)*Val(Text2.Text)/aEndSub,返回目录,6.3.1滚动条,1.用途：通常附在窗体上协助观察数据或确定位置，也可用于数据输入工具，用来提供某一范围内的数值供用户选择。,注意：滚动条是一个独立的控件，它有自己的事件、方法和属性集。文本框、列表框和组合框内部在特定情况下都会出现滚动条，但它们属于这些控件的一部分，不是一个独立的控件。,返回目录,2.属性Value属性：返回或设置滚动条的当前位置，其返回值始终为介于Max和Min属性值之间的整数。Max、Min属性：使用滚动条作为数量或速度的指示器、输入设备时，可以利用Max和Min属性设置控件Value属性变化范围。,6.3.1滚动条,返回目录,LargeChange、SmallChange属性LargeChange属性返回或设置当用户单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的该变量。SmallChange属性返回或设置当用户单击滚动箭头时，滚动条控件Value属性值的改变量。LargeChange与SmallChange属性取值范围是132767之间的整数，包括1和32767，默认设置值均为1。,6.3.1滚动条,返回目录,3.事件Change事件：滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。可通过编写Change事件过程来协调各部件间显示的数据或使它们同步。Scroll事件：当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。,6.3.1滚动条,返回目录,Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只在滚动结束之后才发生一次。,6.3.1滚动条,返回目录,6.3.2进度条,1.用途：当执行一个耗时较长的操作时通常会用进度条显示事务处理的进程。2.属性：进度条有水平和垂直两种形式，有属性Orientation决定：0-（默认）进度条为水平方向1进度条为垂直方向,返回目录,6.3.2进度条,Max、Min和执行阶段的Value属性Max和Min属性用于设置控件的界限，Value决定控件被填充了多少。,返回目录,6.3.3定时器,定时器控件利用计算机内部的时钟，有规律地定时执行指定的操作，常常用于编写不需要与用户交互就可直接执行的代码，如计时、倒计时、动画等。定时器控件的缺省名称为Timer1、Timer2、，微软建议定时器名称的前缀为：tmr,定时器的大小是不可改变的，并且程序运行时不可见，因此，它没有大小、位置以及Visible属性，在界面设计时可以放置在窗体的任何位置。,返回目录,6.3.3定时器,Enabled属性：用于决定定时器控件是否随时间的推移，在到达时间间隔时响应Timer事件。当Enable属性值为True(缺省值)时，激活定时器开始计时；当Enable属性值为False时，定时器处于休眠状态、不计时。In