profile
Опубликовано 5 лет назад по предмету Информатика от goblin19266

Прошу объяснить как это решать

  1. Ответ
    Ответ дан answer2020

    Ответ:

    2,0,334

    Объяснение:

    Описываем две пользовательские функции в Excel 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

    С рабочего листа вызываем функцию:

    = chrcount(newstr("abab"; 333); "a")&","&chrcount(newstr("abab"; 333); "b")&","&chrcount(newstr("abab"; 333); "c")

    Получаем результат:

    2,0,334

Самые новые вопросы