1、第六套1 改错SET TALK OFFUSE 学生 23S1=0N=0DO WHILE !EOF()IF 性别=.F. *found*S1=奖学金 改为 S1=S1+奖学金N=N+1ENDIF*found*LOOP 改为 SKIPENDDO?“N=“,N,“S1=“,S1USESET TALK ON2 操作 同第一套操作3 设计set talk offaccept“请输入英文字符串“ to xch=dz(x)?“原始字符串：“,x?“去掉空格，倒置输出后的结果:“,chUSE DATAOUTappe blankREPL jg WITH chuse *begin*func dzpara ach=
2、space(0)l=len(a)for i=l to 1 step -1ss=subs(x,i,1)if ss!=space(1)ch=ch+ssendifendforreturnendfunc*end*4 填空*分别累加男女同学奖学金SET TALK OFFCLEARUSE 学生表INDEX ON 学号 TO INN0 ?“*各班男女奖学金总额统计 *“?“班级 男同学奖学金总额 女同学奖学金总额“DO WHILE !EOF()CLASS=LEFT(学号,3)*found*_(1)_ STORE 0 TO BOYS,GIRLS DO WHILE LEFT(学号,3)=CLASS *found*_(2)_ IF 性别=.T.BOYS=BOYS+奖学金 ELSEGIRLS=GIRLS+奖学金 ENDIFSKIPENDDO?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2) ENDDOUSESET TALK ON
