Задача в VBA:

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

Question

Информатика

Нюся

7 марта, 11:39

Задача в VBA:

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

+3

Ответы (1)

Знаете ответ на вопрос?

Викентия · Answer 1

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

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

Задача в VBA:

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