求1！+2！+3！+……n！
n就是键盘上接收来的数据。。
到了循环那。老不知道要怎么弄。
麻烦老手们帮我解答下这道题。
谢过。

Clear
Input '请输入n值' To n
If Type('n')='N' And Int(n)=n And n>0
  nSum=0
  nFact=1
  For lnCnt=1 To n
    nFact=nFact*lnCnt
    nSum=nSum+nFact
  EndFor
  ?nSum
Else
  Messagebox('不正确的n值')
EndIf

恩。
谢谢版主。
我去理解理解