Форум программистов CodeGuru
23 Июль 2018, 05:52:04 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Отладка задачи по обработке строк  (Прочитано 17137 раз)
0 Пользователей и 1 Гость смотрят эту тему.
max1m9
Новичок
*
Офлайн Офлайн

Сообщений: 3


Просмотр профиля
« : 16 Декабрь 2009, 12:30:26 »

Дана строка; найти наибольшее количество цифр, идущих в нем подряд.Есть следующий вариант решения:

Private Sub CommandButton1_Click()
Dim s As String
  Dim m As Integer, n As Integer
  TextBox1.Value = s
  m = 0
  For i = 48 To 57
    n = 0
    For c = 1 To Len(s)
      If Mid(s, c, 1) = Chr(i) Then n = n + 1 Else n = 0
      If n > m Then m = n
    Next
  Next
  TextBox2.Value = m
End Sub

Вроде бы всё правильно,но в итоге всегда 0,подскажите,что надо поменять?
Записан
3V
Администратор
Ветеран
*****
Офлайн Офлайн

Сообщений: 1347



Просмотр профиля WWW
« Ответ #1 : 16 Декабрь 2009, 20:19:29 »

Вроде бы всё правильно

Ну, если бы все было правильно, очевидно, Вы сюда бы не написали  Голливудская улыбка

но в итоге всегда 0

0 чего  Шпион ?

подскажите,что надо поменять?

Процедуру CommandButton1_Click надо поменять. Причем всю.
Там написан откровенный бред, если честно.
Записан

Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!