not eof scan循环.docVIP

7、依次显示XSDB.DBF数据表中的记录内容。 ***********SPACE********** 【?】 ***********SPACE********** DO WHILE【?】 DISP ***********SPACE********** 【?】 ENDDO USE RETURN 『答 案』：1 USE★XSDB 或 USE★XSDB★.DBF 2 .NOT.★EOF() 或 !EOF() 或 NOT★EOF() 或 EOF()★★.T. 或 EOF()★!=★.T. 或 EOF()★#★.T. 3 SKIP 或 SKIP★1 12、下面程序根据XSDB.DBF数据表中的计算机和英语成绩对奖学金做相应调整：双科90分以上（包括90）的每人增加30元；双科75分以上（包括75）的每人增加20元；其他人增加10元。 USE XSDB ***********SPACE********** DO WHILE 【?】 DO CASE CASE 计算机=90.AND.英语=90 REPLACE 奖学金 WITH 奖学金+30 CASE 计算机=75.AND.英语=75 REPLACE 奖学金 WITH 奖学金+20 ***********SPACE********** 【?】 REPLACE 奖学金 WITH 奖学金+10 ENDCASE ***********SPACE********** 【?】 ENDDO 『答 案』： 1 .NOT.EOF() 或 NOT EOF() 或 !EOF() 或 EOF()★★.T. 或 EOF()★#★.T. 或 EOF()★!=★.T. 或 NOT EOF()=.T. 2 OTHERWISE 或 CASE★ .NOT.★(计算机=90★.AND★.英语★=90)★.OR.★NOT.★(计算机★=75★.AND.★英语★=75) 或 CASE★计算机★★75★OR★英语★★75 3 SKIP 或 SKIP★1 25、查找XSDB表中计算机成绩最高分的学生，将其姓名和计算机字段的内容显示出来,如：王迪 98。 USE XSDB MAX=计算机 ***********SPACE********** 【?】 DO WHILE .NOT.EOF() IF MAX计算机 MAX=计算机 ***********SPACE********** 【?】 ENDIF ***********SPACE********** 【?】 ENDDO ?XM,MAX USE 『答 案』： 1 XM=★姓名 或 STOR 姓名 TO XM 2 XM=★姓名 或 STOR 姓名 TO XM 3 SKIP 或 SKIP★1 26、找出XSDB.DBF中奖学金最高的学生记录并输出。 ***********SPACE********** 【?】 MAX=0 ***********SPACE********** DO WHILE 【?】 IF MAX奖学金 ***********SPACE********** 【?】 JLH=RECN() ENDIF SKIP ENDDO ?MAX DISP FOR RECN()=JLH USE 『答 案』： 1 USE★XSDB 或 USE★XSDB★.DBF 2 !EOF() 或 .NOT.★EOF() 或 NOT★EOF() 或 EOF()★★.T. 3 STOR★ 奖学金 TO★ MAX 或 MAX=★奖学金 27、设表AAA.DBF包括学号、姓名、成绩，下列程序完成显示最高成绩记录的学号、姓名、成绩。 SET TALK OFF USE AAA.DBF NN=1 MAX1=成绩 ***********SPACE********** DO WHILE NOT 【?】 IF 成绩MAX1 MAX1=成绩 NN=RECNO() ENDIF ***********SPACE********** 【?】 ENDDO ***********SPACE********** 【?】 ?最高成绩：学号=+学号+，姓名=+姓名+，成绩= ??成绩 USE SET TALK ON 『答 案』： 1 EOF() 2 SKIP 或 SKIP★1 3 GO★NN 或 GOTO★NN 8、将XSDB.DBF表中奖学金超过60元的学生姓名和奖学金显示在屏幕上。 USE XSDB DO W