Вычисление суммы

[Илья РООгулин]

Знатоки! Нужна помощь. Было дано задание, которое прикреплено картинкой. Не могу создать 2-ой цикл, чтобы выполнялось как надо, сразу изменялось и i и k.

Код ниже

Sub zadacha1()
Dim S, i As Integer, n As Integer, P
n = Sheets("Zad1").Range("A5").Value
S = 0
P = 1
For k = 1 To n
    For i = 1 To 10
    P = P * (Exp(i) + k)
    Next i
Next k
For i = 1 To 10
S = S + P
Next i
Cells (5,2) = S
End Sub

[Serge_Bliznykov]

For k = 1 To n
    For i = 1 To 10

судя по формуле надо наоборот.

внешний цикл (суммирования) по i
  внутренний цикл (перемножение) по k

примерно так

Dim i As Integer, k as Integer, n As Integer
Dim S As Double, P As Double, e_in_i as Double
n = Sheets("Zad1").Range("A5").Value
S = 0
For i = 1 To 10
  e_in_i = Exp(i)
  P = 1
  For k = 1 To n
    P = P * (e_in_i + k)
  Next k
  S = S + p 
Next k
Cells (5,2) = S

[Илья РООгулин]

Спасибо, работает)

[Serge_Bliznykov]

ну извините, чем богаты..

p.s. любопытно, при n = 3 какой ответ даёт Маткад?
у меня Excel при n=3 выдал результат: 11249766856241,9
Это сильно отличается от Маткада?

[Илья РООгулин]

Сообщение от Serge_Bliznykov

ну извините, чем богаты..

p.s. любопытно, при n = 3 какой ответ даёт Маткад?
у меня Excel при n=3 выдал результат: 11249766856241,9
Это сильно отличается от Маткада?

так же. Ваш код верно работает.

[Serge_Bliznykov]

Всегда пожалуйста!