今回は、同じような処理を何回もやる場合に重宝する方法があるので、
早速やってみましょう。
１から１０までの数を全部足して表示するプログラムを作ってみましょう。
ファイル名：CMain.vb
Class CMain
Shared Sub Main()
Dim a As Integer = 0
Dim i As Integer = 1
Do １
a = a + i
i = i + 1
Loop Until i > 10 ２
Console.WriteLine( _
"１から１０の合計は{0}です", a)
End Sub
End Class
|
プログラムを実行すると、以下のようになります。
ソースダウンロード
１で、繰り返し文のDo Loop文が登場です。
２は、「i が10より大きいなら」ループを抜ける。と言う意味になります。
プログラムの流れは、以下のフローチャートで表しました。
上記図のように繰り返し処理が実行されます。
スポンサードリンク
|
