[填空题] 本程序的功能是,利用下列公式求函数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