В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово - 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