【vfp开源代码栏目提醒】:网学会员--在 vfp开源代码编辑为广大网友搜集整理了:程序14.prg绩等信息,祝愿广大网友取得需要的信息,参考学习。
CLEAR
USE d:\vfp\教务信息\学生信息表
SELECT 学生信息表
STORE 0 TO a
SCAN ALL FOR 性别='男'
a=a+1
ENDSCAN
STORE 0 TO b
SCAN ALL FOR 性别='女'
b=b+1
ENDSCAN
?'男学生人数是:'+STR(a,4)
?'女学生人数是:'+STR(b,4)
RETURN