Lotus Symphony 1.2
|
結束 Do...Loop、For...Next、函數或子常式。
Exit Do
僅在 Do...Loop 陳述式內有效,作用是結束迴圈。程式繼續執行 Loop 陳述式之後的陳述式。如果 Do...Loop 陳述式是巢狀陳述式,則會將控制傳遞到下一個更高層的迴圈中。
Exit For
僅在 For...Next 迴圈內有效,作用是結束迴圈。程式繼續執行 Next 陳述式之後的第一個陳述式。在巢狀陳述式中,則會將控制傳遞到下一個更高層的迴圈中。
Exit Function
立即結束 Function 程序。程式繼續執行 Function 呼叫之後的陳述式。
Exit Sub
立即結束子常式。程式繼續執行 Sub 呼叫之後的陳述式。
附註:Exit 陳述式不能定義程式結構的結束,不得與 End 陳述式混淆。
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) as String
Dim siStep as Single
For siStep = 0 to 10 REM 用測試資料來填入陣列
sListArray(siStep) = chr(siStep + 65)
msgbox sListArray(siStep)
next siStep
sReturn = LinSearch(sListArray(), "B")
Print sReturn
end sub
Function LinSearch( sList(), sItem As String ) as integer
dim iCount as Integer
REM LinSearch 搜尋 TextEntry 的 TextArray:sList():
REM 傳回項目的索引或 0 (空)
for iCount=1 to Ubound( sList() )
if sList( iCount ) = sItem then
Exit for REM 找到 sItem
end if
next iCount
if iCount = Ubound( sList() ) then iCount = 0
LinSearch = iCount
end function