VBA.Разработать макро функцию с одним параметром n, который рассчитываться по указному ниже выражению(n > = 1). В функции нельзя использовать
оператор IF.
Написать программный код. Если что, то это только первый курс, поэтому не надо мудрить супер крутой код. :)
Ответы
Ответ дал:
0
Сначала получим формулу, которую требуется реализовать в теле функции.
![displaystyle F=n^2+(n+1)^2+(n+2)^2+...+(2n)^2= \
(n+0)^2+(n+1)^2+(n+2)^2+...+(n+n)^2 =sum_{i=0}^n(n+i)^2](https://tex.z-dn.net/?f=displaystyle+F%3Dn%5E2%2B%28n%2B1%29%5E2%2B%28n%2B2%29%5E2%2B...%2B%282n%29%5E2%3D+%5C+%0A%28n%2B0%29%5E2%2B%28n%2B1%29%5E2%2B%28n%2B2%29%5E2%2B...%2B%28n%2Bn%29%5E2+%3Dsum_%7Bi%3D0%7D%5En%28n%2Bi%29%5E2 "displaystyle F=n^2+(n+1)^2+(n+2)^2+...+(2n)^2= \
(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
Теперь можно легко написать код соответствующей функции
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
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад