本程序的功能是按公式求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 Unt
主观题
本程序的功能是按公式求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 Unt