填空题
本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。请完善本程序.
cos(x)=1-
通用公式可知:a =
Option Explicit
Private Sub Command1_Ciick1
Dim S As Single,T As Single,K As Integer,x As Single
Consteps As Single=0.000001
x=Val(Text1)
2(16) 3
S=1
T=1
Do
T= 4(17) 5
S=S+T
K=K+1
Loop While 6(18) 7
Text2=S
EndSub