看样子楼主就是这样子做的,不知道我的电脑抗得住不?计算200!之和要多少时间啊

试了一下,上面的方法行不通...呵呵

N=1000时大概需要用0.41秒。
N=10000时大约要用1分钟左右。

计算公式：1! + 2! + 3! + 4! + 5! +...+ 10000!
开始时间：21:33:06
结束时间：21:34:03
总计耗时：56.45
计算结果：…………

把我自己做的一个示例传上来，大家可以试试。也帮我测试测试有没有BUG。由于当N>10000时耗时较长，所以限定了N最大为10000,实际N最大能取多大的数我自己也没有测试过。

[attach]23312[/attach]


最后，希望大家都能踊跃参加，就算不能做出来，但我相信只要自己去试，就会发现得到的肯定会比付出的多。

[此贴子已经被作者于2007-6-30 13:32:11编辑过]

速度很快，版主厉害的

你们看怎么样？我刚学VB

[此贴子已经被作者于2007-6-21 19:19:33编辑过]

注意：１、上传参赛作品时只要发EXE文档跟帖即可，源码请发送至１楼的Email地址就行了；
　　　２、所以参赛作品请自行检查BUG；
　　
楼上的代码以经看过，不过还有几处BUG待修改：
１、输出方式不符合要求；
２、N>170时肯定会出现溢出错误。

不过精神可表，我相信，稍加努力，就会成功的。
加油！！！！　

[此贴子已经被作者于2007-6-24 8:51:53编辑过]

应该可以做出来的，好久没碰VB了。。。
先把VB装上，再研究研究

如何解决 当 n>170 时的溢出，以及如何把结果变为连串的数字；还有上面第二个问题是什么意思？

Private Sub Form_click()
n = InputBox("input n")
s = 1
x = 1
If n - 1 > 0 Then
For i = 1 To n - 1
s = (i + 1) * s
x = x + s
Next i
End If
Print x
End Sub

如何解决N>170时的溢出，这正是各位要考虑的问题。

斑竹，你的程序精确度太差了。虽然速度很快。但是你的程序算到21!就开始错了，不信你看看。
正确的1! + 2! + 3! + 4! + 5! +...+ 20!=2,561,327,494,111,820,313
而21!=51,090,942,171,709,400,000
你的程序算1! + 2! + 3! + 4! + 5! +...+ 21!=53,652,269,665,821,260,313 多出了40000。
在21的时候就有这么大的误差。那到后面误差不是更大？
我说怎么跟我程序算出来的总是不一样。