编程论坛 » VFP论坛 » 循环问题

封闭 发表于 2008-6-3 19:42

循环问题

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

Tiger5392 发表于 2008-6-3 19:57

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

封闭 发表于 2008-6-3 20:08

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

查看完整版本: 循环问题