Question

НУжен пошаговый разбор задачи

Answer 1

Ответ:

2,0,334

Объяснение:

Задаем две пользовательские функции в VBA

Function newstr(str As String, n As Integer) As String

Dim i As Integer

For i = 1 To n

str = Replace(str, "a", "ab")

str = Replace(str, "bb", "c")

Next

newstr = str

End Function

Function chrcount(str1 As String, str2 As String) As Integer

Dim str() As String

str = Split(str1, str2)

chrcount = UBound(str, 1)

End Function

В ячейках рабочего листа вставляем формулы.

Для вычисления числа символов "a":

=chrcount(newstr("abab";333);"a")

Для вычисления числа символов "b":

=chrcount(newstr("abab";333);"b")

Для вычисления числа символов "c":

=chrcount(newstr("abab";333);"c")

Получаем следующий результат:

a,b,c

2,0,334