程序代码:
SET LIBRARY TO "C:\Program Files (x86)\Microsoft Visual FoxPro 9\foxtools.fll" SET SAFETY OFF CLOSE TABLES all CREATE TABLE tjjg (xm c(10),bj c(2),jf i,skmc c(6)) kcmc='语文 数学 英语 物理 化学 生物 政治 历史 地理' FOR i=1 TO 9 SELECT EVALUATE(FIELD(i*20+7)), bj, EVALUATE(FIELD(i*20+5)),WordNum(kcmc,i) FROM 积分 INTO ARRAY tmpar WHERE !EMPTY(EVALUATE(FIELD(i*20+7))) APPEND FROM ARRAY tmpar ENDFOR brow