本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。请完善本程序.

cos(x)=1-

通用公式可知:a =

Option Explicit

Private Sub Command1_Ciick()

Dim S As Single,T As Single,K As Integer,x As Single

Consteps As Single=0.000001

x=Val(Text1)

（）

S=1

T=1

Do

T= （）

S=S+T

K=K+1

Loop While （）

Text2=S

EndSub