今回は、同じような処理を何回もやる場合に重宝する方法があるので、
早速やってみましょう。
1から10までの数を全部足して表示するプログラムを作ってみましょう。
Sub Main()
Dim a As Integer = 0
Dim i As Integer = 1
While i <= 10
a = a + i
i = i + 1
End While
Console.WriteLine("1から10の合計は{0}です", a)
End Sub
プログラムを実行すると以下のようになります。
1から10の合計は55です
繰り返し文のWhile(ホワイル)文が登場です。
While i <= 10
a = a + i
i = i + 1
End While
プログラムの流れは、以下のフローチャートで表しました。
上記図のように繰り返し処理が実行されます。