В заданной строке определить максимальную длину подстроки, состоящей из заданного символа - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д