本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于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)
主观题
本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于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)