Обработка строк - 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

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

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

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

15   голосов , оценка 4 из 5