89

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

yar-racer 10 сентября 2019

В VBA надо написать программу. Дано предложение. Все его символы, стоящие на третьем, шестом, девятом и т.д. местах, заменить на букву"А» .

категория: информатика

63

Проверить могу только в 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

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...