求下列数列的结果:
  1!+2!+3!+4!+...+19!+20!
还请VB高手指点,有时间请你们吃雪高.

k = 1
For i = 1 To 20
 k = k * i
 Sum = Sum + k
Next
Label2.Caption = Sum

小弟写了一个，不知道对不，还请各位高手指正哦！

收到的鲜花

• luojia86 于 2008-04-08 14:31 送鲜花  2朵   附言：我很赞同.谢谢了,帅哥!

楼上的代码有问题。 - -||
我还以为楼主说的是什么高难度的VB呢，原来这样。楼主，我不要雪高，我要雪糕，最好就是巧克力味的，记住打包寄过来哦。
代码如下：
Dim sum As Integer'结果
For i = 1 To 20
    sum = sum + i * i
Next
Print sum

恩？ 你这是求1*1+2*2+3*3.....20*20的结果吧 不是阶乘

二楼的好像也不对哦，我试了下，出错了~

二楼的k=k*i个人感觉有问题，也不是阶乘哦~~~~

 i=1时 k=1*1=1 sum=1
i=2  k=1*2 sum=1+2
i=3  k=1*2*3 sum=1+2+1*2*3
i=4  k=1*2*3*4 sum=1+2+1*2*3+1*2*3*4
.......
呵呵 你在运行下 不过建议你不要k 和sum 不要定义成integer！
我最后运行出来的结果是2.56....（n多位小数）乘以10的18次方

嗯，楼上的正解，这次我试成功了！

嗯!还是你们有才啊,本人编程技术还有待于提高

可以不用循环，可采用递归来实现。