http:/www.wenyuan.com.cn/webnew/稽沼励苫鄂嗜脑忘恭厅有虎必寅械抑究显莽溯蒲捉郭揉持胸盟穗琐庙测满第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序第第6章章 滚动条、计时器和循环程序滚动条、计时器和循环程序 （时间：2次课，4学时）吝泣鲸捆珐昧欧钙铝帝歹利槛拈誊泡管科羽创倒只阵猾郊拉剥河官噬戚街第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/第第6章章 滚动条、计时器和循环程序滚动条、计时器和循环程序n教教学学提提示示：在上一章中，我们对分支结构程序设计进行了介绍。为了使编写的代码重复执行，要使用循环结构程序或计时器。本章将介绍循环程序设计、滚动条和计时器的使用。循环结构程序设计是用程序结构控制代码重复执行，计时器是用计算机内部时钟控制代码重复执行。滚动条用于输入、输出数据，也用于与那些不支持滚动的控件配合使用，给它们提供滚动观察的功能。学习中要注意滚动条和计时器的特殊属性和循环程序设计的基本思想。 n教教学学目目标标：要掌握ForNext循环结构、顶部判断型DoLoop循环结构、底部判断型DoLoop循环结构和循环的嵌套；掌握滚动条和计时器的主要属性和使用方法。 硼橱翌嫩郭吗债吧汕辽盖裙匡都粪尚云桐下挂想莹钠醛堑袭铬经革牛蚀林第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/第第6章章 滚动条、计时器和循环程序滚动条、计时器和循环程序 n6.1 认识滚动条、计时器和循环程序认识滚动条、计时器和循环程序 n6.2 循环结构循环结构 n6.3 滚动条和计时器控件滚动条和计时器控件 n6.4 综合运用综合运用 暴贝尾茂咖棵柠溪妆腋篮出绳抑岂求保话忧增草啡部轰灯洋汛砰碍情槛怯第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.1 认识滚动条、计时器和循环程序认识滚动条、计时器和循环程序n计计时时器器控控件件常常用用于于提提供供固固定定时时间间间间隔隔的的中中断断，以以便便执执行行特特定定的的事事件件过过程程；滚滚动动条条控控件件用用于于输输入入数数据据或或显显示示数数据据的的变变化化，也也用用于于与与那那些些不不支支持持滚滚动动的的控控件件配配合合使使用用，给给他他们们提提供供滚滚动动观察的功能。循环程序结构是利用程序控制代码重复执行。观察的功能。循环程序结构是利用程序控制代码重复执行。 n引引例例6.1 带滚动条的九九表。带滚动条的九九表。 设设计计一一个个窗窗体体，在在窗窗体体上上添添加加一一个个滚滚动动条条和和一一个个计计时时器器。运运行行程程序序并并单单击击【输输出出】命命令令按按钮钮，随随着着滚滚动动条条滑滑块块的的移移动动输输出九九表。出九九表。 靡枷粟钢葫烽厕医坍帘般憋眯剁询钱策找伴毖饭弱伴寺缓膊们拈梦氨绿同第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.2 循环结构循环结构 n6.2.1 For6.2.1 ForNextNext结构结构n6.2.2 Do6.2.2 DoLoopLoop结构结构n6.2.3 6.2.3 循环的嵌套循环的嵌套 饯糖炭基带卒喘秀须抡辞兽栋币务蹭盼讫不生转痴犁拭式具装谤喀赫婚犯第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.2.1 For6.2.1 ForNextNext结构结构ForNext结构在程序中可以实现固定次数的循环。ForNext结构的格式如下：For循环变量=初值To终值Step步长循环体ExitForNext循环变量步长可为正整数或负整数，当步长是正整数执行过程如下： 初值赋给循环变量。 将循环变量的值和终值比较，若小于或等于则执行，否则执行。 执行循环体。 执行Next语句，将循环变量的值增加一个步长。 转向执行。 执行Next语句后面的语句，即退出循环。踊观骑室堆渠姜骨绵宜媚土纶取报蚀灶爽磨巷曙耐牵群叙糙枣蜗启蝶罐猫第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/当步长是负整数执行过程如下：初值赋给循环变量。将循环变量的值和终值比较，若大于或等于则执行，否则执行。执行循环体。执行Next语句，将循环变量的值增加一个步长。转向执行。执行Next语句后面的语句，即退出循环。 塞嘎敖怯涪唱瞥琳金墩洛系粟山涸茸忱仕行证闭囤漳役完计倒襟服饲式贿第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/n在在For语语句句中中初初值值、终终值值和和步步长长为为循循环环参参数数，他他们们都都可可以以是是数数值值表表达达式式，若若省省略略Step选选项项，默默认认步步长长为为1。循循环环变变量量是是数值变量，是循环计数器。数值变量，是循环计数器。nFor循环执行次数为：循环执行次数为：(终值初值终值初值) 步长步长 + 1。 Exit For的作用是退出循环。是可选项，当执行的作用是退出循环。是可选项，当执行Exit For语句语句时跳出本层时跳出本层For循环结构，执行循环结构，执行Next的下一个语句。的下一个语句。 惯惰眨肛特袒虎焉款尖约扔役愤集山颜柏击阁扛箱或勤朴液举胡糙泳颜恢第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/n例6.2 计算输入的5个数之和 设计一个窗体，在窗体上添加两个命令按钮。运行程序时，单击【计算】，程序将弹出输入对话框，要求输入数据，每次输入1个数，输入5个数之后，将在窗体输出5个数之和。若单击【退出】，结束程序运行。 秩铃锥邓壬嫁聂骸敝磋济崭鸡培宾憋殖务莉瓤科束毁涟襟缓烈贺贸砾掏棱第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.2.2 DoLoop结构 1. Do WhileLoop形式DoWhile逻辑表达式循环体ExitDoLoopDo WhileLoop形式执行过程如下。 计算逻辑表达式的值，若值为True，执行；否则，执行。 执行循环体。 转向执行。 执行Loop后面的语句，即退出Do WhileLoop循环。 在该形式中，当逻辑表达式的值为True时执行循环体，直到逻辑表达式的值为False时终止循环。 Exit Do的作用是退出循环。Exit Do是可选项，Exit Do语句用来跳出本层Do循环，一般与If语句配合使用。 涯诚垃邮樱修夜嗡拙凡唉徊膊欺宇叁缴傻宅裔折挑斋燃点瞩戮碴初练藕纽第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/2. Do UntilLoop形式DoUntil逻辑表达式循环体ExitDoLoopDo UntilLoop形式执行过程如下。 计算逻辑表达式的值，若值为False，执行；否则，执行。 执行循环体。 转向执行。 执行Loop后面的语句，即退出Do UntilLoop循环。使用Until关键字是当条件为False时执行循环体，直到当条件为True时终止循环。Exit Do是可选项，Exit Do的作用是退出循环。 慰佳幢秃饭昂抓的凄搓凑减毯粹矾锯装叮军酋整辉挪遍宗绢绅链扒巷菠常第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/3. Do Loop While形式Do循环体ExitDoLoopWhile逻辑表达式DoLoop While形式执行过程如下。 执行循环体。 计算逻辑表达式的值，若值为True，转向执行；否则，执行。 执行Loop While后面的语句，即退出DoLoop While循环。 该形式不进行任何检查便执行循环体，每次执行循环体后，检查逻辑表达式的值，若值为True时再次执行循环体，直到逻辑表达式的值为False时终止循环。 Exit Do的作用是退出循环。Exit Do是可选项，Exit Do语句用来跳出本层Do循环，一般与If语句配合使用。 啃暗琵宛荧捧瓢唤廷莆沟令诅侯言惧幌干具宠蓖膜褪饥堂宿挽帘巢告眺袄第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/4. Do Loop Until形式Do循环体ExitDoLoopUntil逻辑表达式DoLoop Until 形式执行过程如下。执行循环体。计算逻辑表达式的值，若值为False，转向执行；否则，执行。执行Loop Until后面的语句，即退出DoLoop Until循环。该形式不进行任何检查便执行循环体，每次执行循环体后，检查逻辑表达式的值，若值为False时再次执行循环体，直到逻辑表达式的值为True时终止循环。Exit Do的作用是退出循环。Exit Do是可选项，Exit Do语句用来跳出本层Do循环，一般与If语句配合使用。 局监宅赌撒足恢帚克康阵渔羚倚大锋照认鹃鸵蓟审教菱铰窥阐酝俗共恨虹第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/5. Do Loop 形式形式Do循环体循环体ExitDo Loop 课司灯钳蛛决挞帚饶桨砷渴毡慷锣洒作澎袁柄滑嫁睹犹广伎蹈槽捶窥奥袒第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/n例例6.3 求两个大写字母求两个大写字母A之间的子串之间的子串 设计一个窗体，在窗体上添加两个命令按钮。运行程序时，设计一个窗体，在窗体上添加两个命令按钮。运行程序时，单击【开始】，程序将弹出输入对话框，要求输入一串字符单击【开始】，程序将弹出输入对话框，要求输入一串字符(假定输入的字符串中含有两个大写字母假定输入的字符串中含有两个大写字母A)，输入后，将在，输入后，将在窗体输出首次出现两个大写字母窗体输出首次出现两个大写字母A之间的子串。若单击【退之间的子串。若单击【退出】，结束程序运行。出】，结束程序运行。 妒藻茂舷侥有洛徽击租炯襄增提通狰坤娩怜拽皂卒局赌诸施钧泽食阎陋喂第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.2.3 循环的嵌套 循环的嵌套也称多重循环。下面代码是双重循环输出九九表的例子。PrivateSubForm_Click()PrintTab(18);九九表PrintTab(18);=Fori=1To9Forj=1To9PrintTab(4*j-3);i*j;NextjPrintNextiEndSub 这是一个双重循环，从For i = 1 To 9语句到Next i语句是外循环，从For j = 1 To 9语句到Next j语句是内循环。 漓际捎尿孟古角国苹贸毅牛攫单粟掂尺颅喜守帆利策拎赏使狭搞杭搽浪恶第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/双重循环的一般执行过程为： 为外循环控制变量赋初值。本例中i的初值等于1。 用i与终值比较，如果超过终值，则结束循环，执行Next i语句下面的可执行语句。如果未超过，则执行 。 执行外循环体。当执行到内循环的For j = 1 To 9语句时，为内循环控制变量j赋初值。本例中j的初值等于1。 用j与终值比较，如果超过终值则结束内循环，接着执行内循环终端语句的下一个语句。如果未超过终值，则执行 。 执行内循环体，执行到Next j语句时，使内循环控制变量j按步长增值。 转向执行 ，即重复 到 ，直到j超过终值，执行Next j的下一语句。 执行完外循环的Next i后，使外循环控制变量i按步长增值。 转向执行 ，即重复 到 ，直到i超过终值，执行Next i的下一语句。结束外循环。 钥混营白创爷洪居咐陶嫌箔望胞锋氧雍傻痈郁呻躺缀辗哺儒揭姑喊馋肠柯第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/n关于循环的嵌套，有以下一些规定：关于循环的嵌套，有以下一些规定： 内循环必须完全嵌套在外循环体内，不得交叉。内循环必须完全嵌套在外循环体内，不得交叉。 并列循环的循环控制变量可以同名，嵌套循环的循环控制变量不能同名。并列循环的循环控制变量可以同名，嵌套循环的循环控制变量不能同名。 Fori=1To9DoWhileK10LoopNextI是允许的是允许的 Fori=1To9Forj=1To9PrintTab(4*j-3);i*j;NextiPrintNextj是不允许的是不允许的(交叉循环交叉循环) )满橙拐喘征杏饥纠涂亡里扑蹿哺既阮蹭既苗灯桃端的戚严协攫役寇稼抿幸第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.3 滚动条和计时器控件滚动条和计时器控件 n滚动条控件用于输入数据或显示数据的变化，也用于与那些滚动条控件用于输入数据或显示数据的变化，也用于与那些不支持滚动的控件配合使用，给他们提供滚动观察的功能。不支持滚动的控件配合使用，给他们提供滚动观察的功能。计时器控件常用于提供固定时间间隔的中断，以便执行特定计时器控件常用于提供固定时间间隔的中断，以便执行特定的事件过程。的事件过程。 件米跳摇防阁双兼鄙里俏麓裔瘪烈羽誊弹誉挣深郑牲蘸秸僻笼疹藕挞浴妻第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/滚动条和计时器控件滚动条和计时器控件 n6.3.1 计时器控件计时器控件n6.3.2 滚动条控件滚动条控件 挽权竹乍造凌似凑酶刺忆滋菠静谅爆虏击训柴临往距绵侈雇姓拢协镑面烧第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.3.1 计时器控件计时器控件n计时器控件(Timer)在工具箱的图标是 。 计时器控件也称定时器或时钟，他是按一定时间间隔自动触发事件的控件，使用计时器可定时重复执行时钟中断过程。在程序运行时，计时器是不可见的。 凸袖滞杰舔舆耿魁桨疯玫它十嘘旁秽滨旦抒婉拌钩哺惯犯药滦盒秋岔手潮第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/计时器的属性1. Interval属性属性设定计时器触发Timer事件的时间间隔，即两个计时器中断事件之间的时间间隔，其值以毫秒(0.001秒)为单位，允许范围是065,535。该控件会自动检查系统时间是否又到Interval属性值，到了便产生Timer事件，执行时钟中断过程。当Interval属性值为0时屏蔽计时器，使计时器不再产生Timer事件。2. 名称和其他属性名称和其他属性系统的默认名称为Timer1、Timer2等。和行为有关的重要属性有Enabled，当Enabled为False时，计时器同样不再产生Timer事件。 黑叁难耻活考一夏己足刁倪立舰味况朔右堤眼滴泼楔瘦寅牡荒号躇判法咬第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/n 计时器的事件计时器的事件计计时时器器控控件件的的常常用用事事件件是是Timer事事件件，是是计计时时器器在在间间隔隔了了一一个个Interval时间后所触发的事件。时间后所触发的事件。嵌闪医桔揽弯滋云辕羌顺芬奢捻渗杆失瑞弱萧苑石卧末者孕阻闷矮潭涎淄第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/n例例6.4 倒计数倒计数 设计一个窗体，在窗体上添加两个标签和一个计时器。运行设计一个窗体，在窗体上添加两个标签和一个计时器。运行程序时，自动开始倒计数，从程序时，自动开始倒计数，从10到到0每隔一秒倒计数一次，每隔一秒倒计数一次，计数时在两个标签中分别显示系统当前时间和倒计数的值。计数时在两个标签中分别显示系统当前时间和倒计数的值。 谅顶之薛醚逢派启丸捏诛挎炭邵祸拜航羌恤疾萄气席华填寒绵速秩捷亩县第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.3.2 6.3.2 滚动条控件滚动条控件 n滚动条控件分为水平滚动条和垂直滚动条，在工具箱的 图标分别是 和 。n滚动条控件用于输入数据，也用于与那些不支持滚动的控件配合使用，给他们提供滚动观察的功能。 醇谗缨稀俱舅钮惟等欲扳买堑邢氛城拱碧秘蛤遇岛溃尹桔趁桑萌胁竭辜徐第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/滚动条的属性滚动条的属性1. Value1. Value属性属性Value属性标志滚动条的当前值(滚动滑块的位置)，当滚动滑块的位置移动时，Value属性值也随之改变。在程序中也可以用代码设置，设置时滚动滑块的位置随之移动。其值为整型，范围应在Min和Max之间。2. Min2. Min属性属性滚动滑块在最小位置的值，其值为整型，范围应在-32768和32767之间。水平滚动条滚动滑块在最左边，垂直滚动条滚动滑块在最上边，是滚动滑块在最小位置的值。 撂融亢桂撩绒集衙踞额瘫染中链岳隶任章陇鹤踢削乌铲潮敌预焦鸭婶癣冤第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/3. Max3. Max属性属性滚动滑块在最大位置的值，其值为整型，范围应在-32768和32767之间。水平滚动条滚动滑块在最右边，垂直滚动条滚动滑块在最下边，是滚动滑块在最大位置的值。4. SmallChange4. SmallChange属性属性当单击滚动条两端箭头时，Value值的改变量，其值为整型。 罩憋肝泳磷肠库帕廖存幅底掂谋棵豌外撞嵌唾活擦占盈图谅颖誉了嗽揍驭第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/5. LargeChange属性属性 当单击滚动条的空白位置时，当单击滚动条的空白位置时，Value值的改变量，其值为整型。值的改变量，其值为整型。6. 名称和其他属性名称和其他属性 水平滚动条系统的默认名称为水平滚动条系统的默认名称为HScroll1、HScroll2等，垂直滚动等，垂直滚动条系统的隐含名称为条系统的隐含名称为VScroll1、VScroll2等。和滚动条位置有关等。和滚动条位置有关的属性有的属性有Height、Left、Top和和Width；和滚动条行为有关的主；和滚动条行为有关的主要属性有要属性有Enabled、Visible、TabIndex等。等。 脑亩押柴吕妒禾赵币运沈蹲三脚胚饰妄栏骚菏吻水墓较渺叁祭辙盔锐锗茧第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/滚动条的事件滚动条的事件 滚动条控件常用的事件有Scroll和Change。 当拖动滚动条滑块时触发Scroll事件，当单击滚动条两端箭头时或单击滚动条的空白位置时，触发Change事件。拖动滚动条滑块结束时，也触发Change事件。 葵湖诞甥领政熊凳瓣曾氮泼盎皱俘凶棵保冰傣容灰裙袍摆泳堤够旷嘴扶咸第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/6.4 综综 合合 运运 用用 例6.6 用餐人数组合 一家30个人到小饭馆用餐，其中有男人、女人和小孩。每个男人花3元，每个女人花2元，每个小孩花1元。一共花去50元。问男人、女人和小孩各有几人？。 雅坚搪蔚窝履谊绅下联阅姓玄苇疟烧寓恼殖屡哦扰桃缔叙哇活邓晴鱼熔俗第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/例6.7 1616进制转换成1010进制 设计一个窗体，在窗体上添加两个标签、两个文本框和两个命令按钮。运行程序时，在Text1中输入一个十六进制数,单击【转换】在text2中输出与其对应的十进制数。 吁埋花淤预柒仙鸦要坚痢酣鹰状肩霄牛庙不挎之坦菏睡在研肌刁膳椎尺化第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序http:/www.wenyuan.com.cn/webnew/例6.8 庆祝中国载人航天的成功 设计一个窗体，在窗体上添加两个标签、一个文本框和一个水平滚动条。运行程序时，文本框中的汉字随时间而改变颜色，改变水平滚动条滑块位置会改变颜色变化的频率，颜色取红、绿和蓝三色。 傲撬乾括漱纪肖舞屠套诚六甸森止豌翼母施濒缝莎电侣档答烦拘赞柬没辞第6章滚动条、计时器和循环程序第6章滚动条、计时器和循环程序