看看我的程序能不能优化?
看看我的程序能不能优化?for kk=1 to 6
kkc =subs("语文 数学 英语 物理 化学 生物 政治 历史 地理",kk*5-4,4)
kkp =subs("语文 数学 英语 物理 化学 生物 政治 历史 地理",kk*5-4,4)+'平均分'
kky =subs("语文 数学 英语 物理 化学 生物 政治 历史 地理",kk*5-4,4)+'优秀人数'
SELECT 班号,AVG(&kkc) as &kkp,sum(IIF(&kkc>=120,1,0)) as &kky from shiyan.dbf group by 班号 order by 班号 ASC INTO TABLE &kkc
endfor