本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。S=
题型：填空题
问题：
本程序的功能是按公式求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