DO...LOOP

 

語法

        DOLOOP 敘述可重複執行某一段程式段。

        Do [{While | Until} condition]

        [statements]

        [Exit Do]

        [statements]

        Loop [{While | Until} condition]

操作

        一個指令重複執行的程式迴圈,不需依賴使用者定義的條件。

  • Modifier WHILEUNTIL的額外的修飾辭,放置在DO LOOP的後面,不是兩者都用。WHILE修飾辭被使用時,如果condition一直為真,則迴圈會繼續。UNTIL修飾辭被使用時,則迴圈會繼續直到condition為真。
  • Condition 布林值。
  • Statements 額外的有效敘述,包含額外的EXIT DOCONTINUE指令。

說明

        基本的DO LOOP 指令會讓其中的程式段永遠不斷地執行。你可以在迴圈的開始或結束的地方加上WHILE敘述(但不能二處都加),如此當布林條件為「真」時,其下的程式段將被執行。如果WHILE被放在迴圈結束的地方,則程式段將至少被執行一次,然後才做布林條件的判斷。 UNTIL的用法類似WHILE的用法,只是UNTIL是當布林條件為「真」時結束而不是繼續執行程式段EXIT DO指令可放在程式段之中,用來立即離開LOOP迴圈。


範例
        以下為DO LOOP敘述的例子
 

Sub Main()
   
Dim x As Short
   
    x =
1
   
Do While x<5
       
Debug "*"
        x +=
1 ' Display 4 asterisks
    Loop
   
   
Debug CR
    x =
1
   
   
Do
       
Debug "*"
        x +=
1 ' Display 4 asterisks
    Loop While x<5
   
   
Debug CR
    x =
5
   
   
Do Until x=0
       
Debug "*"
        x -=
1 ' Display 5 asterisks
    Loop
   
   
Debug CR
    x =
5
   
   
Do
       
Debug "*"
        x -=
1 ' Display 5 asterisks
    Loop Until x=0
End Sub

 
 
如需詳細說明,請參考InnoBasic程式語言介紹裡的程式控制流程敘述