哪位VFP搞手可帮忙，编程：输入个数，求其阶程，急，马上考试要用阿

SET TALK OFF
clear
input "请输入一个正整数：" to n
j=1
FOR i=1 TO n
j=j*i
NEXT
? STR(n)+"的阶乘是："+STR(j)
SET TALK OFF

对上面的程序说明：该程序没有考虑到输入的数为“0”或者负数时的情况
|———————————————————————————————|
|———————————————————————————————|
&&阶乘的求法，基本完成所有功能
SET TALK OFF
clear
t=0
do while t=0
clear
input "请输入一个正整数：" to m
do case
case m>0
t=1
j=1
FOR i=1 TO m
j=j*i
NEXT i
? STR(m)+"的阶乘是："+STR(j)
case m=0
t=1
j=1
? STR(m)+"的阶乘是："+STR(j)
case m<0
?"您输入的数有误，不能求其阶乘！"
wait "要重新输入请输入“Y”" to CASE1
if upper(case1)#"Y"
t=1
wait "您选择了退出程序！"
else
t=0
endif
endcase
enddo
SET TALK on