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

  1. Ребят выручайте, помогите вывести в лейбл5 количество повторяющихся эллементов в массиве...вот код..((vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 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


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


Похожие ответы
  1. Задано предложение, состоящее из слов-строк. Написать программу, которая находит количество слов в предложении, встречающихся более одного раза.

  1. Доброго времени суток! Помогите нужен код для того чтобы узнать количество частей в тексте. Например, есть текст "453, 63563,4534, 43653, 435" как узнать количество запятых? также и в массиве "453; 63563;4534; 43653; 435" как узнать количество ; ? Можно это както совместить с функцией Split?

  1. Заполнить массив и найти количество чисел в массиве которые делятся на 3, но не делятся на 7 и вывести их в listbox

  1. Привет друзья. Не получается решать одну задачу. Как определить количество стр в книге, когда суммы его страницы известно. условия такая: 1+2+3+4+5+6+7+8+9=45 10=1+0=1 11=1+1=2 12=1+2=3 13=1+3=4 14=1+4=5 15=1+5=6 45+21=66 то есть итог 66. Вот у меня код: которые через количество стр находить его сумму мне надо чтобы через суммы его стр нашёл количество страниц. vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24         Dim summa As Integer = 0         Dim i As Integer         Dim k, k2, k3, k4 As Integer         Dim n As Integer = 15         For i = 1 To n             ListBox1.Items.Add(i)             If i <= 9 Then                 summa = summa + i             End If             If i > 9 And i < 99 Then                 k = Mid(i, 1, 1)                 k2 = Mid(i, 2, 1)                 k3 = k + k2                 summa = summa + k3             End If             If i > 99 Then                 k = Mid(i, 1, 1)                 k2 = Mid(i, 2, 1)                 k3 = Mid(i, 3, 1)                 k4 = k + k2 + k3                 summa = summa + k4             End If             TextBox1.Text = summa         Next

  1. Необходимо осуществить поиск по listobx. В строках listbox очень много всякого текста. мне необходимо подсчитать количество строк, содержащих текст - SID SID может находиться, как и в начале, так и в середине, так и в конце строки(слова) Заранее спасибо

  1. Число 55.789012345 нужно преобразовать к виду с 5-ю разрядами после запятой можно конечно написать так:vb.net1 strValue = Format(Value, "0.00000")можно второй аргумент функции Format изменять, прибавляя то количество нулей справа, сколько разрядов после запятой указано. Существует ли другой другой способ решить поставленную задачу?

  1. Есть программа, которая выводит количество цифр, если число от 0 до 999, если больше - пишет ошибку. Нужно дополнить программу, чтобы если я не вводил ничего ИЛИ вводил дробное число (то есть вещественное), то тогда мне выдавало сообщение с ошибкой. Помогите, пожалуйста!vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Dim vvod As String     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles cmdПуск.Click         Dim x As String, y As Integer, v As String, w As String         vvod = InputBox("Введите число от 1 до 999", "Количество цифр", "1", -1, -1)         x = Val(vvod)         Select Case x             Case Is < 10                 y = 1                 v = "одной"                 w = "цифы"                 MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + v + " " + w, (0 + 64), "Результат")             Case Is < 100                 y = 2                 v = "двух"                 w = "цифр"                 MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + v + " " + w, (0 + 64), "Результат")             Case Is < 1000                 y = 3                 v = "трех"                 w = "цифр"                 MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + v + " " + w, (0 + 64), "Результат")             Case Is = False                 MsgBox("АЛО")             Case Else                 MsgBox("Ошибка ввода!", 16, "Ошибка!")         End Select     End Sub End Class

  1. В Visual Basic 6.0 я создавал объект Combo1, у него было свойство ListCount, которое хранит количество элементов, имеющихся в списке. Теперь я перешел на Microsoft Visual Studio там у меня объект Combo1, но свойства ListCount там отсутствует. Скажите пожалуйста ,как узнать количество элементов в объекте Combo1.

  1. Список содержит число жителей, проживающих в каждом доме на пяти улицах села. 1. Создать структуру, содержащую название улицы, номер дома, количество жильцов. 2. Получить отчет, содержащий два поля: название улицы и общее количество жильцов, проживающих на данной улице. 1 часть сделала а вот 2 не получается..vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 Public Class Form1     Dim n As Integer     Dim AllSum As Decimal     Private Structure Persons         Dim ULI As String  'название улицы         Dim NOM As String   'номер дома         Dim KOLVO As Double   'колличество жителей     End Structure     Dim MyPerson(100) As Persons     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click       End Sub       Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click       End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Static k As Integer         MyPerson(k).ULI = TextBox1.Text         MyPerson(k).NOM = Val(TextBox2.Text)         MyPerson(k).KOLVO = Val(TextBox3.Text)           TextBox4.Text = TextBox4.Text + "   Улица  " + MyPerson(k).ULI + "  № дома  " + _         MyPerson(k).NOM + "   Жильцов  " + CStr(MyPerson(k).KOLVO) + " человек " + vbCrLf           MessageBox.Show("Данные введены", "СПИСОК", MessageBoxButtons.OK, MessageBoxIcon.Information)           TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""           k = k + 1         Label4.Text = "Всего записей: " + CStr(k)         n = k       End Sub       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         End       End Sub       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click             End Sub End Class

  1. Почему не показывает количество процессоров. Всегда 0. Помогите найти ошибку.vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 Public Class Form1       Private Property Infos As Integer       Private Property dwNumberOfProcessors As Long       Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long     Public Function ComputerName() As String         Dim strBuffer As String         Dim strAns As Long           strBuffer = Space(255)         strAns = GetComputerName(strBuffer, 255)         ComputerName = strBuffer     End Function     Private Declare Sub GetSystemInfo Lib "kernel32" (ByRef lpSystemInfo As SYSTEM_INFO)       Private Structure SYSTEM_INFO         Public dwPageSize As UInteger         Public lpMinimumApplicationAddress As Long         Public lpMaximumApplicationAddress As Long         Public dwActiveProcessorMask As Long         Public dwNumberOfProcessors As Long         Public dwProcessorType As Long         Public dwAllocationGranularity As Long         Public dwReserved As Long     End Structure     Private m_typSystemInfo As SYSTEM_INFO     Public Function NumberOfProcessors() As Long         GetSystemInfo(m_typSystemInfo)         NumberOfProcessors = m_typSystemInfo.dwNumberOfProcessors     End Function       Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click         MsgBox("имя компьютера " & ComputerName())         Proc()     End Sub     Sub Proc()         MsgBox("количество процессоров " & dwNumberOfProcessors())       End Sub   End Class