Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Отладка задачи по обработке строк

Автор: max1m9 16.12.2009, 11:32

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

Код


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,подскажите,что надо поменять?

Автор: Akina 16.12.2009, 12:49

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Добавлено через 39 секунд

Цитата(max1m9 @ 16.12.2009, 12:32

)

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

Строку номер 4

Автор: kapbepucm 16.12.2009, 13:28

Поменяйте, чтоли,

Цитата(max1m9 @ 16.12.2009, 11:32

)

Код

TextBox1.Value = s

на

Код

s = TextBox1.Value

Автор: max1m9 17.12.2009, 10:02

Спасибо,извеняюсь за тупость)))