用VB多重循环编写程序,求1!+2!+3!+...............N!

Question

在线的大哥,大姐帮帮忙!小弟想的头快要暴了!
是用多重循环.而不是单循环!

Answer 1

Private Sub Form_Load()
dim Sum,i,j,n,m
Sum= 0
m=1
n = Val(InputBox("输入n："))
For i = 1 To n
For j=1 to i
m = m * j
Next
sum = sum + m
Next
msgbox sum
End Sub
这个就是多重循环

Answer 2

Private Sub Command1_Click()
s = 0
m = 1
n = Text1.Text
For i = 1 To n
m=1
for j=1 to i
m = m * j
next j
s = s + m
Next i
Print s
End Sub

Answer 3

http://zhidao.baidu.com/question/23991649.html
去看看这个，一个道理
回一个就会多个
只要加个FOR循环就可以了

烂掉の萝卜
为你，我追逐落日！
网站： http://www.luobo528.com/
论坛： http://bbs.luobo528.com/