Do...Loop Statement

ធ្វើ​សេចក្តី​ថ្លែង​ការណ៍​ដែល​នៅ​ចន្លោះ​សេចក្តី​ថ្លែង​ការណ៍ Do និង Loop ឡើង​វិញ ខណៈ​ពេល​លក្ខខណ្ឌ​ពិត ឬ​រហូត​ដល់​លក្ខខណ្ឌ​ក្លាយ​ជា​ពិត ។

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

Do [{While | Until} condition = True]

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

[Exit Do]

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

Loop

ឬ

Do

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

[Exit Do]

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

Loop [{While | Until} condition = True]

ប៉ារ៉ាម៉ែត្រ​/​ធាតុ

លក្ខខណ្ឌ៖ កន្សោម​លេខ ឬ​ខ្សែ​អក្សរ​ប្រៀបធៀប ដែល​វាយ​តម្លៃ​ទាំង ពិត ឬ​មិន​ពិត ។

Statement block ៖ សេចក្តី​ថ្លែង​ការណ៍​ដែល​អ្នក​ចង់​ធ្វើ​ម្តង​ទៀតនូវ​ While ឬ until ​លក្ខខណ្ឌ​ពិត ។

សេចក្តី​ថ្លែង​ការណ៍ Do...Loop ប្រតិបត្តិ​រង្វិល​ជុំ​មួយ​រហូត​ទាល់​តែ​លក្ខខណ្ឌ​ពិត​ប្រាកដ​មួយ​ពិត ។ លក្ខខណ្ឌ​ដើម្បី​ចេញ​ពី​រង្វិល​ជុំ​ត្រូវ​តែ​បញ្ចូល​បន្ត​ពី​សេចក្តី​ថ្លែង​ការណ៍ Do ឬ​Loop ។ ឧទាហរណ៍​ខាង​ក្រោម​គឺ​ជា​បន្សំ​ត្រឹមត្រូវ ៖

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

Do While condition = True

... បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

Loop

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍​នៅ​ចន្លោះ​សេចក្តី​ថ្លែង​ការណ៍ Do While និង Loop ត្រូវ​បាន​ធ្វើ​ម្តង​ទៀត​រហូត​ដល់​លក្ខខណ្ឌ​ពិត ។

Do Until condition = True

... បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

Loop

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍​នៅ​ចន្លោះ​សេចក្តី​ថ្លែង​ការណ៍ Do Until និង Loop statements ត្រូវ​បាន​ធ្វើ​ម្តង​ទៀត បើ​លក្ខខណ្ឌ​នៅ​តែ​មិន​ពិត ។

Do

... បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

Loop While condition = True

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍​ដែល​ស្ថិត​នៅ​ចន្លោះ​សេចក្តី​ថ្លែង​ការណ៍ Do និង Loop ​ធ្វើ​ម្តង​ទៀត​រហូត​ដល់​​លក្ខខណ្ឌ​ពិត ។

Do

... បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍

Loop Until condition = True

បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍​នៅ​ចន្លោះ​សេចក្តី​ថ្លែង​ការណ៍ Do និង Loop ធ្វើ​ម្តង​ទៀត​រហូត​ដល់​លក្ខខណ្ឌ​ពិត ។

ប្រើ​សេចក្តី​ថ្លែង​ការណ៍ Exit Do ដើម្បី​បញ្ចប់​រង្វិល​ជុំ​ដោយ​គ្មាន​លក្ខខណ្ឌ ។ អ្នក​អាច​បន្ថែម​សេចក្តី​ថ្លែង​ការណ៍​នេះ​នៅ​ត្រង់​កន្លែង​ណា​ក៏​បាន​ក្នុង​សេចក្តី​ថ្លែង​ការណ៍ Do...Loop ។ អ្នក​ក៏​អាច​កំណត់​លក្ខខណ្ឌ​ចាកចេញ ដោយ​ប្រើ​រចនា​សម្ព័ន្ធ If...Then ដូច​ខាង​ក្រោម ៖

Do...

សេចក្តី​ថ្លែង​ការណ៍

If condition = True Then Exit Do

សេចក្តី​ថ្លែង​ការណ៍

Loop...

ឧទាហរណ៍

Sub ExampleDoLoop

Dim sFile As String

Dim sPath As String

    sPath = "c:\"

    sFile = Dir$( sPath ,22)

    If sFile <> "" Then

        Do

            MsgBox sFile

            sFile = Dir$

        Loop Until sFile = ""

    End If

End Sub