简说VB循环语句

循环结构是指在一定条件下多次重复执行一组语句。

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循环先判断条件，后执行循环体。

与I f…Then语句类似，While子句的<表达式>一般是关系表达式或逻辑表达式，也可以是算术表达式。

如果表达式的值不为零（True）,即条柞为真，则执行循环体。

如果表达式的值为零〔False）,即条件为假，则终止循环。

其流程如图3.19所示。

例如，通过下列代码，可以求出2460和345的最大公约数。

Private Sub Form_Click()
m=2460:n=345
Dim s As Single
Do while(n<>0)
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）,即条件为真时才终止循环，否则继续循环。

Until子句也可以出现在助Loop的后面，也表示先执行循环体，后判断条件。