li_n!.prg

来自「VF程序设计电子课件 VF程序设计电子课件」· PRG 代码 · 共 10 行

n=6
jc=0
SET PROCEDURE TO li_proc
IF n>0
	DO CAL WITH n
	? "6!=", jC
	? "1+2+...6=",SUMN(n)
ENDIF