li_proc.prg

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

FUNCTION CAL
PARAMETER n
jc=1
i=1
DO WHILE i<=n
	jc=jc*i
	i=i+1
ENDDO
RETURN

PROCEDURE SUMN
PARAMETER n
s=0
i=1
DO WHILE i<=n
	s=s+i
	i=i+1
ENDDO
RETURN s