vb中，求1到n阶乘的和是什么？

Private Sub Command1_Click() n = InputBox("输出最大阶乘数的值") j = 1 For i = 1 To n j = j * i '每个数的阶乘值 s = s + j '合 Next i Print s End Sub