Обработка строк - VB (172637)
Формулировка задачи:
В заданной строке определить наибольшее количество цифр, идущих подряд.
Решение задачи: «Обработка строк»
textual
Листинг программы
- Stroka = "fgf565sfgsg930039mkm66"
- For i = 1 To 9
- Stroka = Replace(Stroka, i, "0")
- Next i
- Max = 0
- Do While InStr(Stroka, String(Max + 1, "0")) > 0
- Max = Max + 1
- Loop
- MsgBox Max
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
