Найти количество повторяющихся элементов в массиве - Visual Basic .NET

Формулировка задачи:

Ребят выручайте, помогите вывести в лейбл5 количество повторяющихся эллементов в массиве...вот код..((
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim X(10) As Integer
        Dim a As Integer
        Dim b As Integer
        Dim i As Integer
        Randomize()
        a = TextBox1.Text
        b = TextBox2.Text
        For i = 0 To 10
            X(i) = Int((b - a + 1) * Rnd() + a) 'Заполнение массива
        Next i
        Dim foundedIndex As Integer = -1
        For i = 0 To X.Count - 1
            If TextBox3.Text = "" Then
                MsgBox("Введите искомое значение!")
                Exit Sub
            End If
        If X(i) = CInt(TextBox3.Text) Then
            foundedIndex = i
            MsgBox("Эллемент найден!")
            Exit For
        End If
        If i + i > i * 2 Then
            Label5.Text = "2"
        End If
        Next
        If foundedIndex = -1 Then
            MsgBox("Элемент не найден")
        End If
    End Sub

Код к задаче: «Найти количество повторяющихся элементов в массиве - Visual Basic .NET»

textual
        Dim Str1() As String = TextBox1.Text.Split
        Dim Str2() As String = TextBox2.Text.Split
        Dim T1 As String = String.Join(" ", Str1.Except(Str2).ToArray)
        Dim T2 As String = String.Join(" ", Str2.Except(Str1).ToArray)
        TextBox1.Text = T1
        TextBox2.Text = T2

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ