В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово - VB
Формулировка задачи:
помогите решить пожалуйста а то я в программировании не очень)
Решение задачи: «В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово»
textual
Листинг программы
Option Explicit ' ' Антихакер32™ ' Private Sub Form_Activate() Dim s$, j$(), f& Do s = InputBox("Введите текст .. ", , "мама мама мама мама мама мама мама мама мама мама") j = Split(s, "мама") For f = 0 To UBound(j) Step 3 If Trim(j(f)) = "" Then j(f) = " мамочка " Next s = Join(j, "мама") Cls Print s If MsgBox("повторить ?", vbYesNo) = vbNo Then Exit Do Loop End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д