繰り返し

1. 制御変数等の変数を宣言
2. 変数に初期値を入れる
3. 繰り返し条件を定義
4. 繰り返す処理を定義

制御変数が指定の初期値から指定の最終値になるまで繰り返す。

制御変数は、Step増分値を指定しなければ、１ずつ増加する。

For　制御変数　＝　初期値　To　最終値　[Step 増分値] 

    n = Cells(1, 1).Value

    S = 0

    For i = 1 To n

        S = S + i

    Next

    Cells(1, 2).Value = S

制御変数が指定の条件であるうちは繰り返す。

While　制御変数　条件 

    n = Cells(2, 1).Value

    S = 0

    i = 1

    While i <= n

        S = S + i

        i = i + 1

    Wend

    Cells(2, 2).Value = S

While文の中にFor Next文が入っているタイプ

    While i < 8

        Dim S As String

        S = ""

        For j = 1 To i

            S = S + "*"

        Next

        Cells(i, 1) = S

        i = i + 1

    Wend