?\各班男女奖学金总额统计************\?\班级 男同学奖学金总额 女同学奖学金总额\ 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 否=.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*******
b. copy to yh for优秀 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