vfp第7章程序设计-新.pptVIP

* 7.5.1 用户自定义函数 【例7-27】利用用户自定义函数求x!+y!，要求x和y从键盘上随机输入。 CLEAR INPUT 请输入x的值： TO x s1=fJC(x) 调用函数fJC INPUT 请输入y的值： TO y s2=fJC(y) 调用函数fJC ?STR(x,4),!+,STR(y,4),!=,STR(s1+s2,8) RETURN * 7.5.1 用户自定义函数 *函数fJC的定义 FUNCTION fJC PARAMETERS n s=1 IF n=1 FOR i=1 TO n s=s*i ENDFOR ENDIF RETURN (s) * 7.5.1 用户自定义函数 【例7-28】创建一个用户自定义函数CCDOW()。功能是：返回一个日期是星期几，如：CCDOW({^1999/3/1})的返回值是“星期一”。 CLEAR cx={} @4,20 SAY 请输入一个字符型日期： GET cx READ @8,20 SAY 输入的日期是： ??CCDOW(cx) RETURN * 7.5.1 用户自定义函数 FUNCTION CCDOW(cx)