简说VB循环语句要领.doc

循环结构是指在一定条件下多次重复执行一组语句。VB中提供了两种循环语句，它们是For语句和Do语句。 ??? 1. For循环语句 ??? 如果己知某一段代码需要重复执行的次数，可以使用For循环语句。该语句的一般形式如下： ? For=初值To终值[Step步长] 语句块 [Exit For] Next循环变量 例如: For i=l To 8 Step1 Print “这是文本”i Next i ??? 该段代码的功能是在窗体上显示8行文本，如图3.16所示。如果不采用循环结构，则需要使用8条Print语句来实现相同的功能。 For语句中的循环变量必须是数值型，初值、终值以及步长则是具体的数值For…next 步长用来指定循环变量每次的增量，当所有循环体中的语句都执行后，循环变量就会自动增加一个步长。默认的步长为1.For语句的执行流程如图3.17所示。 ??? 具体执行流程为： ??? （1）将初值赋给循环变量。??? （2）判断循环变量的取值是否在终值范围内否则结束循环，执行Next的下一条语句。??? （3）将循环变量的取值自动增加一个步长，然后回转到步骤（2）继续执行。 ??? 若是则执行循环体内的语句，循环中可以在任何位置放置任意个Exit FOr语句，该语句的作用是退出循环，转到Next语句的下一条语句。Exit For语句经常在条件判断之后使用，例如在If…Then语句之后。 ??? 例如，修改上例如下： ? For I=1 To 10 For J=1 To 10 For K= 1 To 10 .... Next K Next J Next I 实例3.3打印九九乘法表 ??? 本例讲解怎样打印九九乘法表，如图3.18所示。九九乘法表的打印看起来很烦琐，但是如果使用嵌套循环，则问题变得非常简单。 ??? 打开【代码】窗口，编写窗体的Click事件过程如下： ? Private Sub form_Click() Print----------------------------九九乘法表----------------------” Print For i=1 To 9 For j=1 To i s=i*j Print j “X” i “=” s Next j Print Next i End Sub ??? 在该段代码中，首先使用Print方法打印出标题和一个空行。然后使用了一个两重的嵌套循环结构。关于Print方法的使用细节请参见下一章。 2.Do循环语句 ??? 如果不知道某一段代码需要重复执行的次数，可以使川Do循环语句0该语句有两种基本形式： ??? （1）Do While表达式??? 循环体??? [Exit Do]??? Loop ??? 这种格式的Do循环先判断条件，后执行循环体。与If…Then语句类似，While子句的表达式一般是关系表达式或逻辑表达式，也可以是算术表达式。如果表达式的值不为零（True）,即条柞为真，则执行循环体。如果表达式的值为零〔False） ,即条件为假，则终止循环。其流程如图3.19所示。 ??? 例如，通过下列代码，可以求出2460和345的最大公约数。 ? Private Sub Form_Click() m=2460:n=345 Dim s As Single Do while(n0) s=m Mod n m=n n=s Loop Print=” m End Sub ??? 在Do…Loop中可以在任何位置放置任意个数的Exit Do语句，随时跳出Do-Loop循环。Exit Do通常用于条件判断之后，例如If…then,在这种情况下，Exit Do语句将控制权转移到紧接在Loop命令之后的语句。 如果Exit Do使用在嵌套的Do…Loop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。 ??? While子句也可以出现在Loop语句后，形式如下：??? Do.??? 循环体。??? [Exit Do].??? Loop While表达式. ??? 这种格式的特点是先执行循环体，后判断条件。也就是说第一次进入循环是无条件的。循环体至少会被执行一次，其流程如图3.20所示。而如果While子句出现在Do后，则可能一次也不执行。 ??? （2） Do Until表达式.??? 循环体。??? [Exit Do].??? Loop. ??? 将While子句换成Until子句后，情况正好相反。只有当表达式的值不为O（ture）,即条件为真时才终止循环，否则继续循环。 ??? Unti