計算機專業(yè)《VFP》程序填空與閱讀試卷匯編、程序填空(每空3分，共27分)1.有一商場的商品銷售數(shù)據(jù)庫XS.DBF其記錄如下:記錄號商品名單價數(shù)量總價1電冰箱2000360002彩電1800590003電冰箱2010120104空調(diào)機1600232005彩電190023800下面程序用于分類統(tǒng)計各種商品總的銷售數(shù)量和總的銷售額(總價),并計算出平均銷售單價。SETTALKOFFUSEXSINDEON商品名TOSYTotalOn商品名TOTJKUSETJKREPLAll平均銷售單價with總價/數(shù)量LISTUSESETTALKON任意輸入兩個正整數(shù)X和丫,求X與Y的最小公倍數(shù)。SETTALKOFFINPUT"X="TOXINPUT"Y="TOYIFX>YT=XX=YY=TENDIN=YDOWHILEN<=0IFMOD(X,Y)=0 EXITENDIFN= ENDDO?”最小公倍數(shù)是:"+STR(N)SETTALKON現(xiàn)有一數(shù)據(jù)庫CJ.DBF，該數(shù)據(jù)庫文件中僅有一個數(shù)值型字段”數(shù)據(jù)”，且無記錄。要求鍵盤輸入十個數(shù)，將這些數(shù)保存到CJ.DBF的”數(shù)據(jù)”字段中，并由大到小顯示出來。SETTALKOFFCLEAUSECJK=1DOWHILKV=10APPENDBLANK@K+5,1SAY，第"+STR(K,2)+”數(shù)是:”GET數(shù)據(jù)READSKIPENDDINDEON數(shù)據(jù)TOTMPLISTUSESETTALKON二、程序填空(每空3分,共18分)男子100米短跑成績已錄入數(shù)據(jù)庫Male100.DBF現(xiàn)要求將前3名運動員的成績轉(zhuǎn)入獲獎數(shù)據(jù)庫gainer.dbf和gainer.txt文件中。閱讀下列程序，填寫空位處的代碼,使程序能正確有效地實現(xiàn)上述要求。setTalkoffclear@14,20say"請稍候…”useMale100Indexon成績/DTotempuseTempCopyTogainer.dbfusegainerCopytogainer.txtFields成績use@14,20say"操作完畢!”Return現(xiàn)有一戶籍?dāng)?shù)據(jù)庫People.DBF存有該地區(qū)各位公民的檔案資料，現(xiàn)要求按”出生日期”字段(日期型)，以索引查詢方式，快速查找并顯示所有與指定出生日期相同的記錄。SetTalkoffSetSafeoffClearusepeopleIndexOn出生日期ToIpeopleBorn="/ /"@14,20Say"請輸入查詢的出生日期:"GetBompictureReadSeekBornDowhile.NOT.EOF().AND.FOUND()DisplaySkipEnddouseSetTalkonReturn三、 程序填空（每空3分，共18分）1、 在人事檔案管理系統(tǒng)中，設(shè)有兩個數(shù)據(jù)庫：ZGQK.DBF（編號，姓名，性別，職稱，部門名，基本工資）ZGGZ.DBF（編號，資金，房租，實發(fā)工資）查詢并顯示實發(fā)工資1200元以上的職工姓名及職稱，請將程序補充完整。SETTALKOFFSELE1USEZGQKINDEXON編號TOQKSELE2USEZGGZSETRELATIONTO編號INTOALOCAFOR實發(fā)工資>=1200IFFOUND（）DOWHILE.NOT.EOF（）DISPZGQK.姓名，ZGQK.職稱CONTENDDOENDIFCLOSEALLSETTALKON2、 求1——100間能被5整除的奇數(shù)個數(shù)及其和，請將程序被充完整。SETTALKOFFCLEAI=1S=0M=0DOWHILEI<=100IFMOD（I,5）=0ANDM=M+1S=S+IENDIFI=I+2?M，SENDOSETTALKON四、 程序填空題：（每空3分，共計24分）1、顯示1至U100之間既能被4整除又能被6整除的整數(shù)。settalkoffn=1dowhilen<=100ifn%4!=0andn%6!=0n=n+1Loopelse?nendiEndd2、向數(shù)據(jù)庫文件TSK.DBF中增添新記錄。SettalkoffClearUsetskAn="Y"DoWhileAn="Y"AppendBlank@10,20say"書號"GET書號@11,20say”書名”GET書名@12,20say”單價”GET單價@13,20say”冊數(shù)”GET冊數(shù)READWAIT"繼續(xù)嗎？（Y/N）”TOAnEnddUse3、通過光帶式菜單選擇并執(zhí)行子程序，其菜單和子程序名稱分別為：數(shù)據(jù)錄入(PG1-1.PRG)、數(shù)據(jù)查詢(PG2-2.PRG)、統(tǒng)計報表(PG3-3.PRG)、退出系統(tǒng)，共四項。SETTALKOFFDOWHILE.T.CLEAR@10，26SAY“1.數(shù)據(jù)錄入”@11，26SAY“2.數(shù)據(jù)查詢”@12，26SAY“3.統(tǒng)計報表”@13，26SAY“4.退出系統(tǒng)”ACCEPT”請選擇”TOKIFK=4EXITENDIFN="PG"+str(k,2)+"-"+str(k,2)+".”+"PRG”DO&FNENDDO4、三個數(shù)據(jù)庫文件；學(xué)生入學(xué)情況庫XSRX.DBF、本學(xué)期學(xué)生成績庫XSCJ.DBF和教師情況庫JXK.DBF，和數(shù)據(jù)庫內(nèi)容如下：USEXSRXLISTOFF姓名班級保送生張紅2.T.李明4.T.王軍2.F.趙波2.T.USEXSCJLISTOFF姓名數(shù)學(xué)英語計算機張紅899287李明809767王軍257880趙波906791USEJSKLISTOFF任課教師年齡班級課程陳352數(shù)學(xué)李404物理孫384英語王293計算機下面的程序是生成一個新數(shù)據(jù)庫文件XX.DBF此數(shù)據(jù)庫文件包括四個字段:姓名、班級、任課教師、課程，記錄是入學(xué)時為保送生并且本學(xué)期英語成績在90分以上（包括90分）的全部學(xué)生。請用正確的語句填空：SETTALKOFFCLEARSELECT3USEJSKSELECT2USEXSCJSELECT1USEXSRXJOINWITHCTOXSRX1FORxsrx.保送生=.T.AND;FIELDSxsrx.姓名，班級，任課教師，課程SELECT4USEXSRX1JOINWITHBTOXXFOR英語成績>=90 ;FIELDS姓名，班級，任課教師，課程SELECT5USEXXLISTSETTALKONRETURN**下面是在“KSDA.DBF“庫文件邏輯刪除已知準(zhǔn)考證號學(xué)生的程序：SETTALKOFFACCEPT"輸入待刪除考生的準(zhǔn)考證號:”TONOUSEKSDALOCATEFOR準(zhǔn)考證號=NOIFFOUND()DELETEENDIFUSERETURN5.共有五個數(shù)據(jù)庫文件stdl.dbf?std5.dbf,下面程序的功能是刪除每個庫文件的末記錄。請?zhí)羁?。N=lDOWHILEN<=5AB="std"+str(n,2)USE&ABGOBOTTOMDELETEPACKN=N+1ENDDOUSE下列程序的功能是對輸入漢字字符串進行倒序顯示，請將程序補充完整。SETTALKOFFCLEARAB=""ACCEPT”請輸入字串”TOABL=LEN(AB)K=1IFL=0RETURNENDIFDOWHILEK<=L@10,KSAYSUBSTR(AB,L+1-K,1)K=K+1ENDDORETURN分析程序，顯示的值A(chǔ)=10,B=10主程序MAIN.PRGSETTALKOFFPUBLICASTORE5TOA,BDOSRBWITHA+B,A,B?A,BRETURN*子程序SRB.PRGPARAMETERSX,Y,ZDOWHILEZ<XY=Z+1Z=Z+1ENDDORETURN8.有一數(shù)據(jù)庫如下，程序功能是修改甲用戶和乙用戶的定購數(shù)量。.USEDGK.LISTOFF編號1設(shè)備名 甲用戶數(shù)量乙用戶數(shù)量4車床32銑床573 創(chuàng)床程序如下，請補充完整。SETTALKOFFUSEDGKCLEAR@10,10SAY”甲用戶”76DOWHILE.NOT.EOF()@11,10SAY設(shè)備名GET甲用戶數(shù)量READSKIPENDDOGOTOP@10,10SAY”乙用戶”DOWHILE.NOT.EOF()@11,10SAY設(shè)備名GET乙用戶數(shù)量READSKIPENDDOSETTALKONUSERETURN9.有一學(xué)生庫STUDENT.DBF，結(jié)構(gòu)為字段，姓名(C,8)，英語(N,2)，數(shù)學(xué)(N,2)，獎學(xué)金(L,1)，程序功能為確定是否發(fā)給獎學(xué)金(獎學(xué)金為.F.)。若英語數(shù)學(xué)兩門功能都大于或等于90分，則字段獎學(xué)金用.T.替換，請對程序填空。SETTALKOFFCLEARUSESTUDENTDOWHILE.T.IF英語＞=90.AND,數(shù)學(xué)＞=90REPLACE獎學(xué)金WITH.T.ENDIFSKIPIFEOF()EXIT ENDIFENDDORETURN10.有三個數(shù)據(jù)庫文件STUD1.DBF,STUD2.DBF,STUD3.DBF,STUD1.DBF庫結(jié)構(gòu)為學(xué)號(C,6)，姓名(姓名,8)；STUD2.DBF結(jié)構(gòu)為學(xué)號(C,6)，系別(C,10)；STUD3.DBF結(jié)構(gòu)為姓名(C,6)，成績(N,2)，現(xiàn)用關(guān)聯(lián)方法顯示，成績大于90分的學(xué)生情況，并且用物理聯(lián)結(jié)方法產(chǎn)生一個完整的學(xué)生庫STUD.DBF，請在命令序列中填空。SELECT1USESTUD1SELECT2USESTUD2ALIASS2SELECT3USESTUD3ALIASS3INDEXON姓名TOSTRD3ISELECT2INDEXON學(xué)號TOSTUD3ISELECT1SETRELATIONTO學(xué)號INTOS2LIST學(xué)號，S3-＞姓名，S3-＞成績JOINWITHS3TOS13FORS3.成績＞90FEILDS學(xué)號，姓名，S3-＞成績SELECT4USES13INDEXON學(xué)號TOS13ISELECT2JOINWITHS13TOS123FOR學(xué)號=D-＞學(xué)號FIELD學(xué)號，姓名，系別，S3-＞成績USES123LIST11.下面程序的功能是根據(jù)銷售數(shù)據(jù)文件SALE.DBF中的數(shù)據(jù)去修改庫文件INVENTRY.DBF數(shù)據(jù)，請對程序填空：SELECT1USEINVENTRYSELECT2USESALEDOWHILENOTEOF()SELECT1LOCATEFOR商品名=B-＞商品名REPLACE數(shù)量WITHB-＞數(shù)量，總金額WITH單價*數(shù)量SELECT2SKIP.ENDDOCLOSEDATABASE12.有計算機等級考試的筆試考試數(shù)據(jù)庫bsh.dbf和上機考試數(shù)據(jù)庫shj.dbf,其內(nèi)容分別如下：筆試數(shù)據(jù)庫bsh.dbf上機考試數(shù)據(jù)庫shj.dbfRecord#姓名筆試成績Record#姓名上機成績1歐陽惠871吳明友672陳冬梅772楊紅873吳明友943歐陽惠944楊紅604李霞835李霞685陳冬梅751）首先執(zhí)行以下命令序列SELECT2USEshjSELECT1USEbshSETRELATIONTORECNOINTObLOCATEFOR筆試成績<=80?姓名SELECTb?姓名執(zhí)行命令序列后，第一個?命令顯示的姓名是第二個?命令顯示的姓名是:。2）仍然使用上面的計算機等級考試的筆試考試數(shù)據(jù)庫bsh.dbf和上機考試數(shù)據(jù)庫shj.dbf,執(zhí)行以下程序SELECT2USEshjSELECT1USEbshJ0INWITHbTOksFOR姓名=b->姓名 FIELDS 姓名，筆試成績，上機成績CLEARUSEksDOWHILE.N0T.E0FN=1I=0J=0DOWHILEN<=3.AND..NOT.E0F()I=I+筆試成績J=J+上機成績N=N+ISKIPENDDO?”總成績="+STR(I+J)ENDDO執(zhí)行程序后，顯示的第一個總成績是 ，第二個總成績是 3)接著繼續(xù)執(zhí)行以下程序CLEARSETDELETEDONUSEKSINDEXON筆試成績+上機成績TOABCCOUNTTOSGOTOTOPSKIPDELETENEXTS-2COPYTOQAZUSEAQZLIST最后顯示的第一條記錄的姓名是 ，第二條記錄的姓名是在下列數(shù)據(jù)記錄修改程序中(屏幕格式文件ST.FMT已建立)填空。SETTALKOFFUSESTUDENTSETFORMATTOSTDOWHILE.T.ACCEPT‘請輸入學(xué)生姓名：’TONAMELOCATEFOR姓名=NAMEIFEOF()?‘查無此人!’ELSECLEARENDIFWAIT‘是否繼續(xù)?(Y/N)’TOGOONIFGOON='Y'CLEARLOOPELSEEXITENDIFENDDOSETFORMATTOUSESETTALKONRETURN下列程序的功能是通過字符串變量操作豎向顯示“刻苦學(xué)習(xí)”，橫向顯示“學(xué)習(xí)刻苦”，請?zhí)羁?。SETTALKOFFSTORE“刻苦學(xué)習(xí)”TOXYCLEARN=1DOWHILEN<8?SUBSTR(N=N+2ENDDO??SUBSTR(XY1,4)RETURN執(zhí)行以下命令序列:,USESTUD.LISTRecord#姓名性別年齡1歐陽惠女232李明男213楊霞女244郭昊男235吳友男256何文強男27.INDEXON年齡TOAGE.SETINDEXTOAGE.SEEK23.?姓名，年齡歐陽惠23.SKIP2.?姓名，年齡最后一條?命令的顯示內(nèi)容為17,有三個數(shù)據(jù)庫文件：學(xué)生入學(xué)情況庫XSQK.DBF、本學(xué)期學(xué)生成績庫XSCJ.DBF和教師情況JSQK.DBF庫，各數(shù)據(jù)庫內(nèi)容如下：,USEXSQK.LISTOFF姓名班級保送生張平 2.T.李明4.T.王軍2.F.趙紅2.T.,USEXSCJ.LISTOFF姓名數(shù)學(xué)英語計算機李明899288趙紅809085張平898790王軍906791,USEJSQK.LISTOFF任課教師年齡班級課程劉342數(shù)學(xué)李404物理孫364英語馬413計算機下面的程序是生成一個新數(shù)據(jù)庫文件XSQK2.DBF,此數(shù)據(jù)庫文件包括四個字段：姓名、班級、任課教師、課程。記錄是入學(xué)時為保送生并且本學(xué)期英語成績在90分以上(包括90分)的全部學(xué)生。請用正確語句填空：SETTALKOFFCLEARSELECT3USEJSQKSELECT2USEXSCJSELECT1USEXSQKJOINWITHCTOXSQK1FORFIELDS姓名，班級，任課教師，課程SELECT4USEXSQK1JOINWITHBTOXSQK2FORFIELDSSELECT5USEXSQK2LISTSETTALKONRETURN有如下程序：STORE0TON,SDOWHILE.T.N=N+1S=S+NIFN>10EXITENDIFENDDO?”S="+STR(S,2)本程序運行結(jié)果是 。有計算機等級考試考生數(shù)據(jù)庫STD.DBF和合格考生數(shù)據(jù)庫文件HG.DBF，這兩個庫的結(jié)構(gòu)相同。為了頒發(fā)合格證書并備案，把STD數(shù)據(jù)庫中筆試成績和上機成績均及格記錄的‘合格否’字段修改為邏輯真，然后再將合格的記錄追加到合格考生數(shù)據(jù)庫HG.DBF中。請對以下操作填空。,USESTD.LISTRecord#準(zhǔn)考證號姓名性別筆試成績上機成績合格否111001梁小冬女7080.F.211005林旭男9578.F.311017王平男6040.F.411083吳大鵬男9060.F.511108楊妃紅女5867.F.,REPLACEFOR筆試成績＞=60.AND.上機成績＞=60,USEHG.APPENDFROMSTDFOR.LIST.USE有如下程序段，其功能是將漢字信息"全國計算機等級考試”從屏幕底部移至頂部，請?zhí)羁眨篠ETTALKOFFSETSTATUSOFFX="全國計算機等級考試”CLEARK=23DOWHILEK＞0@K,26SAYSPACE(34)@,26SAYXP=INKEY(1)K=K-1ENDDO有口令程序如下，請?zhí)羁眨篠ETTALKOFFCLEARDOWHILE.T.@5,20SAY"請輸入口令:”SETCONSOLEOFFSETCONSOLEONIFDATE()=PWEXITELSEWAIT“口令不對！按任意鍵重來”CLEARENDIFENDDOSETTALKONCLEAR計算機等級考試的考生數(shù)據(jù)和考試成績分別放在兩個數(shù)據(jù)庫文件中。欲使用關(guān)聯(lián)方法顯

示兩個庫文件的有關(guān)數(shù)據(jù)，請對如下命令序列填空。SELECT1USESTUDLISTRecord# 考生編號 姓名年齡性別11002 張偉25女21004 吳紅30男SELECT2USESTDCJALTASTLLISTRecord#考生編n號筆試成績上機成績110047285210026792INDEXON考生編號TOABCSELECT1LIST考生編號，姓名，性別，B-＞筆試成績，B-＞上機成績Record# 考生編號 姓名性別B-＞筆試成績B-＞上機成績1002 張偉 女 67 921004 吳紅 男 72 8523.計算機等級考試各考點均有數(shù)據(jù)庫文件KSCJ.DBF,其中有關(guān)考生成績的字段值暫空。省市考區(qū)閱卷后建立成績數(shù)據(jù)庫文件ST.DBFo下列程序是使用ST.DBF中的數(shù)據(jù)更新考生數(shù)據(jù)庫數(shù)據(jù)，請?zhí)羁昭a齊命令。SELECT1USEKSCJLISTRecord#準(zhǔn)考證號姓名年齡性別班號筆試成績上機成績合格否1 1011017劉麗23女101.F.2 1011083王友28男101.F.INDEXON準(zhǔn)考證號TOAINDSELECT2USESTLISTRecord#準(zhǔn)考證號筆試成績上機成績110110839060210110176040INDEXON準(zhǔn)考證號TOBINDSELECT1UPDATEON準(zhǔn)考證號筆試成績WITHB-＞筆試成績，上機成績WITHB-＞上機成績LISTRecord#準(zhǔn)考證號姓名年齡性別班號筆試成績上機成績合格否1 1011017劉麗23女101 60 40 .F.2 1011083王友28男101 90 60 .F.24.接上題，為了頒發(fā)合格證書，把KSCJ.DBF數(shù)據(jù)庫中筆試成績和上機成績均及格(大于等于60分)記錄的合格否字段值修改為邏輯真，然后顯示并打印該字段值為真的考生名單。請對以下命令填空：USEKSCJREPLACE合格否WITHFORLISTFORTOUSE25,有下列兩個程序，主程序是MAIN.PRG，子程序是SUBPRO.PRG。執(zhí)行主程序后，屏幕第5行顯示信息，屏幕第6行顯示信息。MAIN.PRGSETTALKOFFCLEARP=10Q=10DOWUBPROWITHP@6,6SAY“Q=”+STR(Q,2)CANCELSUBPRO.PRGPARAMETERSQQ=20@5,6SAY“Q=”+STR(Q,2)RETURN在VFP命令窗口執(zhí)行下列命令，請?zhí)羁?。USESTCOUNTTOA?A &&顯示為：35GOTOPDELETENEXT5?RECCOUNT()SETDELETEDONCOUNTTOXY?XY &&顯示值?RECCOUNT()&&顯示值計算機等級考試成績已錄入完畢，缺考者的記錄上均已打上刪除標(biāo)記“*”。為計算實際參加考試者平均分，請在以下命令序列中填空。USESTUSETDELETEONAVERAGEALL成績TOAVG計算機等級考試考生數(shù)據(jù)庫DJKS.DBF。筆試和上機成績已分別錄入其中的“筆試”和“上機”字段(皆為N型)中，此外另有“等級”字段C型)。凡兩次考試均達到80分以上者，應(yīng)在等級字段中填入“優(yōu)秀”。編程如下，請?zhí)羁铡ETTALKOFFUSEDJKSDOWHILE.NOT.EOF()IF筆試〉=80.AND.上機＞=80ENDIFSKIPENDDOUSESETTALKON有學(xué)生數(shù)據(jù)庫STUDENT.DBF,其中編號/N/2字段的值從開始連續(xù)排列。欲按編號的1、9、17、25......規(guī)律抽取學(xué)生參加比賽，并在屏幕上顯示參賽學(xué)生的編號，請?zhí)羁?。SETTALKOFFUSESTUDENTDOWHILT.NOT.EOF()IFINT ??編號ENDIFSKIPENDDOUSESETTALKON計算機等級考試的查分程序如下，請?zhí)羁铡ETTALKOFFUSEDJKSINDEXDSACCEPT"請輸入準(zhǔn)考證號:”TOKHFIND 下面的程序是將“中華人民共和國”顯示為“中華人民共和國”，請?zhí)羁?。SETTALKOFFCLEARX="中華人民共和國”Y=""DOWHILELEN(X)>=Y=Y+SUBSTR(X,1,2)+""X=SUBSTR(X,3)ENDDORETURN有程序如下，基功能是將硬盤上若干個班(小于10)的成績數(shù)據(jù)文件復(fù)制到A盤上。數(shù)據(jù)庫文件名分別FIL1.DBF,FIL2.DBF……等，備份文件名前面冠以年號，例如97BFIL1.DBF,97BFIL2.DBF??…等。在C盤上運行該程序，請?zhí)羁铡ETTALKOFFCLEARACCEPT”請輸入年號："TONH&&兩位數(shù)字年號INPUT”班級個數(shù)："TONI=1DOWHILEI<=NDBN="FIL"+STR(I,1,1)BDBN= USE&DBNCOPYTO I=I+1ENDDOUSESETTALKONRETURN下面是按實發(fā)工資計算機稅金的程序，并將計算結(jié)果填入稅金字段假定職工最高實發(fā)工資為2500元)，請?zhí)羁铡?**主程序MAIN.PRG****SETTALKOFFTAX=0USEGZDOWHILE.NOT.EOF()SHFGZ=實發(fā)工資DOSUB ?TAXREPLACE稅金WITHTAXENDDOUSECANCEL***子程序SUB.PRG****X=0DOCASECASEA>=800.AND.A,1300X=(A-800)*0.05CASEA>=1300.AND.A<1800B=A-1300X=B*0.1+500*0.05CASEA>=1800.AND.A<2300B=A-1800X=B*0.15+500*0.1+500*0.05CASEA>=2300B=A-2300X=B*0.2+500*0.15+500*0.1+500*0.05ENDCASERETURN設(shè)有圖書數(shù)據(jù)庫TSH,包括字段（總編號，分類號，書名，作者，出版單位，單價）;讀者數(shù)據(jù)庫DZH（借書證號，姓名，性別，單位，職稱，地址）；借閱數(shù)據(jù)庫JY（借書證號，總編號，借閱日期，備注）。下面程序的功能是打印已借書讀者的借書證號、姓名，單位，以及借閱圖書的書名、單價、借閱日期。請閱讀程序并填空。SETTALKOFFSELECT1USEDZHINDEXON借書證號TODSHHSELECT2USETSHINDEXON總編號TOSHHSELECT3USEJYSETRELATIONTO借書證號INTOALISTTOPRINTCLOSEALLRETURN35、設(shè)數(shù)據(jù)庫ABC有一字段“姓名”，且以它為關(guān)鍵字索引（索引文件ABCX.IDX）。因某種誤操作，該數(shù)據(jù)庫有一些重復(fù)記錄。現(xiàn)編一命令文件進行查找并把重復(fù)記錄刪去。settalkoffuseabcindexabcxdowhile 乂:^姓名skipifdeleteendifenddoreturn五、程序填空本程序求3到100之間的素數(shù)。若數(shù)X不能被2到Jx取整加1范圍內(nèi)的任一整數(shù)整除，則x為素數(shù)。10FORX=3TO10020FORY=30IFTHEN40NEXTY50PRINTX60NEXTX70END已知數(shù)組M中是同分到低分排序的六個學(xué)生成績，現(xiàn)從鍵盤上再鍵入第七個學(xué)生的成績，要求將這個學(xué)生的成績自動插入數(shù)組M中，并且保持?jǐn)?shù)組中按高分到低分排序。10DIM 20FORK=1TO6:READM(K)30NEXTK40DATA96,94,88,80,75,6350INPUTX60FORK=1TO670IFTHEN9080NEXTK90T=K100FORK=6TOSTEP-1110 120NEXTK130M(T)=;END3.設(shè)數(shù)據(jù)庫ABC有一字段“姓名”，且以它為關(guān)鍵字索引(索引文件ABCX.IDX)。因某種誤操作，該數(shù)據(jù)庫有一些重復(fù)記錄?，F(xiàn)編一命令文件進行查找并把重復(fù)記錄刪去。settalkoffuseabcindexabcxdowhile xm^4Wskipif deleendifenddoreturn六、程序填空（每空3分，共30分）根據(jù)右邊的運行結(jié)果完善程序：SETTALKOFFCLEARx=1DOWHILE 1）1?STR(x,3)+')’J=12)243)369DOWHILE4)481216??STR(1*J,4)5)510152025J=J+16)61218243036ENDDO7)7142128354249?‘'8)8162432404856649)91827364554637281ENDDOSETTALKONRETUEN下列程序是把“偉大祖國”堅向顯示出來，并橫向顯示“祖國偉大”，請?zhí)羁眨篠ETTALKOFFSTORE“偉大祖國”TOXYCLEARN=1DOWHILEN<8?SUBSTRN=N+2ENDDO???SUBSTR（XY,1,4）RETIRM七、程序填空。（每空2分，共30分）有一個數(shù)據(jù)庫STUDENT.DBF,其中有C型字段姓名，以下是一個按姓名查詢記錄的程序，若有，則輸入學(xué)生情況（同名的學(xué)生也能輸入），否則不顯示任何信息。SETTALKOFFACCEPT輸入查詢的姓名：“TOLOCATEENDDOUSERETURN設(shè)有一個學(xué)生成績庫SORE.DBF，其中字段為：學(xué)號（C），姓名（C），語文（N），數(shù)學(xué)（N），計算機（N），總分（N），平均分（N）。下面程序?qū)崿F(xiàn)計算機每個學(xué)生的總分和分，并存儲在相應(yīng)的字段中，然后逐條輸出總分前十名的學(xué)生記錄。SETTALKOFFUSESCOR.DBFREPLACEALL總分WTTH語文+數(shù)學(xué)+計算機REPLACEALL平均分WTTHINDEXON一總分TOZFI=1+1DOWHILEDISPLAYI=1+1ENDDOUSERETURN下列程序用來實現(xiàn)對數(shù)據(jù)庫插入、刪除記錄的功能，請補充完整。CLEARACCEIP"請輸入數(shù)據(jù)庫文件名”TOFILEAMEDOWHILE.T.?〃 1插入記錄〃?〃 2刪除記錄〃?〃 3退出〃WAIT〃請輸入你的選擇〃TOCHOICEDOCASECASECHOICE=〃1〃INPUT〃輸入需要插入的記錄號：〃TONGOTONCASECHOICE=〃2〃INPUT〃輸入需要刪除的記錄號：〃TONGOTONDEKETECASECHOICE=〃3〃ENDCASEENDDOUSERETURN設(shè)貨物庫文件GOODS.DBF中包括有：貨號、貨名、單價等字段，營業(yè)員庫EMPLOY、EE.DBF包括營業(yè)員代碼、姓名、性別等字段；銷售庫SALE.DEF中包含有營業(yè)員代碼、貨號、貨名、單價、售出日期、姓名等。閱讀下面程序，將程序補充完整。SELECT1USEGOODSINDEXON貨號TOHHSELECT2USEEMPLOYEEINDEXON營業(yè)員代碼TODMSELECT3USESALESETRELATLONTO貨號INTOACLOSEALLRETURN八、程序填空題（3*8=24分）1、程序功能：從鍵盤輸入一個字符串，刪除其中的非數(shù)字字符，然后輸出.SETTALKOFFCLEARS=SPACE(80)@5,10SAY“請輸入一個字符串:”GETRSREADST=””FORI=1TOLEN(ALLTRIM(RS))IF ST=ST+XENDIFENDFOR?”原字符串為:”+RS?”新字符串為:”+STRETU2下面為核對口令的程序段，口令最多輸入三次，請閱讀并填空。SettalkoffSetdevicetoscreenSetescapeoffCleaI=1Dowhile.T.@3,2say"［請輸入口令］”setconsoleoffaccepttopassifupper(pass)=''OK''domain.prgelsewait"第”+str(I,1)+”次輸入有錯”ifI=3@4,10sayspace(60)endifI=I+1enddosettalkonreturn1.在JSDA-DBF中查找用戶輸入的編號，如果查找成功，顯示教師的職稱，否則，顯示個說明信息。請完成如下程序：CLEARUSEC：\JSGL\JSDA“請輸入教師的編號:” TOBHLOCATEFOR編號==BHIFDOCASECASE職稱=“高級教師”WAIT“該教師是高級教師”WINDOWAT15，50TIMEOUT1CASE職稱=“一級教師”WAIT“該教師是一級教師”WINDOWAT15，50TIMEOUT1CASE職稱=“二級教師”WAIT“該教師是二級教師”WINDOWAT15，50TIMEOUT1WAIT"該編號不存在”WINDOWAT15,50TIMEOUT1ENDIFUSERETURN*注：ATm,n在VisualFoxPro中，指定信息窗口在屏幕上的位置2、在JSDA.DBF表中查找用戶指定的編號。如果查找成功，顯示找到的記錄，否則，顯示一條說明信息。請完成如下程序。USEJSDA.DBFDOWHILE.T.CLEARACCEPT”請輸入編號:”TOBHLOCATEFORIFFOUND()DISPLAYELSEWAIT”不存在該編號”WINDOWTLMEOUT1WAIL”是否繼續(xù)查找？(Y/N)”TOANSWERWINDOWIFUPPER(ANSWER)〈〉”Y”ENDIFENDIFENDDOUSERETURN4、使用自定義函數(shù)計算5！=7！+10！。請完成如下程序。CLEAR？”5！+7！+10！="+ALLTRIM(STR(JS)(5)+JS(7)+JS(10)))RETURNFUNCTION&&定義自定義函數(shù)XS=FORN=1TOXXS=XS*NRETURNENDFUNC

四、閱讀程序，寫出程序運行結(jié)果（每小題6分，18共）1.主程序main.prg子程序sub.prgsettalkoffprivbpublicab=5stor2toa,ba=2*ba=a+breturnb=a+b?a,bdosub?a,breturn程序執(zhí)行的結(jié)果是：2.對于職工工資數(shù)據(jù)庫ZGGZ.DBF執(zhí)行下面程序。SETTALKOFFUSEZGGZINDEON工資TOGZSTOR0TOS,NGOTOPDOWHIL.NOT.EOF()DOCASECASE性另='男’S=S+工資CASE職稱='工程師’N=N+1ENDCSKIPENDDUSESETTALKON程序執(zhí)行后，變量S表示變量N表示。3.現(xiàn)有學(xué)生檔案數(shù)據(jù)庫XSDA.DBF其記錄如下：記錄號姓名性別班級團員否1王紅女2T2張長江男4T3黃一品男2T4高峰男1F5肖丹女1F6趙婷婷女2T7張雅芝女1T8劉剛男2F執(zhí)行下面程序：SETTALKOFFUSEXSDAINDEON班級TOBJN=0K=班級GOTOPDOWHILE.NOT.EOF()IFK<>班級?K,NENDIFN=N+1K=班級SKIPENDDO?K,NUSESETTALKON程序執(zhí)行的結(jié)果是：五、閱讀程序,寫出程序運行的結(jié)果。（每空3分，共18分）1.*主程序main.prgsetTalkoffpublicBA=7N=3B=5*子程序sub.prgprivateBB=10A=NA2ReturnDoSub?A,BReturn程序運行結(jié)果為:2.現(xiàn)有XSCJ.DBF數(shù)據(jù)庫，其記錄內(nèi)容如下所示:記錄號#姓名成績1李梅78.52張燕89.53孫靜45.84李雪65.05楊東90.0現(xiàn)依次執(zhí)行如下命令，試寫出程序運行結(jié)果SettalkoffuseXSCJIndexon-成績ToIXSCJGOTOP?成績skip2?Recno()usesettalkonReturn3.SettalkoffSour="VisualBasic6”N=2I=1S=””DowhileI<4IfInt(/2)=I/2N=N-3ElseN=N+6EndIFS=S+Substr(Sour,N,I)I=I+1Enddo?S,NSettalkOnReturn執(zhí)行以上程序后,其運行結(jié)果為四、閱讀程序，寫出程序運行結(jié)果(每空4分，共16分)1、SETTALKOFFCLEAACCE"輸入密碼：”TOSTRING?“破譯密碼：”I=1DOWHILEI<=3CH=SUBSTR(STRING,I,1)IFCH>='A’.AND.CH<=’Z’CH=CHR(ASC(CH)+32)ELSEIFCH>=’a'.AND.CH<=’z'CH=CHR(ASC(CH)—32)ENDIFENDIF??CHI=I+1ENDDOSETTALKON輸入密碼：Aim破譯密碼： 。2、 SETTALKOFFI=1DOWHILEIV=3J=IDOWHILEJV=3@I,JSAY“大”J=J+1ENDDOI=I+1ENDDOSETTALKON程序執(zhí)行的結(jié)果是：3、 SETTALKOFFSM=200C=’1’T=’SM’?STR(&T,3)+CSETTALKON程序執(zhí)行的結(jié)果是：4、 SETTALKOFFUSEDACOPYTODA1COPYTODA2STRUEXTEUSEDA2APPEBLANREPLFIELD_NAMEWITH“出生日期”，F(xiàn)IELD_TYPEWITH‘D’，F(xiàn)ILED_LENWITH8CREADAFROMDA2APPEFROMDA1SETTALKOF程序的功能是：四、閱讀程序，寫出程序的執(zhí)行結(jié)果。每輸出項4分，共24分。1、SETTALKOFFCH=“？+―大/?”N=1DOWHILEN<=LEN(CH)—2M=SUBSTR(CH,N+1,1)X=4&M.NY=2&M.N??X&M.YN=N+1ENDDORETURN程序執(zhí)行后所顯示的結(jié)果依次是:2、*主程序：MALN.PRGSETTALKOFFSETPROCTOP123PUBLICA,B1TOA,B,CSTORE1TOA,B,CDOP1?"A=",ADOP2?"B=”,B?"C=",CCLOSPROCRETURN*****P123.PRGPROCP1A=A*2+1RETUPROCP2PRIVCB=B*4+1C=C*2+1DOP3RETUPROCP3C=C*2+5RETU程序執(zhí)行后所顯示的結(jié)果依次是:3、現(xiàn)有數(shù)據(jù)庫XSDQ.DBF,其記錄內(nèi)容如下:Record#班級別姓名性別年齡1A程小平女202A鄧金山男213A劉剛男194B高大宣男225B習(xí)有蘭女20現(xiàn)依次執(zhí)行如下命令，試寫出程序運行結(jié)果。USEXSDAINDEXONSTR(年齡，2)+班級TOXSGOTOP?RECNO()，姓名GOBOTT?RECNO()，姓名INDEXON姓別+STR(30一年齡，2)TOXSGOTOPSKIP2?RECNO()，姓名USE8、輸出下列圖形，請把QBASIC程序補充完整。ABBBCCCCCDDDDDDDEEEEEEEEEK=ASC("A”)FORI=1TO5FORJ=1TOPRINTTAB(6—I+J)；CHR$( )NEXTJK=PRINTNEXTIEND9、下列QBASIC程序是鍵入任意的三個數(shù)時，將按從大到小的順序輸出，請將程序補充完整。INPUT"A，B，C”；A，B，CIFAVBTHENSWAPA，BENDIFIF THENENDIFIFBVCTHENSWAPB，CENDIFPRINTA，B，CEND三、讀程序（每題15分）寫出下面QBASIC程序運行后輸出的結(jié)果FOR I=1 TO8Y=1FORJ=1TO10FORK=1TO5X=X+1Y=Y+1NEXTKNEXTJNEXTIRPINT"Y=”；YEND結(jié)果為：寫出下面QBASIC程序運行后輸出的結(jié)果CLSDIMA(3,3),B(3,3)FOR I=1 TO3FOR J=1TO3READA(I,I)PRINTA(I,J);NEXTJPRINTNEXTIENDDATA1,2,3,4,5,6,7,8,9結(jié)果為：在下面FOXBASE+程序中，要使程序繼續(xù)循環(huán)，變量K的輸入值應(yīng)為①WHIE.T.K=“Y”@10,10GETKREADIFUPPER(K)$“YN”EXITENDIFENDDO程序結(jié)束后K的值是 ^下列FOXBASE+程序SETTALKOFFDIMEM(2,3)I=1DOWHILE I<=2J=1DOWHILE J<=3M(I,J)=I*J??M(I,J)," "J=J+1ENDDO?I=I+1ENDDORETURN運行此程序的結(jié)果是6.閱讀下面程序，執(zhí)行程序后，S=SETTALKOFFN=10S=0.DOWHILEN>0S=S+NIFMOD(N,2)=0N=N+1ELSEN=N-2ENDIFENDDO12.閱讀程序?qū)懗鲞\行結(jié)果。*主程序MAIN.PRGSETTALKOFFSETPROCEDURETOPROA123PUBLICI,JI=1DOPROC1?”I="+STR(I,2)J=1K=1DOPROC2?”J="+STR(J,2)?”K="+STR(K,2)SETTALKONRETURN*子程序文件PROC123.PRGPROCEDUREPROC1I=I*2+1RETURNPROCEDUREPROC2PRIVATEJJ=I*2+1K=2*K+1DOPROC3RETURNPROCEDUREPROC3K=K*KRETURNMAIN.PRG運行結(jié)果是I=,J=,K=20.有程序段如下：STORE0TOX,YDOWHILE.T.X=X+1Y=Y+XIFX>=100EXITENDIFENDDO?”Y="+STR(Y,3)這個程序是計算的，執(zhí)行后的結(jié)果是 。執(zhí)行如下命令序列,USESTUDENT.LISTRecord#姓名學(xué)號年齡性別TOC\o"1-5"\h\z李紅098765 20男王菩123456 19男趙師345678 21女劉知863745 18男錢生374951 20女楊博903278 18女.INDEXON年齡TOSTU.FIND20.SKIP.DISP姓名最后一條命令顯示的學(xué)生姓名是 。有如下一段程序：INPUT”請輸入當(dāng)前日期:”TORQ?RQ+29在執(zhí)行本程序時，用戶應(yīng)當(dāng)輸入，顯示結(jié)果才是:12/27/98。有如下一段程序：SETSTATUSOFFSETCOLORTO/GCLEARX=79SETCOLORTO/RDOWHILEX>3