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

For...Next Statement

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

អថេរ ៖

ឧទាហរណ៍

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