![[填空题] 本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。请完善本程序.cos(x)=1-通用公式可知:a =Option Explic](http://www.mshxw.com/aiimages/31/586992.png "[填空题] 本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。请完善本程序.cos(x)=1-通用公式可知:a =Option Explic")
[填空题] 本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。请完善本程序.cos(x)=1-通用公式可知:a =Option ExplicitPrivate Sub Command1_Ciick()Dim S As Single,T As Single,K As Integer,x As SingleConsteps As Single=0.000001x=Val(Text1)（）S=1T=1DoT= （）S=S+TK=K+1Loop While （）Text2=SEndSub
正确答案：k=1；T*(-1)*x*x/((2*k-1)*(2*k))；Abs(t)>0.000001
