Module
Contents
Index 🔎︎

# For...Next Statement

ធ្វើ​សេចក្តី​ថ្លែង​ការណ៍​នៅ​ចន្លោះ​បណ្តុំ For...Next ម្តង​ទៀត តាម​ចំនួន​ដង​ដែល​បាន​បញ្ជាក់ ។

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

    For counter=start To end [Step step]
    បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍
    [Exit For]
    បណ្តុំ​សេចក្តី​ថ្លែង​ការណ៍
    Next [counter]

## អថេរ ៖

Counter: អ្នក​រាប់​រង្វិល​​ជុំ​​​ដែល​ផ្តល់​តម្លៃ​ចាប់ផ្តើម​នូវ​​តម្លៃ​ដែល​នៅ​ខាង​ស្តាំ​សញ្ញា​ស្មើ (start) ។ មាន​តែ​អថេរ​លេខ​ប៉ុណ្ណោះ​ដែល​ត្រឹមត្រូវ ។ អ្នក​រាប់​រង្វិល​ជុំ​កើន ឬ​ថយ ដោយ​យោង​​ទៅ​តាម​អថេរ Step រហូត​ដល់ End ត្រូវ​បាន​ហុច ។

ចាប់​ផ្តើម​ ៖ អថេរ​ជា​លេខ​ដែល​កំណត់​តម្លៃ​ចាប់ផ្តើម​នៅ​ដើម​នៃ​រង្វិល​ជុំ ។

ចុង​បញ្ចប់​ ៖ អថេរ​លេខ​ដែល​កំណត់​តម្លៃ​ចុង​ក្រោយ​នៅ​ចុង​បញ្ចប់​នៃ​រង្វិល​ជុំ ។

Step ៖ កំណត់​តម្លៃ​ដែល​ប្រើ​ដើម្បី​បង្កើន ឬ​បន្ថយ​អ្នក​រាប់​រង្វិល​ជុំ ។ ប្រសិន​បើ Step មិន​ត្រូវ​បាន​បញ្ជាក់​ទេ​ នោះ​អ្នក​រាប់​រង្វិល​ជុំ​ត្រូវ​បាន​បង្កើន​ម្តង 1 ។ ក្នុង​ករណី​នេះ End ត្រូវ​តែ​ធំ​ជាង Start ។ ប្រសិន​បើ​អ្នក​ចង់​បន្ថយ Counter End ត្រូវ​តែ​តូច​ជាង Start ហើយ Step ត្រូវ​តែ​ផ្តល់​តម្លៃ​អវិជ្ជមាន ។

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

នៅ​ពេល​អថេរ​រាប់​ត្រូវ​បាន​បន្ថយ LibreOffice Basic ពិនិត្យ​មើល​ប្រសិន​បើ​ឈាន​ដល់​​តម្លៃ​បញ្ចប់​​ ។ ដរាបណា​​អ្នក​រាប់​​ហុច​​តម្លៃ​បញ្ចប់ រង្វិល​ជុំ​នឹង​បញ្ចប់​ដោយ​ស្វ័យ​ប្រវត្តិ ។

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

ប្រសិន​បើ​អ្នក​បញ្ជាក់​​​ចំនួន​បន្ថែម ០ នោះ​សេចក្តី​ថ្លែង​ការណ៍​នៅ​ចន្លោះ For និង​Next ត្រូវ​បាន​ធ្វើ​ម្តង​ទៀត​រហូត ។

នៅ​ពេល​រាប់​ចុះ​អថេរ​រាប់ LibreOffice Basic ពិនិត្យ​មើល​ភាព​លើស​​ ឬ​ខ្វះ​​ ។ រង្វិល​នឹង​បញ្ចប់​នៅ​ពេល Counter លើស End (តម្លៃ Step វិជ្ជមាន) ឬ​តិច​ជាង End (តម្លៃ Step អវិជ្ជមាន) ។

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

For...

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

If condition = True Then Exit For

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

បន្ទាប់

ចំណាំ ៖ ក្នុង​រង្វិល​ជុំ For...Next ដែល​ត្រួត​លើ​គ្នា បើ​អ្នក​ចេញ​ពី​រង្វិល​ជុំ​មួយ​ដោយ​គ្មាន​លក្ខខណ្ឌ ​ដោយ​ប្រើ Exit For នោះ​មាន​តែ​រង្វិល​ជុំ​មួយ​ប៉ុណ្ណោះ ដែល​ត្រូវ​បាន​ចេញ ។

## ឧទាហរណ៍

ឧទាហរណ៍​ខាង​ក្រោម​ប្រើ​រង្វិល​ជុំ​ដែល​បាន​ត្រួត​​​លើ​គ្នា​ពីរ ដើម្បី​តម្រៀប​អារេ​​ខ្សែ​អក្សរ​ដែល​មាន​ធាតុ ១០ ( sEntry() ) ដែល​ដំបូង​ត្រូវ​បាន​បំពេញ​ដោយ​មាតិកា​ផ្សេង​ៗ​គ្នា ៖

    Sub ExampleSort
    Dim sEntry(9) As String
    Dim iCount As Integer
    Dim iCount2 As Integer
    Dim sTemp As String
        sEntry(0) = "Jerry"
        sEntry(1) = "Patty"
        sEntry(2) = "Kurt"
        sEntry(3) = "Thomas"
        sEntry(4) = "Michael"
        sEntry(5) = "David"
        sEntry(6) = "Cathy"
        sEntry(7) = "Susie"
        sEntry(8) = "Edward"
        sEntry(9) = "Christine"
        For iCount = 0 To 9
            For iCount2 = iCount + 1 To 9
                If sEntry(iCount) > sEntry(iCount2) Then
                    sTemp = sEntry(iCount)
                    sEntry(iCount) = sEntry(iCount2)
                    sEntry(iCount2) = sTemp
                End If
            Next iCount2
        Next iCount
        For iCount = 0 To 9
            Print sEntry(iCount)
        Next iCount
    End Sub