IBM Lotus Symphony
|
يقوم بالخروج من subroutine أو ظيفة Do...Loop, For...Next.
أنظر المعاملات
Exit Do
يكون صحيحا فقط في عبارة Do...Loop statement للخروج من الحلقة. سيستمر تنفيذ البرنامج بالعبارة التي تلي عبارة Loop statement. اذا كانت عبارات Do...Loop متداخلة، سيتم نقل التحكم الى الحلقة في المستوى التالي الأعلى.
Exit For
يكون صحيحا فقط في حلقة a For...Next للخروج من الحلقة. سيستمر تنفيذ البرنامج بأول عبارة تلي عبارة Next. في العبارات المتداخلة، يتم نقل التحكم الى الحلقة التي توجد بالمستوى التالي الأعلى.
Exit Function
تقوم بالخروج من اجراء Function مباشرة. سيستمر تنفيذ البرنامج بالعبارة التي تلي استدعاء Function.
Exit Sub
يتم الخروج من subroutine مباشرة. سيستمر تنفيذ البرنامج بالعبارة التي تلي استدعاء Sub.
![]() |
لا تقوم عبارة Exit بتعريف نهاية هيكل، ويجب عدم الخلط بينها وبين عبارة End statement. |
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) as String
Dim siStep as Single
For siStep = 0 to 10 REM Fill array with test data
sListArray(siStep) = chr(siStep + 65)
msgbox sListArray(siStep)
next siStep
sReturn = LinSearch(sListArray(), "B")
Print sReturn
نهاية البرنامج
Function LinSearch( sList(), sItem As String ) as integer
dim iCount as Integer
REM LinSearch searches a TextArray:sList() for a TextEntry:
REM Returns the index of the entry or 0 ( Null)
for iCount=1 to Ubound( sList() )
if sList( iCount ) = sItem then
Exit for REM sItem found
end if
next iCount
if iCount = Ubound( sList() ) then iCount = 0
LinSearch = iCount
end function