子程序：
clear
factor=1
for x=z to1 step -1
factor=factor*x
endfor
return
主程序：
clear
?"请输入求组合数的自然数n和m，要求m大于n。"
input"请输入自然数n："to n
input"请输入自然数m："to m
*以下变量中，c1代表n!,c2代表m!,c3代表(m-n)!,c代表组合数。
factor=1
z=n
do z
c1=factor
z=m
do z
c2=factor
z=m-n
do z
c3=factor
c=c2/(c1*c3)
?"组合数"+alltrim(str(m,3))+"!/("+alltrim(str(n,3))+"!*"+;
alltrim(str(m-n,3))+"!)的值是:"+alltrim(str(c,20,2))
return