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

Question

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

VBA.Разработать макро функцию с одним параметром n, который рассчитываться по указному ниже выражению(n gt; = 1). В функции нельзя использовать
оператор IF.
$n^2 + (n +1)^2 + ... +(2n)^2$
Написать программный код. Если что, то это только 1-ый курс, потому не надо мудрить супер крутой код. :)

Задать свой вопрос

Амина Ситарская 2019-05-23 08:29:27

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

Ilja 2019-05-23 08:37:48

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

Ева Агнарханова 2019-05-23 08:41:57

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

Дарья Воронежейкина 2019-05-23 08:44:51

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

Петелова Валентина
Информатика
2019-05-23 08:20:11
1
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

в пруду плавало 9 гусей а уток в три раза меньше

Напишите характеристики генетического кода

порошок железа порошок алюминия и соду как их поделить

что такое песенность танцевальность и маршевость

помогите пожалуйста номер 121

пожалуйста помогите,срочно! нужно сочинить стих на всякую тему, на русскую литературу.

Сочинение на тему Почему Дубровский стал злодеем

Помогите забыл как делать а) 0,(3)+1/2 б) 0,(7)-0,(70) в) 0,(2)*0,(6) г)

образуй множественное число street,bridge,square,farm,forest,sea,beach,village.

Из книги выпало несколько листов. Первая выпавшая страница имеет номер213. А

Шибрина Виолетта · Answer 1 · 2019-05-23 08:21:32+3:00

Поначалу получим формулу, которую нужно реализовать в теле функции.

$\displaystyle F=n^2+(n+1)^2+(n+2)^2+...+(2n)^2= \\ amp;10;(n+0)^2+(n+1)^2+(n+2)^2+...+(n+n)^2 =\sum_i=0^n(n+i)^2$

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

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

О проекте

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

Добро пожаловать!