Lotus Symphony 1.2


Exit 陳述式 [執行時期]

結束 Do...LoopFor...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


其他文件 | 商標