社区卫生服务中基线调查的目的是（）

A.了解居民健康需要，识别并发现健康问题

B.了解社区中可利用的卫生资源

C.开展以个人为中心，家庭为单位，社区为范围的卫生保健工作

D.开展健康教育和周期性健康检查

E.以上都是

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