回复 9楼 mywisdom88
这个是子过程的方法吧~~我想用的就是子程序 因为题干有要求~~
以下是引用菡隽在2016-7-4 09:00:02的发言：
还是不行啊~~是不是我的软件有问题 或者我之前用这个程序做过别的程序 它有保留路径、基类之类的情况啊
还是不行啊~~是不是我的软件有问题 或者我之前用这个程序做过别的程序 它有保留路径、基类之类的情况啊*2个文件的做法，main.prg ,a1.prg，比如，你都放在 C:\MyTest 中
***mian.prg
*设置路径
public gcFilePath
gcFilePath=LEFT(SYS(16),RAT("\",SYS(16))) &&捕捉当前运行的程序文件的位置和设置路径
SET DEFA TO (gcFilePath)
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，这以下，保存起来，单独1个文件，叫 a1.prg，和main.prg放在相同的目录中
para h
for t=1 to h
kk=t*kk
endfor