IBM Lotus Symphony


Exit ステートメント [実行時]

Do...LoopFor...Next、関数、サブルーチンなどを強制的に終了させます。

構文:

パラメータを参照

パラメータ:

Exit Do

Do...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 はテキスト配列 sList( ) 内に指定文字列を検索

REM 戻り値は、該当するインデックス値またはゼロ (NULL)

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


製品フィードバック | その他の資料 | 商標