![[填空题] 本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于10 时停止计算,请完善本程序。(提示:函数fact是用递归求阶乘。)f(x)=lnx+ , x>0 Opti](http://www.mshxw.com/aiimages/31/257082.png "[填空题] 本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于10 时停止计算,请完善本程序。(提示:函数fact是用递归求阶乘。)f(x)=lnx+ , x>0 Opti")
[填空题] 本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于10 时停止计算,请完善本程序。(提示:函数fact是用递归求阶乘。)f(x)=lnx+ , x>0 Option Explicit Private Sub Command1_Click()Dim x As Single,y As SingleDim k As Integer,tx As Singlex=Val(Text1.Text)y=Log(x)Do k=k+1 tx=___(16)___ y=y+txLoop while ___(17)___Text2.Text=Format(y,"0.#######") End Sub Private Function fact(ByVal n As Integer)As LongIf n<=1 Then fact=1Else fact=___(18)___EndIf End Function
参考答案：
(-1)^k*x^(2*k)/(2*k*fact(2*k))Abs(tx)>=10^-5N*fact(n-1)问题解析:
解析无
