第六章循来环结构.pptVIP

返回目录 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时，定时器处于休眠状态、不计时。 Interval属性:用于设定定时器触发Timer事件的事件间隔，单位为毫秒。它的取值范围0~65535,1000代表1秒，缺省值为0，此时，定时器不起作用。如果一个窗体中有多个定时器控件，它们各自的时间间隔是相互独立的。 返回目录 6.3.3 定时器 定时器控件只响应一个事件，即Timer事件。 当Enable属性值为True且Interval属性值大 于0时，该事件以Interval属性指定的时间间 隔发生。 * * * * * * * * * * * 6.1 For循环语句 (重点) 6.2 Do….Loop循环语句（重点） 6.3 定时器、滚动条控件 第六章循环结构 引言 在实际工作中，常遇到一些操作过程并不复杂，但需要反复进行相同处理的问题。比如，按照人口某增长率，对人口增长统计，求全班同学各科的平均成绩，这些问题并不复杂，如果单纯用顺序结构来处理，那将是一个非常乏味且冗长的程序。 例如：计算1~100所有奇数的和，如果用顺序结构来解决这个问题。。。。。。 程序代码如下 引言 所谓循环结构，就是重复地执行一组语句，直到满足指定的条件退出循环。 一般地说，一个循环结构应由4个主要部分构成： （1）循环体：完成循环程序的主要工作 （2）循环变量：它保证循环体在循环的过程中，有关的量能按一定的规律变化。 （3）循环条件：它控制循环程序按规定的条件正确进行，并结束循环。 （4）循环的初始部分：它是保证循环结构能够开始执行的语句，往往编写在程序的开头部分，逻辑上先从这一部分开始执行。 引言 VB中主要提供了2类循环语句： （1）for。。。next循环结构 （一般用于已知循环次数） （2）do。。。loop循环结构 （一般用于未知循环次数） 格式： For 循环变量 = 初值 To 终值 [Step 步长] 语句块（循环体） Next [循环变量] 工作原理 返回目录 循环变量=初值 循环变量超出终值？ 循环体 循环变量增加一个步长 No Yes Step缺省为 1 6.1.1 For循环语句 用途：For…Next循环一般应用于循环次数已知的场合 [例] 求1+3+5+7+…+99 Private Sub Form_Click() Dim Sum As Integer, I As Integer Sum = 0 保存累加和，先清零 For I = 1 To 99 Step 2 Sum = Sum + I Next I MsgBox 1+3+5+…+99= Sum 求和 End Sub 返回目录 本例的特点是数据项之间相差2， 即Step的值为2 思考： 例中当输出对话框出现时，I 的值是多少？ 如果省略Step 2，程序的结果如何？ For语句能不能改写成For I=99 To 1 Step -2 ？ 嵌套：在一个循环体内又包含了一个完整的循环结构称为循环的嵌套。 [例] 在窗体上显示一个几何图形 Private Sub Form_Click() Dim I, J As Integer I、J为循环变量 For I = 1 To 8 I 控制行数(8行) Print Tab(10 - I); 定每行*的起始位