有朋友让我用VFP写个程序，可怜我浸淫于c++，一点VFP都不了解~~朋友的忙是不能不帮的。于是立刻借书，一天啃完，谢了我的第一个VFP程序，当然是很简单的那种，估计以后不看很快就忘记，所以又要来我的博客纪念一下了哈哈
|
SET TALK OFF
CLEAR
USE XS
SUM_MAN=0
NF=0
NL=0
COU=0
@ROW(),COL() SAY "输入今年的年份" GET NF
READ
SCAN FOR XB="男"
SUM_MAN=SUM_MAN+NF-YEAR(CSRQ)
COU=COU+1
ENDSCAN
SUM_MAN=SUM_MAN/COU
@ROW(),COL() SAY "男生平均年龄为："
?SUM_MAN
?
SUM_WOMAN=0
COU=0
SCAN FOR XB="女"
SUM_WOMAN=SUM_WOMAN+NF-YEAR(CSRQ)
COU=COU+1
ENDSCAN
SUM_WOMAN=SUM_WOMAN/COU
@ROW()+1,COL() SAY "女生平均年龄为："
?SUM_WOMAN
USE
SET TALK ON
|
阅读(478) | 评论(0) | 转发(0) |
