For Next文

　前節までは、条件分岐の方法を見てきました。これからしばらく、反復処理の方法を見ていきましょう。最初に、For Next文です。このステートメントは、回数を指定して繰り返し処理を行なわせることができます。

　次のようにプロジェクトを作成してください。実行するとコンソールに結果が表示されます。

For Next文の書式
For 初期化式 To 終値 Step 増分　処理 Next

プロジェクトの種類	コンソールアプリケーション
プロジェクト名	ForNextTest1

Sub Main()
　'変数の宣言
　Dim i As Integer
　'繰り返し処理
　For i = 0 To 10 Step 2
　　'ループカウンターを画面に表示
　　Console.WriteLine(i)
　Next
　Console.ReadLine()
End Sub

　8行目で変数iが0～10までの間、繰り返し処理を実行することを指定しています。Stepで繰り返し処理ごとにループカウンターを加算する数値を指定します。今回は2と指定しているので、繰り返し処理ごとにループカウンターが2ずつ増加します。10行目で、ループカウンターを画面に表示しています。

　For Next文では、1ずつ増やす場合はStepを省略することができます。また、マイナスの値を設定することでカウントダウンさせることができます。

　次のようにプロジェクトを作成してください。実行するとコンソールに結果が表示されます。

プロジェクトの種類	コンソールアプリケーション
プロジェクト名	ForNextTest2

Sub Main()
　'変数の宣言
　Dim i As Integer
　'繰り返し処理(カウントダウン)
　For i = 10 To 0 Step -1
　　'ループカウンターを画面に表示
　　Console.WriteLine(i)
　Next
　Console.ReadLine()
End Sub

　8行目で変数iが10～0までの間、繰り返し処理を実行することを指定しています。Stepで-1が指定されているので、ループ処理をするごとにループカウンターが減っていきます。その状態を10行目で表示させています。

　次に、For Next文の中にFor Next文を記述する方法を見てみましょう。この方法はネスト(入れ子)と呼ばれ、外のループ1回につき、中のループを複数回処理させることができます。次のサンプルでは入力した個数の「■」を持つ正方形を描画します。

　次のようにプロジェクトを作成してください。実行するとコンソールに結果が表示されます。

プロジェクトの種類	コンソールアプリケーション
プロジェクト名	ForNextTest3

Sub Main()
　'正方形の辺の個数を入力
　Console.Write("正方形の辺の個数：")
　Dim num As Integer = Console.ReadLine()
　'縦方向のループ
　For i As Integer = 1 To num
　　'横方向のループ
　　For j As Integer = 1 To num
　　　'■を表示
　　　Console.Write("■")
　　Next
　　'改行
　　Console.WriteLine()
　Next
　Console.ReadLine()
End Sub

正方形の辺の個数：5
■■■■■
■■■■■
■■■■■
■■■■■
■■■■■

　6行目で変数numにユーザーがキーボードより入力したデータが格納されます。9行目で変数iが0～入力した個数までの間、繰り返し処理を実行することを指定しています。さらにそのループの中で11行目にあるFor Next文が記述されており、変数jが0～入力した個数までの間、繰り返し「■」を横方向に表示します。このループ処理が終わると、16行目で改行を出力し、次の表示が次の行になるようにしています。これで外側のループ処理が終わったので、変数iが1加算されて、再びループ処理が行われることになります。結果として縦にも横にも同じ数の「■」が表示されます。

　配列とFor Next文を組み合わせるとプログラミングしやすくなります。配列のインデックスは0から始まります。配列のすべての要素にアクセスするには0～(配列の要素数-1)までアクセスすることになります。このインデックスにFor Next文のループカウンターを使用することができます。

　次のようにプロジェクトを作成してください。実行するとコンソールに結果が表示されます。

プロジェクトの種類	コンソールアプリケーション
プロジェクト名	ForNextTest4

Sub Main()
　'配列を用意
　Dim fruits As String() = {"みかん", "もも", "なし"}
　'繰り返し処理
　For i As Integer = 0 To fruits.Length - 1
　　'フルーツを表示
　　Console.WriteLine(fruits(i))
　Next
　Console.ReadLine()
End Sub

　5行目で配列fruitsを初期化しています。8行目で変数iが0～2までの間、繰り返し10行目が実行されます。今回のサンプルの配列の要素は3つあるので、インデックスは0～2となります。その間、繰り返し処理をするために終了条件を「配列名.length -1」までとしています。配列のインデックスをループカウンターで指定することで配列のすべての要素を利用することができます。