![点击分享此内容可以赚币 分享](/master/images/share_but.png)
vb控制结构-循环结构程序设计.ppt
《vb控制结构-循环结构程序设计.ppt》由会员分享,可在线阅读,更多相关《vb控制结构-循环结构程序设计.ppt(49页珍藏版)》请在咨信网上搜索。
1、第第6章章VB控制结构(控制结构(2)循环结构程序设计循环结构程序设计本章内容及要求:本章内容及要求:(1)掌握)掌握For.Next语句及语句及ExitFor语句的使用;语句的使用;(2)掌握)掌握Do.Loop循环语句与循环语句与ExitDo语句的使用;语句的使用;(3)掌握循环结构的嵌套应用;)掌握循环结构的嵌套应用;(4)掌握循环结构和选择结构的嵌套应用。)掌握循环结构和选择结构的嵌套应用。6.1概述概述在在VisualBasic程程序序设设计计中中,实实现现循循环环结结构构的的语语句句主主要要有有下列下列几几种:种:l lForNext语句语句lDoLoop语句语句 l lWhile
2、Wend语句语句 DoWhileLoop形式形式DoLoopWhile形式形式DoUntilLoop形式形式DoLoopUntil形式形式DoLoop形式形式打印九九乘法表打印九九乘法表DimSgsAsStringDimi,jAsIntegerFori=1To9被乘数从被乘数从1变到变到9Forj=iTo9乘数从乘数从1变到变到9Sgs=i&j&=&Str(i*j)打印公式如打印公式如11=1Picture1.PrintTab(j-1)*9+1);Sgs;NextjPicture1.PrintNextIFor循环语句循环语句(一般用于循环次数已知一般用于循环次数已知)形式:形式:For循环变量
3、初值循环变量初值to终值终值Step步长步长语句块语句块ExitFor语句块语句块Next循环变量循环变量循环体=0循环变量循环变量=终值终值=终值终值=1可省略可省略步长步长6.2For.Next循环结构循环结构循环次数循环次数例例:ForI=2To13Step3PrintI,NextIPrint“I=“,I循环执行次数循环执行次数4输出输出I的值分别为的值分别为:25811出了循环输出为出了循环输出为:I=146.2For.Next循环结构循环结构6.2For.Next循环结构循环结构注意跳出注意跳出FOR循环时的循环变量的值循环时的循环变量的值Fori=1to10step1s=s+iNe
4、xtiPrintiFori=-1to-10step-1s=s+iNextiPrinti6.2For.Next循环结构循环结构注意对于注意对于ForNext语句来说,一旦进入循环,其语句来说,一旦进入循环,其“终止值终止值”和和“增量增量”便不会再改变了。便不会再改变了。PrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerj=10:k=1Fori=1TojStepkPrintij=j-1k=k+1NextPrintj,kEndSub练习:分析下面程序段结束时窗体上显示的值是多少?练习:分析下面程序段结束时窗体上显示的值是多少?(2)i
5、2=0Fori=1To-2Step-1i2=i2+1NextPrinti,i2(-34)(1)Fori=1To10i2=i2+1NextPrinti(11)(3)i2=0Fori=1To5Step2i2=i2+1NextPrinti(7)(4)i2=1Fori=1To10i=i+1i2=i2+1NextPrinti,i2(116)(5)i2=1i3=10i=10Fori=1Toi3i=i+1i2=i2+1i3=i3+1NextPrinti,i2(116)(6)i2=0Fori=1To10i2=i2+1Ifi6ThenExitForNextPrinti,i2(77)(7)i2=0i=10Doi2
6、=i2+1LoopWhilei=i2Printi2(1)例例6.7编程计算:编程计算:S=1+2+3+100Dim S%,I%S=0 累加前变量累加前变量S为为0For I=1 to 100 S=S+INext IPrintS=,S当I=100I=I+1打印SS=0,I=1S=S+I例例6.7的算法流程图的算法流程图6.2For.Next循环结构循环结构前测型前测型:DoWhile语句块语句块ExitDo语句块语句块LoopDoLoop循环语句使用形式循环语句使用形式6.3Do.Loop循环结构循环结构6.2Do.Loop循环结构循环结构PrivateSubForm_Click()DimiAs
7、Integer:DimaAsInteger定义所需变量定义所需变量i=0:a=0给变量赋初值给变量赋初值0,这两条语句可省略这两条语句可省略DoWhilei100i=i+1每次循环,变量每次循环,变量i都增加都增加1a=a+i每次循环,变量每次循环,变量a都加变量都加变量i的值的值LoopPrinta计算完毕,变量计算完毕,变量a的值即为所求的值即为所求EndSub例例:使用使用DoWhileLoop循环语句计算循环语句计算1+2+3+100的值的值后测型后测型:Do语句块语句块ExitDo语句块语句块LoopWhile6.3Do.Loop循环结构循环结构6.3Do.Loop循环结构循环结构例
8、例:使用使用DoLoopWhile循环语句计算循环语句计算1+2+3+n的值的值,n的的值由文本框输入。值由文本框输入。PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,aAsInteger定义所需变量定义所需变量n=Text1.Text得到输入的值得到输入的值Doi=i+1每次循环,变量每次循环,变量i都增加都增加1a=a+i每次循环,变量每次循环,变量a都加变量都加变量i的值的值LoopWhileinText2.Text=a显示计算结果,变量显示计算结果,变量a的值即为所求的值即为所求EndSub前测型前测型:DoUntil语句块语句块E
9、xitDo语句块语句块LoopDoLoop循环语句使用形式循环语句使用形式6.3Do.Loop循环结构循环结构6.3Do.Loop循环结构循环结构例例:计算阶乘计算阶乘n!的值(!的值(n的值由文本框输入)。的值由文本框输入)。PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimaAsLongn=Text1.Text得到输入的值得到输入的值na=1必须为变量必须为变量a赋初值赋初值1DoUntili=ni=i+1每次循环,变量每次循环,变量i都增加都增加1a=a*i每次循环,变量每次循环,变量a都乘以变量都乘以变量i的值的值LoopText
10、2.Text=a计算完毕,变量计算完毕,变量a的值即为所求的值即为所求EndSub后测型后测型:Do语句块语句块ExitDo语句块语句块LoopUntil6.3Do.Loop循环结构循环结构例例:使用级数求使用级数求的值。的值。根据下式,计算圆周率根据下式,计算圆周率的近似值,当计算到绝对值小于的近似值,当计算到绝对值小于0.0001的通项时,认为满足精度要求,停止计算。的通项时,认为满足精度要求,停止计算。/4=1-1/3+1/5-1/7+(-1)n+11/2n-1+6.3Do.Loop循环结构循环结构PrivateSubcmdPi_Click()DimaAsSingle变量变量a保存通项之
11、和保存通项之和DimmAsSingle变量变量m保存通项的绝对值保存通项的绝对值DimsAsInteger变量变量s产生通项的符号产生通项的符号DimiAsInteger变量变量i产生通项的分母产生通项的分母s=1第一项符号为正第一项符号为正i=1第一项为第一项为1Do开始循环开始循环m=1/i计算通项的绝对值计算通项的绝对值a=a+s*m总和加上一个通项总和加上一个通项i=i+2产生下一个通项分母产生下一个通项分母s=-s轮流转换通项的正负号轮流转换通项的正负号LoopUntilm0.0001测试是否满足精度要求测试是否满足精度要求Text1.Text=a*4输出计算结果输出计算结果EndS
12、ub6.3Do.Loop循环结构循环结构6.3Do.Loop循环结构循环结构Do语句块语句块ExitDo语句块语句块LoopPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimaAsLongn=val(Text1.Text)a=1Doi=i+1a=a*iIfi=nThenExitDoLoopText2.Text=aEndSub例例6.5:计算计算n!本节小结:本节小结:(1 1)当当使使用用WhileWhile 构构成成循循环环时时,当当条条件件为为“真真”,则则反复执行循环体,当条件为反复执行循环体,当条件为“假假”,则退出循环。,则退出
13、循环。(2)当当使使用用Until构构成成循循环环时时,当当条条件件为为“假假”,则则反反复执行循环体,直到条件成立,即为复执行循环体,直到条件成立,即为“真真”时,则退出循环。时,则退出循环。(3 3)在在循循环环体体内内一一般般应应有有一一个个专专门门用用来来改改变变条条件件表表达达式式中中变变量量的的语语句句,以以使使随随着着循循环环的的执执行行,条条件件趋趋于于不不成成立立(或或成成立立),最后达到退出循环。,最后达到退出循环。(4)语句)语句ExitDo的作用是退出它所在的循环结构,它只能的作用是退出它所在的循环结构,它只能用在用在DO/Loop结构中,并且常常是同选择结构一起出现在
14、循环结构中,并且常常是同选择结构一起出现在循环结构中,用来实现当满足某一条件时提前退出循环。结构中,用来实现当满足某一条件时提前退出循环。6.3Do.Loop循环结构循环结构 思考思考:将一个十进制数转换成二进制。将一个十进制数转换成二进制。算法流程图算法流程图6.3Do.Loop循环结构循环结构 用用Do.LoopDo.Loop循环的五种形式分别完成循环的五种形式分别完成 将一个十进制数转换成二进制。将一个十进制数转换成二进制。算法流程图算法流程图6.3Do.Loop循环结构循环结构分析分析:将一个十进制数转换成二进制采用连除将一个十进制数转换成二进制采用连除2 2取余数的方法,即将十进制数
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 控制 结构 循环 程序设计
![提示](https://www.zixin.com.cn/images/bang_tan.gif)
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【天****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【天****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。