VB代码?S=1-1/3!+1/5!-1/7!+....+(-1)^(n-1)/(2n-1)!

Dim s, i, x, y, z
s = 1
x = 1
z = 3
i = 3
While i < Text2
i = i + 1
For y = 1 To i
x = x * y
Next y
If (z Mod 2) > 0 Then
s = s - 1 / x
z = z + 1
Else
s = s + 1 / x
z = z + 1
End If
Wend
Text1 = "0" & s

'text2输入要循环到的那个数~text1显示结果