ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

Do Loop Until

 

概要

 
Do 
 実行する処理
Loop While 条件式
Do 
 実行する処理
Loop Until 条件式
少なくとも1度は処理をする場合に用います。
While~Loopとは異なり、条件はLoopの後に書きます。

サンプル

nが10になるまでLoop Whileの後に1を加算します。
n = 10になったときに処理を抜けていることが確認できます。

Dim n As Integer

n = 1
Debug.Print "ζ*'ヮ')ζ" & n & "回目で処理開始"

Do
Debug.Print "ζ*'ヮ')ζ" & n & "回目!"
n = n + 1
Loop While n < 10

Debug.Print "ζ*'ヮ')ζ" & n & "回目で処理を抜けるよ"

実行結果

この画像には alt 属性が指定されておらず、ファイル名は image-35.png です