Exit For 陳述式可用來結束 For/Next 迴圈。以下的範例會搜尋全域陣列名稱中是否有 Fred 這個名字。假如找到這個名字,就會傳回這個名字在陣列中的索引。否則的話,就傳回 1。例如,假如名稱陣列為:
Array ("Frank", "Helen", "Fred", "Linda")
則公式會傳回 3。
Global names () As String
'The names array has been initialized and filled
'in other formulas
Dim i
formula = -1
'The UBound function returns the size of its array
'argument
For i = 1 to UBound (names)
If names (i) = "Fred" Then
formula = i
Exit For
End If
Next I