В VBA надо написать программу. Дано предложение

Проверить могу только в MS Office 2003, больше негде. Способ алгоритмический, без использования каких-либо функций поиска-замены. Private Sub SomeProc () Dim InitialString, InitialStringLen, ReplacedStringInitialString=«Какая-то очень длинная и мутная строка"InitialStringLen=Len (InitialString) For i=1 To InitialStringLenIf i Mod 3=0 ThenReplacedString=ReplacedString+"A"ElseReplacedString=ReplacedString+Mid (InitialString, i, 1) End IfNextMsgBox ("Начальная строка: "+InitialString+vbCrLf+«строка после замены: "+ReplacedString) End Sub