Do While～Loop

VB<span role="button" tabindex="0" data-code="'条件を満たす間まで　前判定 Dim n As Long n = 1 Do While n < 5 Debug.Print n n = n + 1 Loop '条件を満たす間まで　後判定 n = 1 Do Debug.Print n n = n + 1 Loop While n

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

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