第9课: 循环的应用
只要电脑处理器可以支援，Visual Basic允许一个程式被重复执行多次， 这种重复的程式叫着循环. 循环是VB里一个非常有用的程式，因为它可以把异常复杂的工作简单化，从而节省时间和金钱。在VB里有三种循环，那就是 Do.........Loop 循环 , For.........Next 循环和While...... Wend循环。
9.1 Do Loop 迴圈
它的结构如下：
a) Do While 条件式
一或多行的指令行
Loop
b) Do
一或多行的指令行
Loop While 条件式
c) Do Until 条件式
一或多行的指令行
Loop
d) Do
一或多行的指令行
Loop Until 条件式
范例 9.1
Do while counter <=1000
num.Text=counter
counter =counter+1
Loop
* 上面的例子中 counter 会继续增加，直到counter >1000.
上面的例子也可写成如下的程序：
Do
num.Text=counter
counter=counter+1
Loop until counter>1000
9.2 退出Do 的循环
当我们需提前退出Do的循环时，可使用关键字Exit Do。请参考范例9.2。
范例9.2：
Dim sum, n As Integer
Private Sub Form_Activate()
List1.AddItem "n" & vbTab & "sum"
Do
n = n + 1
Sum = Sum + n
List1.AddItem n & vbTab & Sum
If n = 100 Then
Exit Do
End If
Loop
End Sub
9.3 For....Next 循环
For.....Next 循环的结构如下:
For counter=起始值 to 终止值(Step 间隔值)
一或多行的指令行
Next
范例
9.3(a) For counter=1 to 10
display.Text=counter
Next
9.3(b) For counter=1 to 1000 step 10
counter=counter+1
Next
9.3(c) For counter=1000 to 5 step -5
counter=counter-10
Next
要退出For.....Next 的循环，使用的指令是Exit For。请参考范例9.3(d)
范例9.3(d)
Private Sub Form_Activate( )
For n=1 to 10
If n>6 then
Exit For
End If
Else
Print n
End If
End Sub
9.4 While….Wend 循环
While...... Wend 循环的结构如下：
范例 9.4
Private Sub Form_Activate()
List1.AddItem "n" & vbTab & "sum"
While n <> 100
n = n + 1
Sum = Sum + n
List1.AddItem n & vbTab & Sum
Wend
End Sub
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-