Question

VB程序设计 设计程序s=-1+ 2！／3 - 3！／5 + 4!／7 +……+（-1）^n * n！／（2n-1）

求s不大于10000时最大的n值

Answer 1

代码如下：
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了辩搭。

追问

还是不对。。好吧我不懂= =

追答

你打错代码了，倒数第五行Exit Sub你写成了End Sub了。