Question

Помогите решить в VBA
дано натуральное число n вычислить 1*2+2*3*4+...+n(n+1)*...*2n

Answer 1

Sub abcd()

   n = CInt(InputBox("Введите натуральное n"))

   s = 0#

   For i = 1 To n

       p = 1#

       For j = i To 2 * i

           p = p * j

       Next j

       s = s + p

   Next i

   MsgBox s

End Sub