Do ... Loop 敘述句

剛介紹完了有限制的For敘述之後，這次就介紹可以無限重覆做動作的迴圈吧！以下是一個簡單的例子：（請準備好一個Command1）

Private Sub Command1_Click()
    Do '開始迴圈
        a = MsgBox("無限迴圈的MsgBox，按否離開迴圈", vbYesNo) '呼叫出對話視窗，a 接收傳回值
        If a = vbNo Then '如果 a 的傳回值是vbNo，即是按了否按鈕的話
            Exit Do '才提早離開Do ... Loop
        End If
    Loop '迴圈
End Sub

也可以改成這樣子：

Private Sub Command1_Click()
    Do Until a = vbNo '開始迴圈直到 a = vbNo
        a = MsgBox("無限迴圈的MsgBox", vbYesNo) '呼叫出對話視窗，a 接收傳回值
    Loop '迴圈
End Sub

也可以改成這樣子：

Private Sub Command1_Click()
    Do While a <> vbNo '開始迴圈，當 a 不等於 vbNo 的時候則繼續
        a = MsgBox("無限迴圈的MsgBox", vbYesNo) '呼叫出對話視窗，a 接收傳回值
    Loop '迴圈
End Sub

上一頁