***mian.prg
clear
set talk off
inpu "i=" to i
inpu "n=" to n
s=0
publ kk
kk=1
for k=i to n
 ff=i
do a1 with ff
 s=s+kk
 endfor
 ?s
return

***a1.prg
para h
for t=1 to h
 kk=t*kk
endfor

咦  是我软件的问题麽~我的还是那个样子

还是不行啊~~是不是我的软件有问题 或者我之前用这个程序做过别的程序 它有保留路径、基类之类的情况啊

要不然程序对了我就不纠结了得了~~我们是纸考，在卷子上这样写是没有问题的吧？

这个是子过程的方法吧~~我想用的就是子程序 因为题干有要求~~

哦哦  好嘞  谢谢你啦