Exit Statement

একটি Do...Loop, For...Next, একটি ফাংশন, অথবা একটি সাবরুটিন হতে প্রস্থান করে।

সিনট্যাক্স:

প্যারামিটার দেখুন

প্যারামিটার:

Exit Do

লুপ থেকে প্রস্থান করার জন্য শুধুমাত্র Do...Loop স্টেটমেন্টের মধ্যে উপস্থিত থাকা বৈধ। প্রোগ্রাম চালনা স্টেমেন্টের সাথে বহাল থাকে যা লুপ স্টেটমেন্ট অনুসরণ করে থাকে। Do...Loop স্টেটমেন্টটি একত্রিত থাকে, তাহলে কন্ট্রোলটি পরবর্তী উচ্চতর স্তরের লুপে স্থানান্তরিত হয়ে থাকে।

Exit For

লুপ থেকে প্রস্থান করার জন্য শুধুমাত্র For...Next লুপের মধ্যে বৈধ। প্রোগ্রাম চালনা প্রথম স্টেটমেন্ট দ্বারা বহাল থাকে যা Next স্টেটমেন্টটি অনুসরণ করে থাকে। নেস্টেড স্টেটমেন্টের মধ্যে, কন্ট্রোলটি পরবর্তী উচ্চতর স্থরের লুপে স্থানান্তরিত হয়।

Exit Function

অবিলম্বে ফাংশন প্রসিজার থেকে প্রস্থান করে থাকে। প্রোগ্রাম চালনা নিচের স্টেটমেন্টের সাহায্যে বহাল থাকে যা ফাংশন কল অনুবর্তী।

Exit Sub

অবিলম্বে সাবরুটিন থেকে প্রস্থান করে থাকে। প্রোগ্রাম চালনা স্টেটমেন্ট সহ বহাল থাকে যা সাব কল অনুবর্তী।

নোট আইকন

Exit স্টেটমেন্টটি কাঠামোর শেষ নির্ধারণ করে না, এবং অবশ্যই End স্টেটমেন্ট এর সাথে গুলিয়ে ফেলা যাবে না।


উদাহরণ:

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

End Sub

 

Function LinSearch( sList(), sItem As String ) As Integer

Dim iCount As Integer

REM LinSearch searches a TextArray:sList() for a TextEntry:

REM ভুক্তির ইনডেক্স অথবা ০ (নাল) প্রদান করে

    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