《vb第2版》课件第5章循环结构.ppt
- 【下载声明】
1. 本站全部试题类文档,若标题没写含答案,则无答案;标题注明含答案的文档,主观题也可能无答案。请谨慎下单,一旦售出,不予退换。
2. 本站全部PPT文档均不含视频和音频,PPT中出现的音频或视频标识(或文字)仅表示流程,实际无音频或视频文件。请谨慎下单,一旦售出,不予退换。
3. 本页资料《《vb第2版》课件第5章循环结构.ppt》由用户(momomo)主动上传,其收益全归该用户。163文库仅提供信息存储空间,仅对该用户上传内容的表现方式做保护处理,对上传内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知163文库(点击联系客服),我们立即给予删除!
4. 请根据预览情况,自愿下载本文。本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
5. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007及以上版本和PDF阅读器,压缩文件请下载最新的WinRAR软件解压。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb第2版 vb 课件 循环 结构
- 资源描述:
-
1、第第5章章 循环结构、列表框和组合框循环结构、列表框和组合框5.1循环语句循环语句5.2循环嵌套循环嵌套5.3列表框与组合框列表框与组合框5.4综合实例综合实例5.5本章小结本章小结5.1 循环语句循环语句5.1.1ForNext结构结构5.1.2DoLoop结构结构5.1.1ForNext结构结构For 循环变量循环变量=初值初值 To 终值终值Step 步长步长 Exit ForNext 循环变量循环变量(1)计算初值、终值及步长表达式的值,并将初值赋给循环变量;)计算初值、终值及步长表达式的值,并将初值赋给循环变量;(2)判断循环变量的值是否)判断循环变量的值是否“超过超过”终值:终值:
2、当步长为正时,当步长为正时,“超过超过”是指循环变量的值是指循环变量的值终值;终值;当步长为负时,当步长为负时,“超过超过”是指循环变量的值是指循环变量的值l0 then Exit For End If Next i5.1.1ForNext结构结构(7)Next后面的循环变量与后面的循环变量与For语句中的循环变量必须相同,且两语句中的循环变量必须相同,且两者必须成对出现。者必须成对出现。(8)在)在For循环体中改变循环控制变量的值,将会影响循环次数。循环体中改变循环控制变量的值,将会影响循环次数。例如:例如:Dim s As Integer,i As IntegerFor i1 To 10
3、 s=s+i ii+l Next i 按按For语句函数功能可得该循环体应重复执行语句函数功能可得该循环体应重复执行10次,求得次,求得1+2+3+10的和。由于循环体中有语句的和。由于循环体中有语句ii+1,每次执行时都,每次执行时都“破坏破坏”控制变量的取值,导致此控制变量的取值,导致此For循环体只重复执行了循环体只重复执行了5次,求次,求到的是到的是1+3+5+7+9的和。的和。5.1.1ForNext结构结构通过循环变量的变化在窗体上输出彩色字,程序运行界面如图通过循环变量的变化在窗体上输出彩色字,程序运行界面如图所示。所示。5.1.1ForNext结构结构图 例5-1运行界面Pri
4、vate Sub Form_Click()Dim i As Integer,green As Integer,blue As IntegerRandomize TimerFor i=1 To 2000 Step 200 green=Int(255*Rnd+1)blue=Int(255*Rnd+1)CurrentX=500+i CurrentY=500+i ForeColor=RGB(i,green,blue)Print 欢迎来到VB世界Next iEnd Sub图 例5-1流程图求任意输入的一个数的阶乘,运行界面如图所示。求任意输入的一个数的阶乘,运行界面如图所示。5.1.1ForNext结构
5、结构图 例5-2运行界面对象属性属性值窗体Caption计算阶乘标签1(名称)NumLabelCaption输入数字:标签2(名称)ResultLabelCaption文本框(名称)InputTextText命令按钮(名称)ComputeCmdCaption计算表5-1例5-2主要界面对象的属性设置值Private Sub ComputeCmd _Click()Dim value As IntegerDim result As DoubleDim i As IntegerIf IsNumeric(InputText.Text)Thenvalue=CInt(InputText.Text)resu
6、lt=1For i=1 To valueresult=result*iNext iResultLabel.Caption=结果为:&resultElseResultLabel.Caption=输入的不是数字,无法计算!End IfEnd SubPrivate5.1.2 DoLoop结构结构1.DoLoop语句语句2.Do WhileLoop语句语句3.DoLoop While语句语句4.Do UntilLoop语句语句5.DoLoop Until语句语句DoLoop语句语句Do Exit Do Loop其中,其中,Exit Do语句是可选语句,它提供一种退出语句是可选语句,它提供一种退出Do循
7、环的方循环的方法,并且只能在法,并且只能在Do循环中使用,可以在循环体任何位置放置任循环中使用,可以在循环体任何位置放置任意多个意多个Exit Do语句,以便跳出语句,以便跳出Do循环。循环。Exit Do通常用于条件通常用于条件判断判断(IfThen)之后,在这种情况下之后,在这种情况下Exit Do语句将控制权转移语句将控制权转移到紧接在到紧接在Loop语句之后的语句。如果语句之后的语句。如果Exit Do使用在嵌套的使用在嵌套的Do循环中,则循环中,则Exit Do会将控制权转移到会将控制权转移到Exit Do所在位置的外层所在位置的外层循环。循环。Do WhileLoop语句语句Do
8、While Exit DoLoop首先判断条件表达式的值是否为首先判断条件表达式的值是否为True。若为。若为False,则退出,则退出循环,执行循环,执行Loop后面的语句。若为后面的语句。若为True,则执行循环体中的,则执行循环体中的语句,当执行到语句,当执行到Loop语句时,返回到语句时,返回到Do While语句,继续语句,继续判断条件表达式的值是否为判断条件表达式的值是否为True,如此反复执行,直到条件,如此反复执行,直到条件表达式的值为表达式的值为False才退出循环。其流程图如图所示。才退出循环。其流程图如图所示。图 Do whileLoop语句流程 Do、Loop、Whil
9、e都是关键字,都是关键字,Do While和和Loop应成对应成对出现;出现;条件表达式为关系或逻辑型,若为数值型,以条件表达式为关系或逻辑型,若为数值型,以0表示表示False,非非0表示表示True;Do WhileLoop语句是先判断条件后执行循环体,有可能语句是先判断条件后执行循环体,有可能一次也不执行;一次也不执行;遇到遇到Exit Do语句时,将强制提前结束循环,执行语句时,将强制提前结束循环,执行Loop后的后的下一条语句,该语句允许在循环体内出现一次或多次。下一条语句,该语句允许在循环体内出现一次或多次。Do WhileLoop语句语句Do Loop While语句语句Do E
10、xit DoLoop While首先执行一次循环体内的语句,执行到首先执行一次循环体内的语句,执行到Loop while语句时,语句时,判断条件表达式的值是否为判断条件表达式的值是否为True。若为。若为True,则返回到循环,则返回到循环体的开始语句,再次执行循环体,这样一直到条件表达式的体的开始语句,再次执行循环体,这样一直到条件表达式的值为值为False时才退出循环。其流程图如图所示。时才退出循环。其流程图如图所示。图 DoLoop while语句流程 Do UntilLoop语句语句 Do Until Exit Do Loop首先判断条件表达式的值是否为首先判断条件表达式的值是否为Fa
11、lse。若不是,则退出循。若不是,则退出循环,执行环,执行Loop后面的语句。若是后面的语句。若是False,则执行循环代码,则执行循环代码,当执行到当执行到Loop语句时,返回到语句时,返回到Do Until语句,继续判断条件语句,继续判断条件表达式的值是否为表达式的值是否为False,如此反复执行,直到条件表达式的,如此反复执行,直到条件表达式的值为值为True才退出循环。其流程图如图所示。才退出循环。其流程图如图所示。图 Do UntilLoop 语句流程 Do Loop Until语句语句 Do Exit Do Loop Until 首先执行一次循环体内的语句,执行到首先执行一次循环体
12、内的语句,执行到Loop Until 语句时,语句时,判断条件表达式的值是否为判断条件表达式的值是否为False。若为。若为False,则返回到循,则返回到循环体的开始语句,再次执行循环体,这样一直到条件表达式环体的开始语句,再次执行循环体,这样一直到条件表达式的值为的值为True时才退出循环。其流程图如图所示。时才退出循环。其流程图如图所示。图 Do Loop Until语句流程 5.1.2 DoLoop结构结构编写程序在文本框中显示编写程序在文本框中显示1100之间既能被之间既能被3整除又能被整除又能被7整整除的整数,并计算它们的和。要求用除的整数,并计算它们的和。要求用DoLoop Wh
13、ile和和DoLoop Until两种语句分别编写循环体部分。运行界面如两种语句分别编写循环体部分。运行界面如图所示。图所示。对象属性属性值标签1(名称)ShowLabel1Caption1-100之间能被3和7整除的数有:标签2(名称)NumLabelCaption标签3(名称)ShowLabel2Caption它们的和是:标签4(名称)SumLabelCaption命令按钮(名称)ComputeCmdCaption显示并求和表5-2例5-3主要界面对象的属性设置值用用DoLoop While语句编写循环体部分程序代码如下:语句编写循环体部分程序代码如下:Private Sub Comput
14、eCmd _Click()Dim n As Integer,s As IntegerDim t As Stringn=1s=0t=DoIf n Mod 3=0 And n Mod 7=0 Thent=t&Str(n)t=t&,s=s+nEnd Ifn=n+1Loop While n 100NumLabel.Caption=tSumLabel.Caption=sEnd Sub5.1.2 DoLoop结构结构编写程序求满足不等式编写程序求满足不等式1+2+3+nS的最大的最大n,其中,其中S的值的值从文本框中输入。窗体上有从文本框中输入。窗体上有3个标签、个标签、1个命令按钮和个命令按钮和1个文本
15、个文本框,运行界面如图所示。框,运行界面如图所示。对象属性属性值窗体Caption求最大n值标签1(名称)SLabelCaptionS:标签2(名称)NLabelCaption标签3(名称)ResultLabelCaption文本框(名称)STextCaption命令按钮(名称)ComputeCmdCaption计算表5-3例5-4主要界面对象的属性设置值编写编写“计算计算”命令按钮的单击事件过程代码。命令按钮的单击事件过程代码。Private Sub ComputeCmd()Dim n As Integer,sum As Integer,s As IntegerNLabel.Caption=
16、ResultLabel.Caption=s=Val(Text1.Text)n=0sum=0图图4-14 例例4-4的流程图的流程图If s=0 Then NLabel.Caption=输入有误!输入有误!ElseDo While sum=sn=n+1sum=sum+nLoopNLabel.Caption=最大的最大的n值为:值为:&n-1ResultLabel.Caption=1+2+3+.+&Str(n-1)&=&Str(sum-n)End IfEnd Sub5.2循环嵌套循环嵌套在一个循环体中含有另一个循环结构,这就构成了循环的嵌套。在一个循环体中含有另一个循环结构,这就构成了循环的嵌套。
17、以上几节介绍的循环语句都可以实现循环嵌套。两层的循环嵌以上几节介绍的循环语句都可以实现循环嵌套。两层的循环嵌套,称为二重循环,三层以上的循环嵌套,称为多重循环。套,称为二重循环,三层以上的循环嵌套,称为多重循环。(1)对于对于ForNext的循环嵌套,在每个循环中的控制变量要使用的循环嵌套,在每个循环中的控制变量要使用不同的变量名。不同的变量名。(2)内循环结构语句必须完整地嵌在外循环体中,不可交叉。内循环结构语句必须完整地嵌在外循环体中,不可交叉。DoLoop或或ForNext语句需成对使用,语句需成对使用,Visual Basic会给每个循会给每个循环结构结束语句环结构结束语句(Loop或
18、或Next)匹配最近的循环结构开始语句匹配最近的循环结构开始语句(Do或或For)。(3)多重循环执行时,外循环每重复执行一次,内循环则要完整地多重循环执行时,外循环每重复执行一次,内循环则要完整地执行其应重复的次数。执行其应重复的次数。打印如图所示的上三角的九九乘法表。打印如图所示的上三角的九九乘法表。5.2循环嵌套循环嵌套程序代码如下:程序代码如下:Private Sub Form_Click()Dim s As StringPrint Tab(45);九九乘法表九九乘法表Print Tab(45);=For i=1 To 9 For j=1 To i s=i&*&j&=&i*j Prin
展开阅读全文