高分悬赏,关于程序的运行结果?

[v3206]

option base1
private sub command1_click()
Dim X as Single,PS as Single,PD as Single ,A(),B()
A = Array (-1,1.7,2.8,3.3,3.5)
B = Array 0.8,0.6,0.1,-1.1,-4.1)
X = Val(Text1.text)
PS = PP(X,A,5,2)
PD = PP(X,B,4,1)
Print X,PS,PD
End Sub
private Function PP(X as Single,B() As Variant,ByVal N as Integer,ByVal TT as Integer) As Single
Dim I as Integer,K as Integer
PP = 0.0
For I =1 to N
K =N-I +1
PP = PP*X*X+B(K)
NEXT I
If TT>1 Then PP =PP*X
End Function
请问:其中PS,PD的计算公式是什么?

[zq972]

PP

[yangao]

下面不是吗

[熊孩子开学喽]

这程序是楼主抄来的吧？自己看不懂，让我们帮你看？

[v3206]

对，是我抄来了，看不懂才问大家的

[deterly]

最简单的办法:单步调试,哈哈