For Each … Next 繰返し [VB]

要素の数 繰り返し処理

繰返し制御文
For Next
For Next 入れ子
For Step Next
For Each Next
Exit For 強制終了
Do While Loop
Do Until Loop
Do Loop While
Do Loop Until
Exit Do 強制終了

For Eachは、特に要素グループのメンバー数が不定の時にはとても便利です。

In で指定した配列などの要素グループのすべての要素について、もれなく For Each の次行から Next 間での処理を実行してくれます。要素のデータ型は、要素グループのデータ型に揃えます。

  For Each 要素  As データ型 In 要素グループ
    ..........
    .......
    ..........
  Next

For EachNext の使い方は、サンプルプログラムを参考にしてください。

ForEachNext

合計値を求めるサンプルプログラム

For EachNext を使って、配列要素の合計値を求めるサンプルプログラムを作成します。

配列の詳細については、

を参考にしてください。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

    Sub Main()
        ' 配列変数の宣言
        Dim arryTensuu() As Integer = {85, 80, 90, 75, 60}
        ' 変数の宣言
        Dim sum As Integer = 0

        ' For Each Next を使って配列の合計を求める
        For Each tensuu As Integer In arryTensuu
            Console.WriteLine(tensuu & "を加算")
            ' 前回までの合計値に加える
            sum = sum + tensuu
        Next

        ' 合計を表示
        Console.WriteLine()        ' 改行
        Console.Write("合計は、")
        Console.Write(sum)
        Console.Write(" です")
        Console.WriteLine()        ' 改行
    End Sub

End Module

次回は、Exit For について学習します。

次回: Exit For