VB用循环来做.用多项式近似公式计算函数sin(x)的值(- π ≤x≤π).最后一项的绝对值小于10-6时结结束计

dim i as integer
dim t as integer
dim s as single
dim x as single
dim k as integer
dim p as single
k=1
i=1
x=text1
t=1
s=x
p=x
do while abs(p)>0.000001
k=-k
i=i+2
t=t*(i-1)*i
p=k*x/t
s=s+p
loop
text2.text=s