資源描述：
《not eof scan循環(huán)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、7、依次顯示XSDB.DBF數(shù)據(jù)表中的記錄內(nèi)容。***********SPACE**********【?】***********SPACE**********DOWHILE【?】DISP***********SPACE**********【?】ENDDOUSERETURN『答案』：1USE★XSDB或USE★XSDB★.DBF2.NOT.★EOF()或!EOF()或NOT★EOF()或EOF()★<>★.T.或EOF()★!=★.T.或EOF()★#★.T.3SKIP或SKIP★112、下面程序根據(jù)XSDB.DBF數(shù)據(jù)表中的計(jì)算機(jī)和英語(yǔ)成績(jī)對(duì)獎(jiǎng)學(xué)金做相應(yīng)調(diào)
2、整：雙科90分以上（包括90）的每人增加30元；雙科75分以上（包括75）的每人增加20元；其他人增加10元。USEXSDB***********SPACE**********DOWHILE【?】DOCASECASE計(jì)算機(jī)>=90.AND.英語(yǔ)>=90REPLACE獎(jiǎng)學(xué)金WITH獎(jiǎng)學(xué)金+30CASE計(jì)算機(jī)>=75.AND.英語(yǔ)>=75REPLACE獎(jiǎng)學(xué)金WITH獎(jiǎng)學(xué)金+20***********SPACE**********【?】REPLACE獎(jiǎng)學(xué)金WITH獎(jiǎng)學(xué)金+10ENDCASE***********SPACE**********【?】ENDDO『答案
3、』：1.NOT.EOF()或NOTEOF()或!EOF()或EOF()★<>★.T.或EOF()★#★.T.或EOF()★!=★.T.或NOTEOF()=.T.2OTHERWISE或CASE★.NOT.★(計(jì)算機(jī)>=90★.AND★.英語(yǔ)★>=90)★.OR.★NOT.★(計(jì)算機(jī)★>=75★.AND.★英語(yǔ)★>=75)或CASE★計(jì)算機(jī)★<★75★OR★英語(yǔ)★<★753SKIP或SKIP★125、查找XSDB表中計(jì)算機(jī)成績(jī)最高分的學(xué)生，將其姓名和計(jì)算機(jī)字段的內(nèi)容顯示出來(lái),如：王迪98。USEXSDBMAX=計(jì)算機(jī)***********SPACE******
4、****【?】DOWHILE.NOT.EOF()IFMAX<計(jì)算機(jī)MAX=計(jì)算機(jī)***********SPACE**********【?】ENDIF***********SPACE**********【?】ENDDO?XM,MAXUSE『答案』：1XM=★姓名或STOR姓名TOXM2XM=★姓名或STOR姓名TOXM3SKIP或SKIP★126、找出XSDB.DBF中獎(jiǎng)學(xué)金最高的學(xué)生記錄并輸出。***********SPACE**********【?】MAX=0***********SPACE**********DOWHILE【?】IFMAX<獎(jiǎng)學(xué)金***
5、********SPACE**********【?】JLH=RECN()ENDIFSKIPENDDO?MAXDISPFORRECN()=JLHUSE『答案』：1USE★XSDB或USE★XSDB★.DBF2!EOF()或.NOT.★EOF()或NOT★EOF()或EOF()★<>★.T.3STOR★獎(jiǎng)學(xué)金TO★MAX或MAX=★獎(jiǎng)學(xué)金27、設(shè)表AAA.DBF包括學(xué)號(hào)、姓名、成績(jī)，下列程序完成顯示最高成績(jī)記錄的學(xué)號(hào)、姓名、成績(jī)。SETTALKOFFUSEAAA.DBFNN=1MAX1=成績(jī)***********SPACE**********DOWHILENO
6、T【?】IF成績(jī)>MAX1MAX1=成績(jī)NN=RECNO()ENDIF***********SPACE**********【?】ENDDO***********SPACE**********【?】?"最高成績(jī)：學(xué)號(hào)="+學(xué)號(hào)+"，姓名="+姓名+"，成績(jī)="??成績(jī)USESETTALKON『答案』：1EOF()2SKIP或SKIP★13GO★NN或GOTO★NN8、將XSDB.DBF表中獎(jiǎng)學(xué)金超過(guò)60元的學(xué)生姓名和獎(jiǎng)學(xué)金顯示在屏幕上。USEXSDBDOWHILE.NOT.EOF()***********FOUND**********IF獎(jiǎng)學(xué)金=60?"姓名
7、="+姓名,"獎(jiǎng)學(xué)金="+str(獎(jiǎng)學(xué)金)ENDIF***********FOUND**********CONTINUEENDDOUSE『答案』：1IF獎(jiǎng)學(xué)金>60 2SKIP或SKIP1或SKIP+19、打開XSDB.DBF數(shù)據(jù)表,分別統(tǒng)計(jì)男、女生的人數(shù)。USEXSDBSTOR0TOB,GDOWHILE.NOT.EOF()***********FOUND**********IF性別<>男B=B+1***********FOUND**********ENDIFG=G+1ENDIFSKIPENDDO?"男生人數(shù)是："+STR(B)?"女生人數(shù)是："+
8、STR(G)『答案』：1IF性別="男"或IF性別<>"女"或IF
