下面的程序是求cos(x) 的近似值，cos(x) ＝1-x^2/2!+x^4/4!-x^6/6!+x^8/8!-…+(-1)^nx^(2n)/(2n)!+…，当第n项的绝对值小于10^-7时终止计算，请将程序补充完整。 option explicit Private Sub Command1_Click() dim n as long, s as single, t as single, x as single x=4 n=1:t=1:s=1 do t=_________________ s=s+t n=n+1 Loop Until_________________ Label1.Caption ='的近似值为:' & s End Sub