Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Задача в VBA:
Дана строка S и символ C. Удвоить каждое вхождение символа C в строку S

Ответ оставил Гость

Sub Zadanie()
Dim S As String
Dim C As String
S = InputBox("Stroka?")
Again:
C = InputBox("Simvol?")
If Len(C) <> 1 Then GoTo Again
S = Replace(S, C, C + C)
MsgBox (S)
End Sub