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

可以简化一点：
       kkc =subs("语文 数学 英语 物理 化学 生物 政治 历史 地理",kk*5-4,4)
       kkp =kkc+'平均分'
       kky =kkc+'优秀人数'

还可以
kkc =subs("语文数学英语物理化学生物政治历史地理",kk*4-3,4)
减少字符串的长度，可以在一定程度上提高运行速度。