ループ処理（配列）
配列の要素数分繰り返す
For Each文は、配列の要素数分、配列の値を1つずつ参照し繰り返し処理を行うことができます。
For Each 受取変数の定義 In 配列変数
配列の要素数分繰り返す処理
Next
それではサンプルを見てみましょう。
Console.WriteLineを使って、For Eachの動作をコンソールに出力します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Dim list() As Integer = { 0, 2, 3, 6, 9, 10 } Dim find As Integer = 3 Dim cnt As Integer = 1 Dim flg As Boolean = false ' 変数aにlistの要素を一つずつ格納して処理を行う For Each a As Integer in list Console.WriteLine(cnt & "回目のループ") if a = find Then flg = true Exit For End If cnt += 1 Next ' listの要素に、指定した値が存在したか if flg = true Then Console.WriteLine(find & "が見つかりました") Else Console.WriteLine(find & "が見つかりませんでした") End If |
変数findに調べたい値を格納し、配列listの要素にfindの値が存在するかをチェックする処理です。
上記を実行した結果がこちらです。
実行結果
1回目のループ
2回目のループ
3回目のループ
3が見つかりました。
実行結果がコンソールに出力されました。
3が見つかるまで繰り返し処理が行われたことがわかります。
以上が、配列の要素数分繰り返し処理を行う「For Each」の使い方です。
ぜひ参考にしてみてください。
