填空题 本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。 S=x- + * +(-1) * 请完善本程序。 Option Explicit Private Sub Command1_Click1 Dim x As Single,n As Single,T As Single,S As Single x=Val(Text1) S=x Do 2(16) 3 T=afun(x,n) S=S+T Loop Until 4(17) 5 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= 6(18) 7 Next i afun=(-1)^n*p*x^(2*n+1)/(2*n+1) End Function