本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。

S=x- + * +(-1) *

请完善本程序。

Option Explicit

Private Sub Command1_Click()

Dim x As Single,n As Single,T As Single,S As Single

x=Val(Text1)

S=x

Do

（）

T=afun(x,n)

S=S+T

Loop Until （）

Text2=Format(S,"0.#######")

End SUb

Private Function afun(x As Single,n As Single)As Single

Dim i As Single,p As Single

P=1

For i=1 To n

p= （）

Next i

afun=(-1)^n*p*x^(2*n+1)/(2*n+1)

End Function