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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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