***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

proc a1
para h
for t=1 to h
 kk=t*kk
endfor

后面不要加PRG

经测试，运行正常的

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

我这里也测试正确，楼主测试失败，有个问题，就是了路径问题。
按楼主的写法，他是有2个文件，1个是 main.prg，另外1个是 a1.prg，楼主在 main.prg中调用 a1.prg，
他报错的问题是，a1.prg不在默认的目录中，可以从2个地方修改，
1、设置默认路径，把 a1.prg 放在 main.prg相同目录中，把下面这端放在 main.prg 的最全面去。
PUBLIC gcFilePath
gcFilePath=LEFT(SYS(16),RAT("\",SYS(16)))   &&捕捉当前运行的程序文件的位置和设置路径
SET DEFA TO (gcFilePath)

2、用完整路径
do c:\我的程序\a1.prg with ff &&a1.prg 放在 c:\我的程序

[此贴子已经被作者于2016-7-4 08:56编辑过]

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

也可以这样做？
按4楼的说法
修改 proc a1.prg处，改为 proc a1
这样改了后，和1楼就有区别了。
1楼的写法是，有2个文件，1个是 mian.prg,1个是 a1.prg ，你在 main.prg中调用 a1.prg
用3楼的经过修改后，把 proc a1.prg 改为 proc a1
你就只有1个文件，就是 main.prg ，a1 是 main.prg中的1个过程，

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