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

根据《医疗机构病例管理规定》，患者有权利申请复印或复制病历资料，经客户同意保险机构也拥有这项权利。（）

A．对

B．不对