看看我的程序能不能优化？
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