1
  121
 12321

又是作业

for i=1 to 3
    ?aba(i)
endfor
 
function aba(n)
local s1,i
if n=1
   s1='1'
else
   s1=''
   for i=1 to n
       s1=s1+tran(i)
   endfor
   for i=n-1 to 1 step -1
       s1=s1+tran(i)
   endfor
endif
return s1
endfunc
   

[此贴子已经被作者于2017-7-1 13:44编辑过]

谢谢你师傅，怎么才能学好vfp

多运脑筋、多上机练习。

工作压力驱动

嗯嗯，谢谢。

有实际应用项目需求才能学得快，不然就像无头苍蝇。