economic_lab_vba_excel

Sub qq()

Dim x, z, dobutok, summa As Double
Dim m, n, k As Integer

x = 3.17
m = 10

dobutok = 1
n = 4

summa = 0
k = 1

For n = 4 To 12
    Fact = 1
    For i = 1 To n + 1
        Fact = Fact * i
    Next i

    dobutok = dobutok * Cos(x) * Fact
Next n

For k = 1 To m
    Fact2 = 1
    For j = 1 To k
        Fact2 = Fact2 * j
    Next j

    summa = summa + Sqr(Fact2 * Abs(Sin(x)))
Next k

z = dobutok + 1 / summa

MsgBox z

End Sub