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