VB中用sub编写程序 1！+2！+3！+4!+5!+6!

用 function 比 sub 好

Dim res As Integer
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 6
res = 1
Call fun(i)
sum = sum + res
Print i, sum
Next
End Sub

Private Sub fun(Num As Integer)
Dim i As Integer
For i = 1 To Num
res = res * i
Next
End Sub

递归函数吧
int sum（int n）
{
int i,s=1;
for(i=1;i<=n;i++)
s=s*i;
return s;
}

Function factorial(number)
If number <= 1 Then
factorial = 1
Else
n = 2
factorial = 1
Do While n <= number
factorial = factorial * n
n = n + 1
Loop
End If
End Function

Private Sub Command1_Click()
for i=1 to 6
s=s+factorial(i)
next i
debug.print s