麻烦帮忙 用FOXPRO 写下列程序,

编写一个根据生日求年龄的自定义函数MYOLD,要求在主程序中实现键盘输入某人生日,调用MYOLD计算这人年龄,并利用DO CASE 来判断,若年龄大于等于50岁,输出老年人,年龄大于等于40岁,输出中年人,年龄大于等于18岁,输出年轻人,年龄小于18岁输出未成年

答案：clear
input "请输入法你的生日" to sr
myold(sr)
return
func myold(r)
para r
nl=year(date)-year(r)
do case
    case nl>=50
        ?"老年人"
    case nl>=40
        ?"中年人"
   case nl>=18
        ?"年轻人"
   case nl<=18
        ?"未成年"
endcase
return

其他：弄no *主程序
CLEAR
INPUT "请输入您的出生日期（日期型数据）" TO  B
?MYOLD(B)
RETURN
*自定义函数
FUNCTION MYOLD
PARA  B
N=YEAR(DATE())-YEAR(B)
DO CASE
      CASE N>=50
       P="老年人"
      CASE N>=40
      P= "中年人"
     CASE N>=18
      P="年轻人"
     OTHERWISE
     P="未成年"
ENDCASE
RETURN  P 

上一个：VisualFoxpro 程序设计的三道题
下一个：visual foxpro打开dbf数据文件时为何显示为空白