В заданной строке определить максимальную длину подстроки, состоящей из заданного символа - VB

Узнай цену своей работы

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

В заданной строке определить максимальную длину подстроки, состоящей из заданного символа.

Решение задачи: «В заданной строке определить максимальную длину подстроки, состоящей из заданного символа»

textual
Листинг программы
Public Sub SearchSimvol(stroka As String, simvol As String)
Dim i As Integer, m As Integer, m1 As Integer
i = 1: m1 = 0: m = 0
Do While i <= Len(stroka)
If Mid(stroka, i, 1) = simvol Then
m = m + 1
If m > m1 Then m1 = m
Else
m = 0
End If
i = i + 1
Loop
MsgBox m1
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.4 из 5
Похожие ответы