【VB.NET】配列やコレクション内に指定された要素があるか調べる

Module ArraySearchExample
    Sub Main()
        Dim fruits() As String = {"りんご", "バナナ", "オレンジ", "いちご", "メロン"}
        Dim searchFruit As String = "オレンジ"

        Dim index As Integer = Array.IndexOf(fruits, searchFruit)

        If index >= 0 Then
            Console.WriteLine($"{searchFruit}は配列内の{index}番目にあります。")
        Else
            Console.WriteLine($"{searchFruit}は配列内にありません。")
        End If

        ' 存在しない要素の検索
        searchFruit = "ぶどう"
        index = Array.IndexOf(fruits, searchFruit)

        If index >= 0 Then
            Console.WriteLine($"{searchFruit}は配列内の{index}番目にあります。")
        Else
            Console.WriteLine($"{searchFruit}は配列内にありません。")
        End If
    End Sub
End Module

Imports System.Linq

Module LinqSearchExample
    Sub Main()
        Dim numbers() As Integer = {1, 3, 5, 7, 9, 11, 13, 15}
        Dim searchNumber As Integer = 7

        Dim exists As Boolean = numbers.Contains(searchNumber)

        If exists Then
            Console.WriteLine($"{searchNumber}は配列内に存在します。")
        Else
            Console.WriteLine($"{searchNumber}は配列内に存在しません。")
        End If

        ' 条件に基づく検索
        Dim evenNumbers = numbers.Where(Function(n) n Mod 2 = 0)

        If evenNumbers.Any() Then
            Console.WriteLine("配列内に偶数が存在します。")
            Console.WriteLine($"最初の偶数: {evenNumbers.First()}")
        Else
            Console.WriteLine("配列内に偶数は存在しません。")
        End If
    End Sub
End Module

Imports System.Collections.Generic

Module CollectionSearchExample
    Sub Main()
        Dim studentList As New List(Of String) From {"山田", "佐藤", "鈴木", "田中", "高橋"}
        Dim searchName As String = "鈴木"

        If studentList.Contains(searchName) Then
            Console.WriteLine($"{searchName}さんはリスト内に存在します。")
        Else
            Console.WriteLine($"{searchName}さんはリスト内に存在しません。")
        End If

        ' ディクショナリの検索
        Dim scores As New Dictionary(Of String, Integer) From {
            {"山田", 85},
            {"佐藤", 92},
            {"鈴木", 78},
            {"田中", 95},
            {"高橋", 88}
        }

        If scores.ContainsKey(searchName) Then
            Console.WriteLine($"{searchName}さんの点数は{scores(searchName)}点です。")
        Else
            Console.WriteLine($"{searchName}さんの点数は登録されていません。")
        End If
    End Sub
End Module