VBA.Разработать макро функцию с одним параметром n, который рассчитываться по указному...

Question

VBA.Разработать макро функцию с одним параметром n, который рассчитываться по указному ниже выражению(n > = 1). В функции нельзя использовать
оператор IF.

Написать программный код. Если что, то это только первый курс, поэтому не надо мудрить супер крутой код. :)

Comments

И еще: VBA сейчас изучают во многих школах, так что "только первый курс" - это не повод говорить про суперкрутой код.

---

И последнее: тут для вычисления суммы этой IF не нужен... даже в принципе. Обычный оператор цикла.

---

Во многих, но не в моей. Так что говорю про свою конкретную ситуацию.

---

Если вы знаете как должен выглядеть этот код, то напишите его. Буду благодарен.

---

Знаю, но писать не буду - негде. В поле комментария не выйдет, а в поле для ответа - он будет неполный, потому что блок-схему рисовать мне сто лет не снилось.

---

напишите в самом VBA и пришлите скриншот.

---

Прислать куда? Вам в личную почту? Это выходит за рамки Сервиса. Вы сами себе осложнили получение ответа требованием этой блок-схемы. Весь макрос - шесть строчек кода...

---

Просить рисовать блок-схему элементарного цикла с накоплением суммы... по-моему, это чересчур. Этому учат в школе на первых двух-трех занятиях по изучению основ алгоритмизации.

---

Разве вы не можете прикрепить файл при ответе? Без блок схемы.

---

Вы в задании просите блок--схему. Если её не дать, ответ будет неполный и его удалят.

Answer 1

Сначала получим формулу, которую требуется реализовать в теле функции.



Теперь можно легко написать код соответствующей функции

Function F(n As Integer) As Double
    Dim s As Double, i As Integer
    s = 0
    For i = 0 To n
        s = s + (n + i) ^ 2
    Next i
    F = s
End Function

Sub Test()
    MsgBox "F(10)=" + Str(F(10))
End Sub

Comments

Спасибо!

---

Пожалуйста