IBM Lotus Symphony


‏‎Exit Statement [Runtime]‎‏

يقوم بالخروج من 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


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية