用vfp编写计算 s=n!/m!(m-n)!,m>n,急求解答

Question

用vfp编写计算s , s=n!/m!(m-n)!,m>n

Answer 1

*main.prg
set talk off
clear all
clear
stor 0 to s,mj,nj,kj,m,n
@1,10 say "输入M值" get m
@2,10 say "输入n值" get n
read
b=0
if m<n
b=m
m=n
n=b
endif
k=m-n
do sub1 with m,mj
do sub1 with n,nj
do sub1 with k,kj
s=nj/mj*kj
? s
set talk on
clear all
return

*sub1.prg
para jc,jg
jg=1
for i=1 to jc
jg=jg*i
endfor
return
（可微软公司已经宣布停止开发foxpro了。）
欢迎来我博客!

Answer 2

*main.prg
set talk off
clear all
clear
stor 0 to s,mj,nj,kj,m,n
@1,10 say "输入M值" get m
@2,10 say "输入n值" get n
read
b=0
if m<n
b=m
m=n
n=b
endif
k=m-n
do sub1 with m,mj
do sub1 with n,nj
do sub1 with k,kj
s=nj/mj*kj
? s
set talk on
clear all
return

*sub1.prg
para jc,jg
jg=1
for i=1 to jc
jg=jg*i
endfor
return
以经上机验证过

Answer 3

不能吧，怎么可能，不是才开发出来vfp9.0嘛，一定不会的！！

Answer 4

学习的精神可佳啊，可是不知你了解了没有：

微软公司已经宣布停止开发foxpro了。