Do Until~Loop

VB 5 Debug.Print n n = n + 1 Loop ‘条件を満たすまで　後判定 n = 1 Do Debug.Print n n = n + 1 Loop Until n > 5″ style=”color:#D4D4D4;display:none” aria-label=”Copy” class=”code-block-pro-copy-button”>

'条件を満たすまで　前判定
Dim n As Long
n = 1
Do Until n > 5
    Debug.Print n
    n = n + 1
Loop

'条件を満たすまで　後判定
n = 1
Do
    Debug.Print n
    n = n + 1
Loop Until n > 5