Сравнивание строковых элементов двух массивов

 Dim slova As String 'Сюда заносятся все слова
'Массив с которым сверяем
        Dim mass() As String = {"один", "два", "три", "cyberforum", "google"} 
        Dim slp() As String 'Массив, после разбития slova(массив)
        Dim schetchik As Integer 'Счетчик правильных ответов
 
 
        Console.WriteLine("Введите слова через запятую:")
        slova = Console.ReadLine 'Считываем, что нам ввели
        slp = slova.Split(",") 'Разбиваем слова

        Dim slova As String 'Сюда заносятся все слова
        'Массив с которым сверяем
        Dim mass() As String = {"один", "два", "три", "cyberforum", "google"} 
        Dim slp() As String 'Массив, после разбития slova(массив)
        Dim schetchik As Integer 'Счетчик правильных ответов
        Console.WriteLine("Введите слова через запятую:")
        slova = Console.ReadLine 'Считываем, что нам ввели
        slp = slova.Split(",") 'Разбиваем слова
        For I As Integer = 0 To slp.Length - 1
            If mass.Contains(slp(I)) Then schetchik += 1
        Next
        Console.WriteLine("Процент совпадения слов: " & Int((schetchik / mass.Length) * 100) & "%")
        Console.ReadKey()

Dim mass() As string = {"1","2"}

        Dim slova As String 'Сюда заносятся все слова
        'Массив с которым сверяем
        Dim mass() As String = {"один", "два", "три", "cyberforum", "google"}
        Dim slp() As String 'Массив, после разбития slova(массив)
        Dim schetchik As Integer 'Счетчик правильных ответов
        Console.WriteLine("Введите слова через запятую:")
        slova = Console.ReadLine 'Считываем, что нам ввели
        slp = slova.Split(",") 'Разбиваем слова
        If slp.Distinct.Count = slp.Count And slp.Count <= mass.Count Then 'КОНТРОЛЬ
            For I As Integer = 0 To slp.Length - 1
                If mass.Contains(slp(I)) Then schetchik += 1
            Next
            Console.WriteLine("Процент совпадения слов: " & Int((schetchik / mass.Length) * 100) & "%")
        Else
            Console.WriteLine("Вы ввели неверные данные (неуникальные слова или число слов больше, чем требуется). Досвиданья")
        End If
        Console.ReadKey()

Dim a() As Integer = New Integer() {1, 2, 3, 4, 5, 6}
 
        Dim b() As Integer = New Integer() {5, 5, 6, 6, 7, 8, 9}
        Dim c As IEnumerable(Of Integer) = a.Intersect(b)
 
        Console.WriteLine("Процент совпадения: {0:f2} %", c.Count / a.Count * 100)