Перенос строк. Visual basic - VB

Узнай цену своей работы

Формулировка задачи:

Сделать так, чтобы в строке находилось максимум 64 символа, если больше, то остальной текст переносится на новую строку и так до конца.

Решение задачи: «Перенос строк. Visual basic»

textual
Листинг программы
Sub bb()
Dim s$, i&, j&
s = "Сделать так, чтобы в строке находилось максимум 64 символа, если больше, то остальной текст переносится на новую строку и так до конца."
Debug.Print Space(64) & "|<< контроль"
Do
  j = InStrRev(s, " ", i + 65)
  If j Then
    Debug.Print Mid$(s, i + 1, j - i - 1)
  Else
    Debug.Print Mid$(s, i + 1)
    Exit Do
  End If
  i = j
Loop
End Sub

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


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

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

14   голосов , оценка 4.357 из 5