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