简说VB循环语句_第1页
简说VB循环语句_第2页
简说VB循环语句_第3页
简说VB循环语句_第4页
简说VB循环语句_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、精选优质文档-倾情为你奉上循环结构是指在一定条件下多次重复执行一组语句。VB中提供了两种循环语句,它们是For语句和Do语句。    1. For循环语句    如果己知某一段代码需要重复执行的次数,可以使用For循环语句。该语句的一般形式如下:  For<循环变量>=<初值>To<终值>Step<步长> <语句块> Exit ForNext<循环变量>例如:For i=l To 8 Step1 Print “这是文本”&iNext i 

2、;   该段代码的功能是在窗体上显示8行文本,如图3.16所示。如果不采用循环结构,则需要使用8条Print语句来实现相同的功能。For语句中的循环变量必须是数值型,初值、终值以及步长则是具体的数值Fornext步长用来指定循环变量每次的增量,当所有循环体中的语句都执行后,循环变量就会自动增加一个步长。默认的步长为1.For语句的执行流程如图3.17所示。    具体执行流程为:    (1)将初值赋给循环变量。    (2)判断循环变量的取值是否在终值范围内否则结束循环,执行Next

3、的下一条语句。    (3)将循环变量的取值自动增加一个步长,然后回转到步骤(2)继续执行。    若是则执行循环体内的语句,循环中可以在任何位置放置任意个Exit FOr语句,该语句的作用是退出循环,转到Next语句的下一条语句。Exit For语句经常在条件判断之后使用,例如在IfThen语句之后。    例如,修改上例如下:  For I=1 To 10 For J=1 To 10 For K= 1 To 10 . Next K Next JNext I实例3.3打印九九乘法表 

4、   本例讲解怎样打印九九乘法表,如图3.18所示。九九乘法表的打印看起来很烦琐,但是如果使用嵌套循环,则问题变得非常简单。    打开【代码】窗口,编写窗体的Click事件过程如下:  Private Sub form_Click()Print“-九九乘法表-”PrintFor i=1 To 9 For j=1 To i s=i*j Print j & “X”& i & “=” & s Next j Print Next iEnd Sub    在该段代码中,首先使用Pr

5、int方法打印出标题和一个空行。然后使用了一个两重的嵌套循环结构。关于Print方法的使用细节请参见下一章。2.Do循环语句    如果不知道某一段代码需要重复执行的次数,可以使川Do循环语句0该语句有两种基本形式:    (1)Do While<表达式>    循环体    Exit Do    Loop    这种格式的Do循环先判断条件,后执行循环体。与IfThen语句类似,While子句的<

6、表达式>一般是关系表达式或逻辑表达式,也可以是算术表达式。如果表达式的值不为零(True),即条柞为真,则执行循环体。如果表达式的值为零False) ,即条件为假,则终止循环。其流程如图3.19所示。    例如,通过下列代码,可以求出2460和345的最大公约数。  Private Sub Form_Click()m=2460:n=345Dim s As SingleDo while(n<>0) s=m Mod n m=n n=sLoop Print“最大公约数=” & mEnd Sub    在

7、DoLoop中可以在任何位置放置任意个数的Exit Do语句,随时跳出Do-Loop循环。Exit Do通常用于条件判断之后,例如Ifthen,在这种情况下,Exit Do语句将控制权转移到紧接在Loop命令之后的语句。如果Exit Do使用在嵌套的DoLoop语句中,则Exit Do会将控制权转移到Exit Do所在位置的外层循环。    While子句也可以出现在Loop语句后,形式如下:    Do.    循环体。    Exit Do.    Loop While<表达式>.    这种格式的特点是先执行循环体,后判断条件。也就是说第一次进入循环是无条件的。循环体至少会被执行一次,其流程如图3.20所示。而如果While子句出现在Do后,则可能一次也不执行。    (2) Do Until<表达式>.    循环体。    Exit Do.    Loop.    将Whi

温馨提示

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

评论

0/150

提交评论