> [填空题] 用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。f(x)=a1x1-a2x2+a3x3-…+(-1)n+1anxn+… |X|1其中 a1=1，a2=2，an= ,n=3,4,5…Option ExplicitPrivate Sub Commandl_Click()、Dim x As Single，fx As SingleDim a As Single，a1 As Single,a2 As SingleDim t As Singlea1=l：a2=2x=text1If （） ThenMsgBox("x必须在-1---1之间")ExitSubEnd Iffx=a1*x-a2*x*xt=(-1)*x*xDOa=1/(al+a2)t=(-1)*x*xfx=（）al=a2（）Loop Until Abs(a*t)<0.0000001Text2=fxEnd Sub
问题：
发布时间：2022-07-01
[填空题] 用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。f(x)=a1x1-a2x2+a3x3-…+(-1)n+1anxn+… |X|1其中 a1=1，a2=2，an= ,n=3,4,5…Option ExplicitPrivate Sub Commandl_Click()、Dim x As Single，fx As SingleDim a As Single，a1 As Single,a2 As SingleDim t As Singlea1=l：a2=2x=text1If （） ThenMsgBox("x必须在-1---1之间")ExitSubEnd Iffx=a1*x-a2*x*xt=(-1)*x*xDOa=1/(al+a2)t=(-1)*x*xfx=（）al=a2（）Loop Until Abs(a*t)<0.0000001Text2=fxEnd Sub
