QUESTÃO 4A (VBA) - LISTA 2 SEGUNDO ESTÁGIO ICC

Public Sub QUESTAO1C_L2()
'LOCAIS DE MEMÓRIA
Dim SENX As Double, X As Double, FAT As Double
Dim N As Integer, NF As Integer, I As Integer
'ENTRADA DE DADOS
X = Cells(3, 2)
NF = Cells(3, 1)
'CÁLCULOS
SENX = 0
For N = 0 To NF Step 1
    FAT = 1
    For I = 2 To 2 * N + 1 Step 1
        FAT = FAT * I
    Next I
    SENX = SENX + (-1) ^ N * X ^ (2 * N + 1) / FAT
Next N
'SAÍDA DE DADOS
Cells(7, 1) = SENX
Cells(7, 2) = Sin(X)
End Sub