【程序说明】 涉及到的库文件SJK.DBF如下: record# BH(N型) XM(C型) XB(C型) CS(D型) ZF(N型) ZXJ(N型) 1 080102 王五 男 88/06/08 586.00 99.00 2 080201 李四 女 89/08/09 532.00 81.00 3 080202 张三 男 90/05/06 618.00 116.00 4 080101 赵六 女 91/07/08 609.00 103.00 5 080103 孙月 女 89/06/23 589.00 72.00 【程序】 *** 主程序 SET TALK OFF USE SJK ZZF=0 SCAN FOR XB=“男” && ZZF=ZZF+ZF ENDSCAN ZZF USE SET TALK ON RETURN |
【程序说明】表学生.DBF 中共有100条记录,顺序执行下面命令。 【程序】 SET DELETED OFF USE 学生 DELETE COUNT PACK COUNT ZAP COUNT USE |
【程序】 SET TALK OFF CLEAR PUBLIC X,Y X=5 Y=3 DO SUB X,Y SET TALK ON RETURN PROCEDURE SUB PRIVATE X X=1 X=X*2+1 Y=5 RETURN |
我来回答: