十万火急！VB语句计算1！+2！+……5！怎么写啊？

呵呵，1－5的阶乘相加嘛，简单点用个循环嵌套好了。。。

for i = 1 to 5
for j = 1 to i
x=x+i*j
next
next

'x即是最终结果。

输出153即可

Funa是自己定义的一个方法，就是求N的全排列
Function Funa(N As Integer) As Long
Dim i As Integer
Funa = 1
For i = 1 To N
Funa = Funa * i
Next i
End Function

Private Sub Command1_Click()
Dim N As Integer, i As Integer, Result As Long
N = 5
For i = 1 To N
Result = Funa(i) + Result
Next i
Print "¼ÆËãµÄ½á¹ûÊÇ£º "; Result
End Sub