需要编辑程序，然后在记录中添加字段。
Option Explicit

Private Function Calc() As Variant
    'Enter your calculation here
    'Calc = "No Calculation"

    'Round gives result to 3 decimal places
    'calculation set to return 90th percentile
    Calc = Round(Stats.Percentile(100),3)

End Function