简说VB循环语句

上传人:干*** 文档编号:172648851 上传时间:2022-12-05 格式:DOCX 页数:5 大小:87.96KB
收藏 版权申诉 举报 下载
简说VB循环语句_第1页
第1页 / 共5页
简说VB循环语句_第2页
第2页 / 共5页
简说VB循环语句_第3页
第3页 / 共5页
资源描述:

《简说VB循环语句》由会员分享,可在线阅读,更多相关《简说VB循环语句(5页珍藏版)》请在装配图网上搜索。

1、循环结构是指在一定条件下多次重复执行一组语句。VB中提供了两种循环语句,它们是For语句和Do语句。1.For循环语句如果己知某一段代码需要重复执行的次数,可以使用For循环语句。该语句的一般形式如下:For循环变量=初值To终值Step步长语句块ExitForNext循环变量例如:Fori=lTo8SteplPrint“这是文本”&iNexti该段代码的功能是在窗体上显示8行文本,如图3.16所示。如果不采用循环结构,则需要使用8条Print语句来实现相同的功能。WR1E3圄3.16便用CSiepiFor语句中的循环变量必须是数值型,初值、终值以及步长则是具体的数值Fornext步长用来指定

2、循环变量每次的增量,当所有循环体中的语句都执行后,循环变量就会自动增加一个步长。默认的步长为1.For语句的执行流程如图3.17所示。具体执行流程为:(1) 将初值赋给循环变量。(2) 判断循环变量的取值是否在终值范围内否则结束循环,执行Next的下一条语句。(3) 将循环变量的取值自动增加一个步长,然后回转到步骤(2)继续执行。若是则执行循环体内的语句,循环中可以在任何位置放置任意个ExitFOr语句,该语句的作用是退出循环,转到Next语句的下一条语句。ExitFor语句经常在条件判断之后使用,例如在IfThen语句之后。例如,修改上例如下:For1=1To10ForJ=1To10ForK

3、=1To10NextKNextJNextI实例3.3打印九九乘法表但是本例讲解怎样打印九九乘法表,如图3.18所示。九九乘法表的打印看起来很烦琐,如果使用嵌套循环,则问题变得非常简单。M-WXXX-MXslis:Eii益竄盂?:4坤强右d秤TJOHIW4V甲JH4UIIXVbl壯43打开【代码】窗口,编写窗体的Click事件过程如下:PrivateSubform_Click()Print“九九乘法表”PrintFori=1To9Forj=1Tois=i*jPrintj&“X”&i&“二”&sNextjPrintNextiEndSub在该段代码中,首先使用Print方法打印出标题和一个空行。然后

4、使用了一个两重的嵌套循环结构。关于Print方法的使用细节请参见下一章。2.Do循环语句如果不知道某一段代码需要重复执行的次数,可以使川Do循环语句0该语句有两种基本形式:(1)DoWhile表达式循环体ExitDoLoop这种格式的Do循环先判断条件,后执行循环体。与If.Then语句类似,While子句的表达式一般是关系表达式或逻辑表达式,也可以是算术表达式。如果表达式的值不为零(True),即条柞为真,则执行循环体。如果表达式的值为零False),即条件为假,则终止循环。其流程如图3.19所示。例如,通过下列代码,可以求出2460和345的最大公约数。PrivateSubForm_Cli

5、ck()m=2460:n=345DimsAsSingleDowhile(n0)s=mModnm=nn=sLoopPrint“最大公约数=”&mEndSub在Do.Loop中可以在任何位置放置任意个数的ExitDo语句,随时跳出Do-Loop循环。ExitDo通常用于条件判断之后,例如If.then,在这种情况下,ExitDo语句将控制权转移到紧接在Loop命令之后的语句。如果ExitDo使用在嵌套的DoLoop语句中,则ExitDo会将控制权转移到ExitDo所在位置的外层循环。While子句也可以出现在Loop语句后,形式如下:Do.循环体。ExitDo.LoopWhile表达式.这种格式的特点是先执行循环体,后判断条件。也就是说第一次进入循环是无条件的。循环体至少会被执行一次,其流程如图3.20所示。而如果While子句出现在Do后,则可能一次也不执行。0DoWhileLcop(2)DoUntil表达式.循环体。ExitDo.Loop.将While子句换成Until子句后,情况正好相反。只有当表达式的值不为O(ture),即条件为真时才终止循环,否则继续循环。Until子句也可以出现在助Loop的后面,也表示先执行循环体,后判断条件。

展开阅读全文
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!