代码如下：
Private Sub Command1_Click()
f = 1
Do
n = n + 1
f = f * n
t = 2 * n - 1
s = s + (-1) ^ n * f / t
If s = 10000 Then
Print n
Exit Sub
End If
Loop Until s > 10000
Print n - 1
End Sub
如果最后一次正好s=10000，那么n值就是n本身，但如果最后一次s>10000，那么n的值就应该是n-1了。
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024