Private Sub Form_Click() Sum = 0: k = 1 n = Val(InputBox("请输入N（1到10）的值", "计算1!+2!+...+N!", 8)) For i = 1 To n k = k * i Sum = Sum + k Next i Print "1!+2!+...+" & n & "!=" & SumEnd Sub
