[填空题] 本程序的功能是按公式求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 SUb
鄂公网安备 42120202000370号 