设有一个自由表(表文件名为LWSJ.DBF,GJC字段的含义为"关键词"),用于记录某期刊发表的学术论文情况,其表结构(部分字段)如表1所示,表数据如表2所示

表1 LWSJ.DBF表文件的结构及其说明

表2 LWSJ.DBF表的数据

从表2中可以看出,每篇论文有多个关键词,且各个关键词之间用斜杠(/)分隔(注：关键词的个数为3-8)。完善下列程序,其功能是：统计关键词个数相同的论文篇数(即3个关键词的论文有多少篇、4个关键词的论文有多少篇,......),并将统计结果输出到文本文件ABC.TXT中

CLoSE TABLE ALL

ALTER TABLE lwsj ADD COLUMN gs N(1) &&为LWSJ表添加一个数值型字段

SELECT lwsj

SCAN

c=ALLT(gjc)

FOR i=7 to 1 （）

IF AT("/",c,i)>0

REPLACE gs with i+1

（）

ENDIF

ENDFOR

ENDSCAN

SELECT gs,COUNT(*) FROM lwsj （） 1 ORDER BY 1 TO FILE abc.txt

ALTER TABLE lwsj （） COLUMN gs &&删除LWSJ表中的GS字段