DC=\中\ CASE CJ>=60 DC=\及格\ CASE CJ<60 DC=\不及格\ ENDCASE ?XH,CJ,DC ENDIF USE
SET TALK ON
a. locate for学号=xh b. average 成绩 to cj for 学号=xh 12. *分别累加男女同学奖学金
SET TALK OFF CLEAR
USE 学生表
INDEX ON 学号 TO INN0 ?\各班男女奖学金总额统计************\?\班级 男同学奖学金总额 女同学奖学金总额\ DO WHILE !EOF() CLASS=LEFT(学号,3) *******found*******
________(1)________ DO WHILE LEFT(学号,3)=CLASS *******found******* ________(2)________
BOYS=BOYS+奖学金 ELSE GIRLS=GIRLS+奖学金 ENDIF SKIP
ENDDO
?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2) ENDDO USE
SET TALK ON
a. store 0 to boys,girls b. if 性别 13. SET TALK OFF USE STD13 LIST
******found******
REPLACE ALL 优秀否 WITH .T. FOR ______(1)______ ******found******
COPY TO YH ______(2)______ USE
SET TALK ON
a. replace all 优秀否 with .t. for笔试成绩>=85and上机成绩>=85 b. copy to yh for优秀否=.t.
14. SET TALK OFF CLEAR FOR I=10 TO 99 FOR J=2 TO I-1 *******found*******
IF ______(1)_______ EXIT ENDIF ENDFOR IF I=J
A=INT(I/10)
B=MOD(I,10)
*******found******* K=_______(2)_______ FOR P=2 TO K-1 IF K%P=0 EXIT ENDIF ENDFOR IF K=P ?I ENDIF ENDIF ENDFOR
SET TALK ON
a. if i%j=0 b. k=10*b+a 15. SET TALK OFF CLEAR USE std14
C=\
FOR I=1 TO 3
ACCEPT C+\请输入口令：\ PSW LOCATE FOR ALLTRIM(口令)==ALLTRIM(PSW) ******found****** IF ______(1)______
?\欢迎使用本系统！\ EXIT
ENDIF
C=\口令错！再试一次。\ENDFOR
******found******
______(2)______
?\无权使用本系统！再见！\ENDIF USE
SET TALK ON a. if found() b. if i=4 16. SET TALK OFF
CLEAR
ACCEPT \请输入要显示的表名(扩展名请省略)\ BM bm=allt(bm)
******found****** ______(1)______ IF FILE(BM)
******found****** ______(2)______ BROWSE
ELSE
MESSAGEBOX(\指定表不存在！\ENDIF USE
SET TALK ON
a. bm=bm+\ b. use &bm