Не могу сделать програмки в Visual Basic 6 - VB

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

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

никак не получается,сколько ни пыталась... пожалуйста помогииите)))все КРОМЕ 5,срочно!!))

Решение задачи: «Не могу сделать програмки в Visual Basic 6»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    Dim Text As String, i As Long, p As Long, w As Long
    Text = "Спой светик, не стыдись"
    Text = Text & " "
    i = 1: p = 1: w = 0
    Do Until i > Len(Text)
        Select Case Mid$(Text, i, 1)
        Case " ", ",", ".", "!", "?"
            If w <= i - p - 1 Then Text = Left$(Text, p + w) & _
                            Right$(Text, Len(Text) - p - w + 1): w = w + 1
            p = i + 1
        Case Else
        End Select
        i = i + 1
    Loop
End Sub

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


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

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

6   голосов , оценка 3.5 из 5
Похожие ответы