第８講 その他のDo...Loop ステートメント
第３話 Do 〜Ｌｏｏｐ Until文
While文のときと同じようにUntil文にも後判断のDo〜Loopステートメントもあります。
Do 〜Ｌｏｏｐ Until文です。
Do 〜Ｌｏｏｐ Until文の基本構造は、
DO
・
・
・
Loop Until 条件式
です。
今回も１から１０までの和を求めるプログラムをDo 〜Ｌｏｏｐ Until文を使って作ってみましょう。
Private Sub CommandButton1_Click()
Dim i As Integer, wa As Integer
wa = 0
i = 1
Do
wa = wa + i
i = i + 1
Loop Until i = 11
Cells(6, 1) = wa
End Sub
