li_proc.prg

VF程序设计电子课件 VF程序设计电子课件

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