[填空题] 本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于10 时停止计算,请完善本程序。(提示:函数fact是用递归求阶乘。)f(x)=ln
2021-07-20
[填空题] 本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于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)^k*x^(2*k)/(2*k*fact(2*k))Abs(tx)>=10^-5N*fact(n-1)
词条内容仅供参考，如果您需要解决具体问题
（尤其在法律、医学等领域），建议您咨询相关领域专业人士。