test_exit.prg

刚才那个的补充

***程序功能：计算数列1，1/2，1/3，1/4……，1/n之和，
***当某一项的值与前一项的值之差小于0.001时停止计算。
CLEAR
n=1
m=1
nSum=0
DO WHILE .T.
	nSum=nSum+1/n
	m=1/n
	n=n+1
	IF m-1/n<0.001
		EXIT
	ENDIF
ENDDO
?"该数列的和为：",nSum