元素行和函数。 VBA; MS Excel

Question

我需要有人告诉我为什么会这样做

compile error : Expected array

一旦我尝试使用我的功能，应该更改什么来获得结果。据我所知，根据任务不需要数组使用（在下面的代码中解释）。

Public Function papild(x)
    Dim s As Double, A As Double
    Dim P As Integer
    s = 0.5 + (x - system.Math.Pi) / 1
    A = (x - system.Math.Pi) / 1
    P = 2
    Do While Abs(A) > 0.0001
        A = -A * (x - system.Math.Pi) * (x - system.Math.Pi) / P(P + 1)
        s = s + A
        P = P + 1
    Loop
    papild = s
End Function

----------------------------------------------- -----------------------------------------------
我会尽力解释我的任务，我希望你指出做错了什么是有用的。

*条件：禁止使用^运算符。 *
有：元素行和公式 - 和参数变化范围 - （-π/ 2）到（π/ 2）[步骤：π/ 30]。
/> 我的行为：一列用于参数值（第一个单元格（@ Formula bar）= PI（）/ - 2））;每个下一个单元格是（@Formula bar）=“cell above”+ PI（）/ 30。 ;编写代码（上面）并在第二列调用函数，使用适当的第一列单元格作为函数参数。
提前谢谢。

（抱歉我的英语不好，特别是对于数学术语）

Answer 1

根据评论：

Public Function papild(x)
    Dim s As Double, A As Double
    Dim P As Integer
    s = 0.5 + (x - Application.WorksheetFunction.Pi()) / 1
    A = (x - Application.WorksheetFunction.Pi()) / 1
    P = 2
    Do While Abs(A) > 0.0001
        A = -A * (x - Application.WorksheetFunction.Pi()) * (x - Application.WorksheetFunction.Pi()) / P ^ (P + 1)
        s = s + A
        P = P + 1
    Loop
    papild = s
End Function