Do-Loop

Do-Loop :

       यह loop while loop की तरह ही होता है। इसका प्रयोग किसी statement को indefinite time तक repeat करने के लिए किया जाता है। do loop statement को तब तक execute करता है जब तक while या until मे लिखी condition false नहीं हो जाती है। इसमे दो keywords while और until का use किया जाता है। इसमे exit do statement होती है जो की loop को बीच मे ही break करने के लिए use की जाती है। इस loop का syntax निम्नलिखित है।

Syntax-

              Do {[While/ until] condition}

                     [Statements]

                     [Exit Do]

                     [Statements]

              Loop {[While/ until] condition}

इस प्रकार Do- Loop चार प्रकार के होते हैं। जो निम्नलिखित हैं।

i)    Do While – Loop

ii)   Do Until – Loop

iii)  Do- Loop while

iv)  Do- Loop until

• · Do While- Loop : इसमे looping statement condition के true होने पर execute होती है। इसमे while को Do के साथ use किया जाता है।

Syntax-       Do While Condition

                     [Statements]

                     [Exit Do]

                     [Statements]

              Loop

Ex-           Dim i, sum As Integer

           i = sum = 0

           Do While i <= 100

            sum = sum + i

            i = i + 1

           Loop

           MsgBox(sum)

• · Do Until – Loop: इसमे statements condition के false होने तक execute होती रहती है। 

Syntax-     

                     Do Until Condition

                     [Statements]

                     [Exit Do]

                     [Statements]

              Loop

Ex-           Dim i, sum As Integer

            i = sum = 0

           Do Until i = 100

            sum = sum + i

            i = i + 1

           Loop

           MsgBox(sum)

• Do- Loop While:  इसमे looping statement condition के true होने पर execute होती है। इसमे while को loop के साथ use किया जाता है।

Syntax-       Do

                     [Statements]

                     [Exit Do]

                     [Statements]

              Loop While Condition

Ex-           Dim i, sum As Integer

           i = sum = 0

           Do

            sum = sum + i

            i = i + 1

           Loop While i <= 100

           MsgBox(sum)

• Do- Loop Until : Loop: इसमे statements condition के false होने तक execute होती रहती है।

Syntax-       Do

                     [Statements]

                     [Exit Do]

                     [Statements]

              Loop Until Condition

Ex-        Dim i, sum As Integer

           i = sum = 0

           Do

            sum = sum + i

            i = i + 1

           Loop Until i = 100

           MsgBox(sum)