[填空题] 本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。S=x- + * +(-1) *请完善本程序。Option Expl
2021-07-20
[填空题] 本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。S=x- + * +(-1) *请完善本程序。Option ExplicitPrivate Sub Command1_Click()Dim x As Single,n As Single,T As Single,S As Singlex=Val(Text1)S=xDo（）T=afun(x,n)S=S+TLoop Until （）Text2=Format(S,"0.#######")End SUbPrivate Function afun(x As Single,n As Single)As SingleDim i As Single,p As SingleP=1For i=1 To np= （）Next iafun=(-1)^n*p*x^(2*n+1)/(2*n+1)End Function
正确答案：n=n+1；abs(t)
词条内容仅供参考，如果您需要解决具体问题
（尤其在法律、医学等领域），建议您咨询相关领域专业人士。