Module
Contents
Index 🔎︎

# Exit Statement

ចាកចេញ​ពី Do...Loop, For...Next អនុគមន៍​មួយ ឬ​ទម្រង់​ការ​រង​មួយ ។

## វាក្យ​សម្ពន្ធ ៖

    មើល​ប៉ារ៉ាម៉ែត្រ​

## ប៉ារ៉ាម៉ែត្រ ៖

Exit Do

មាន​សុពលភាព​តែ​ក្នុង​សេចក្តី​ថ្លែង​ការណ៍ Do...Loop ដើម្បី​ចេញ​ពី​រង្វិល​ជុំ ។ ការ​ប្រតិបត្តិ​កម្មវិធី​បន្ត​ជាមួយ​សេចក្តី​ថ្លែង​ការណ៍​ដែល​នៅ​បន្ត​ពី​សេចក្តី​ថ្លែង​ការណ៍ Loop ។ បើ​សេចក្តី​ថ្លែង​ការណ៍ Do...Loop ត្រូវ​បាន​ដាក់​ត្រួត​លើ​គ្នា វត្ថុ​បញ្ជា​ត្រូវ​បាន​ផ្ទេរ​ទៅ​រង្វិល​ជុំ​ក្នុង​កម្រិត​ខ្ពស់​ជាង​បន្ទាប់ ។

Exit For

មាន​សុពលភាព​តែ​ក្នុង​រង្វិល​ជុំ For...Next ដើម្បី​ចេញ​ពី​រង្វិល​ជុំ ។ ការ​ប្រតិបត្តិ​កម្មវិធី​បន្ត​ជាមួយ​សេចក្តី​ថ្លែង​ការណ៍​ដំបូង​​ដែល​​នៅ​បន្ត​ពី​សេចក្តី​ថ្លែង​ការណ៍ Next ។ ក្នុង​សេចក្តី​ថ្លែង​ការណ៍​ដែល​ត្រួត​លើ​គ្នា វត្ថុ​បញ្ជា​ត្រូវ​បាន​ផ្ទេរ​ទៅ​រង្វិល​ជុំ​ក្នុង​​កម្រិត​​ខ្ពស់​​ជាង​​បន្ទាប់ ។

អនុគមន៍ Exit

ចេញ​ពី​បែបបទ អនុគមន៍ ភ្លាម​ៗ ។ ដំណើរ​ការ​ប្រតិបត្តិ​បន្ត​ជាមួយ​សេចក្តី​ថ្លែង​ការណ៍ ដែល​នៅ​បន្ត​ពី​ការ​ហៅ អនុគមន៍ ។

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 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 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