《第6章滚动条、计时器和循环程序.ppt》由会员分享，可在线阅读，更多相关《第6章滚动条、计时器和循环程序.ppt（32页珍藏版）》请在三一办公上搜索。
1、第6章 滚动条、计时器和循环程序,（时间：2次课，4学时）,第6章 滚动条、计时器和循环程序,教学提示：在上一章中，我们对分支结构程序设计进行了介绍。为了使编写的代码重复执行，要使用循环结构程序或计时器。本章将介绍循环程序设计、滚动条和计时器的使用。循环结构程序设计是用程序结构控制代码重复执行，计时器是用计算机内部时钟控制代码重复执行。滚动条用于输入、输出数据，也用于与那些不支持滚动的控件配合使用，给它们提供滚动观察的功能。学习中要注意滚动条和计时器的特殊属性和循环程序设计的基本思想。教学目标：要掌握ForNext循环结构、顶部判断型DoLoop循环结构、底部判断型DoLoop循环结构和循环的
2、嵌套；掌握滚动条和计时器的主要属性和使用方法。,第6章 滚动条、计时器和循环程序,6.1 认识滚动条、计时器和循环程序 6.2 循环结构 6.3 滚动条和计时器控件 6.4 综合运用,6.1 认识滚动条、计时器和循环程序,计时器控件常用于提供固定时间间隔的中断，以便执行特定的事件过程；滚动条控件用于输入数据或显示数据的变化，也用于与那些不支持滚动的控件配合使用，给他们提供滚动观察的功能。循环程序结构是利用程序控制代码重复执行。引例6.1 带滚动条的九九表。设计一个窗体，在窗体上添加一个滚动条和一个计时器。运行程序并单击【输出】命令按钮，随着滚动条滑块的移动输出九九表。,6.2 循环结构,6.2
3、.1 ForNext结构6.2.2 DoLoop结构6.2.3 循环的嵌套,6.2.1 ForNext结构,ForNext结构在程序中可以实现固定次数的循环。ForNext结构的格式如下：For 循环变量=初值 To 终值 Step 步长 循环体 Exit For Next 循环变量步长可为正整数或负整数，当步长是正整数执行过程如下：初值赋给循环变量。将循环变量的值和终值比较，若小于或等于则执行，否则执行。执行循环体。执行Next语句，将循环变量的值增加一个步长。转向执行。执行Next语句后面的语句，即退出循环。,当步长是负整数执行过程如下：初值赋给循环变量。将循环变量的值和终值比较，若大于或
4、等于则执行，否则执行。执行循环体。执行Next语句，将循环变量的值增加一个步长。转向执行。执行Next语句后面的语句，即退出循环。,在For语句中初值、终值和步长为循环参数，他们都可以是数值表达式，若省略Step选项，默认步长为1。循环变量是数值变量，是循环计数器。For循环执行次数为：(终值初值)步长+1。Exit For的作用是退出循环。是可选项，当执行Exit For语句时跳出本层For循环结构，执行Next的下一个语句。,例6.2 计算输入的5个数之和 设计一个窗体，在窗体上添加两个命令按钮。运行程序时，单击【计算】，程序将弹出输入对话框，要求输入数据，每次输入1个数，输入5个数之后，
5、将在窗体输出5个数之和。若单击【退出】，结束程序运行。,6.2.2 DoLoop结构,1.Do WhileLoop形式 Do While 逻辑表达式 循环体 Exit Do LoopDo WhileLoop形式执行过程如下。计算逻辑表达式的值，若值为True，执行；否则，执行。执行循环体。转向执行。执行Loop后面的语句，即退出Do WhileLoop循环。在该形式中，当逻辑表达式的值为True时执行循环体，直到逻辑表达式的值为False时终止循环。Exit Do的作用是退出循环。Exit Do是可选项，Exit Do语句用来跳出本层Do循环，一般与If语句配合使用。,2.Do UntilLo
6、op形式 Do Until 逻辑表达式 循环体 Exit Do LoopDo UntilLoop形式执行过程如下。计算逻辑表达式的值，若值为False，执行；否则，执行。执行循环体。转向执行。执行Loop后面的语句，即退出Do UntilLoop循环。使用Until关键字是当条件为False时执行循环体，直到当条件为True时终止循环。Exit Do是可选项，Exit Do的作用是退出循环。,3.Do Loop While形式 Do 循环体 Exit Do Loop While 逻辑表达式DoLoop While形式执行过程如下。执行循环体。计算逻辑表达式的值，若值为True，转向执行；否则，
7、执行。执行Loop While后面的语句，即退出DoLoop While循环。该形式不进行任何检查便执行循环体，每次执行循环体后，检查逻辑表达式的值，若值为True时再次执行循环体，直到逻辑表达式的值为False时终止循环。Exit Do的作用是退出循环。Exit Do是可选项，Exit Do语句用来跳出本层Do循环，一般与If语句配合使用。,4.Do Loop Until形式 Do 循环体 Exit Do Loop Until 逻辑表达式DoLoop Until 形式执行过程如下。执行循环体。计算逻辑表达式的值，若值为False，转向执行；否则，执行。执行Loop Until后面的语句，即退
8、出DoLoop Until循环。该形式不进行任何检查便执行循环体，每次执行循环体后，检查逻辑表达式的值，若值为False时再次执行循环体，直到逻辑表达式的值为True时终止循环。Exit Do的作用是退出循环。Exit Do是可选项，Exit Do语句用来跳出本层Do循环，一般与If语句配合使用。,5.Do Loop 形式 Do 循环体 Exit Do Loop,例6.3 求两个大写字母A之间的子串 设计一个窗体，在窗体上添加两个命令按钮。运行程序时，单击【开始】，程序将弹出输入对话框，要求输入一串字符(假定输入的字符串中含有两个大写字母A)，输入后，将在窗体输出首次出现两个大写字母A之间的子
9、串。若单击【退出】，结束程序运行。,6.2.3 循环的嵌套,循环的嵌套也称多重循环。下面代码是双重循环输出九九表的例子。Private Sub Form_Click()Print Tab(18);九九表 Print Tab(18);=For i=1 To 9 For j=1 To 9 Print Tab(4*j-3);i*j;Next j Print Next iEnd Sub 这是一个双重循环，从For i=1 To 9语句到Next i语句是外循环，从For j=1 To 9语句到Next j语句是内循环。,双重循环的一般执行过程为：为外循环控制变量赋初值。本例中i的初值等于1。用i与终值
10、比较，如果超过终值，则结束循环，执行Next i语句下面的可执行语句。如果未超过，则执行。执行外循环体。当执行到内循环的For j=1 To 9语句时，为内循环控制变量j赋初值。本例中j的初值等于1。用j与终值比较，如果超过终值则结束内循环，接着执行内循环终端语句的下一个语句。如果未超过终值，则执行。执行内循环体，执行到Next j语句时，使内循环控制变量j按步长增值。转向执行，即重复 到，直到j超过终值，执行Next j的下一语句。执行完外循环的Next i后，使外循环控制变量i按步长增值。转向执行，即重复 到，直到i超过终值，执行Next i的下一语句。结束外循环。,关于循环的嵌套，有以下
11、一些规定：内循环必须完全嵌套在外循环体内，不得交叉。并列循环的循环控制变量可以同名，嵌套循环的循环控制变量不能同名。,For i=1 To 9 Do While K 10 Loop Next I是允许的,For i=1 To 9 For j=1 To 9 Print Tab(4*j-3);i*j;Next i Print Next j是不允许的(交叉循环),6.3 滚动条和计时器控件,滚动条控件用于输入数据或显示数据的变化，也用于与那些不支持滚动的控件配合使用，给他们提供滚动观察的功能。计时器控件常用于提供固定时间间隔的中断，以便执行特定的事件过程。,滚动条和计时器控件,6.3.1 计时器控件
12、6.3.2 滚动条控件,6.3.1 计时器控件,计时器控件(Timer)在工具箱的图标是。计时器控件也称定时器或时钟，他是按一定时间间隔自动触发事件的控件，使用计时器可定时重复执行时钟中断过程。在程序运行时，计时器是不可见的。,计时器的属性1.Interval属性设定计时器触发Timer事件的时间间隔，即两个计时器中断事件之间的时间间隔，其值以毫秒(0.001秒)为单位，允许范围是065,535。该控件会自动检查系统时间是否又到Interval属性值，到了便产生Timer事件，执行时钟中断过程。当Interval属性值为0时屏蔽计时器，使计时器不再产生Timer事件。2.名称和其他属性系统的默
13、认名称为Timer1、Timer2等。和行为有关的重要属性有Enabled，当Enabled为False时，计时器同样不再产生Timer事件。,计时器的事件计时器控件的常用事件是Timer事件，是计时器在间隔了一个Interval时间后所触发的事件。,例6.4 倒计数 设计一个窗体，在窗体上添加两个标签和一个计时器。运行程序时，自动开始倒计数，从10到0每隔一秒倒计数一次，计数时在两个标签中分别显示系统当前时间和倒计数的值。,6.3.2 滚动条控件,滚动条控件分为水平滚动条和垂直滚动条，在工具箱的 图标分别是 和。滚动条控件用于输入数据，也用于与那些不支持滚动的控件配合使用，给他们提供滚动观察
14、的功能。,滚动条的属性1.Value属性Value属性标志滚动条的当前值(滚动滑块的位置)，当滚动滑块的位置移动时，Value属性值也随之改变。在程序中也可以用代码设置，设置时滚动滑块的位置随之移动。其值为整型，范围应在Min和Max之间。2.Min属性滚动滑块在最小位置的值，其值为整型，范围应在-32768和32767之间。水平滚动条滚动滑块在最左边，垂直滚动条滚动滑块在最上边，是滚动滑块在最小位置的值。,3.Max属性滚动滑块在最大位置的值，其值为整型，范围应在-32768和32767之间。水平滚动条滚动滑块在最右边，垂直滚动条滚动滑块在最下边，是滚动滑块在最大位置的值。4.SmallCh
15、ange属性当单击滚动条两端箭头时，Value值的改变量，其值为整型。,5.LargeChange属性 当单击滚动条的空白位置时，Value值的改变量，其值为整型。6.名称和其他属性 水平滚动条系统的默认名称为HScroll1、HScroll2等，垂直滚动条系统的隐含名称为VScroll1、VScroll2等。和滚动条位置有关的属性有Height、Left、Top和Width；和滚动条行为有关的主要属性有Enabled、Visible、TabIndex等。,滚动条的事件 滚动条控件常用的事件有Scroll和Change。当拖动滚动条滑块时触发Scroll事件，当单击滚动条两端箭头时或单击滚动条
16、的空白位置时，触发Change事件。拖动滚动条滑块结束时，也触发Change事件。,6.4 综 合 运 用,例6.6 用餐人数组合 一家30个人到小饭馆用餐，其中有男人、女人和小孩。每个男人花3元，每个女人花2元，每个小孩花1元。一共花去50元。问男人、女人和小孩各有几人？。,例6.7 16进制转换成10进制 设计一个窗体，在窗体上添加两个标签、两个文本框和两个命令按钮。运行程序时，在Text1中输入一个十六进制数,单击【转换】在text2中输出与其对应的十进制数。,例6.8 庆祝中国载人航天的成功 设计一个窗体，在窗体上添加两个标签、一个文本框和一个水平滚动条。运行程序时，文本框中的汉字随时间而改变颜色，改变水平滚动条滑块位置会改变颜色变化的频率，颜色取红、绿和蓝三色。,
