第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

[上一课][返回主页][下一课]

Copyright © 2008 vbtutor.net . All rights reserved |Contact: admin@vbtutor.net

[Privacy Policy]