Задача в VBA: Дана строка S и символ C. Удвоить каждое вхождение символа C в строку S
Задача в 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
Не нашли ответ?
Похожие вопросы