В заданном массиве строк найти строку с максимальным количеством вхождений заданного символа - VB
Формулировка задачи:
Доброго времени суток.
Нуждаюсь в помощи написания программного кода.
В заданном массиве строк найти строку с максимальным количеством вхождений заданного символа.
Заранее благодарен.Решение задачи: «В заданном массиве строк найти строку с максимальным количеством вхождений заданного символа»
textual
Листинг программы
Private Sub Command1_Click() Dim a() As String Dim symbol As String, StrA As String Dim n, i, j, max1, maxI, k n = Text1 'Количество элементов в массиве symbol = Text2 'Наш символ ReDim a(1 To n) As String For i = 1 To n 'Заполняем массив строками a(i) = InputBox("Введите строку под номером " & i) Next i max = 0 maxI = 0 For i = 1 To n 'Цикл перебирает элементы массива k = 0 StrA = a(i) Dim char As String For j = 1 To Len(a(i)) 'Цикл перебирает символы в строке char = Mid(StrA, j, 1) If char = symbol Then k = k + 1 'Считаем количество этого символа End If Next j If k > max Then max = k And maxI = i 'Если количество символов больше чем в предыдущей строке,запоминаем.max количество и 'MaxI-номер строки Next i MsgBox max & " " & maxI 'Выводим количество и номер строки End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д