退出循环

有时候，我们可能需要中途退出循环。针对 For 循环，我们使用 Exit For 语句来退出循环。针对 Do 循环，我们使用 Exit Do 语句退出循环。

用 Exit For 退出 For 循环

比如我们要列出所有在 C 盘根目录下从第一个到 C:\Program Files 的所有目录。就可以用 Exit For。示例如下：
1. 新建一个 Form。
2. 添加一个 Button 控件，将其 Name 属性设置为btnDisplay，Text 属性设置为 Display。
3. 添加一个 ListBox 控件，将其 Name 设置为 lstData。
4. 双击 Button 控件，进入代码编辑器，然后加入下面红色代码如下：

Public Class Form1
    Private Sub btnDisplay_Click(ByVal sender As System.Object,  _
    ByVal e As System.EventArgs) Handles btnDisplay.Click
        For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
            lstData.Items.Add(strFolder)
            If String.Compare(strFolder, "C:\program files", True) = 0 Then
                Exit For
            End If
        Next
    End Sub
End Class

5. 然后 F5 运行，点击 btnDisplay 按钮，你会看到 C 盘根目录下的第一个到 C:\Program Files 的所有文件夹列示在 ListBox 里，如下图：

C:\Documents and Settings
C:\MSOCache
C:\Program Files

用 Exit Do 退出 Do 循环

示例如下：

  Public Function GetPos(ByVal Content As String) As Integer
        Dim i As Integer = 0
        Dim c As Char = ""
        Do Until i = Content.Length - 1
            c = Content.Substring(i, 1)
            If c = "a" Then
                Exit Do
            End If
            i += 1
        Loop
        Return i+1
  End Function

这个函数的目的是得到一个字符串中第一次出现英文字母a 的位置。

比如我们给定一个字符串为 "be happy"，该函数返回 5 。先求得字符串的长度，然后用 Do...Loop 循环得到每个字符，如果该字符为英文字母 a，则退出循环，返回 a 在字符串中的位置。

编者或作者: 我有闲    收录日期: 2008-10-23
参考或来源:

上一页: Do...Loop 循环的其他形式 返回上级目录: 流程控制 下一页: 嵌套循环