IBM Lotus Symphony


‏‎Function Statement [Runtime]‎‏

يتم تعريف subroutine يمكن استخدامه كتعبير لتحديد نوع الارتجاع return type.

الصيغة

أنظر المعاملات

المعاملات:

الصيغة

‏‎Function Name[(VarName1 [As Type][, VarName2 [As Type][,...]]]) [As Type]‎‏

كتلة العبارة

[Exit Function]

كتلة العبارة

وظيفة الانهاء

المعامل

Name: الاسم الخاص بالبرنامج الفرعي الذي سيحتوي على القيمة المرتجعة من الوظيفة.

VarName: المعامل الذي سيتم امراره الى subroutine.

Type: Type-declaration keyword.

مثال:

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 Return value is 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


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