#VFP程序填空閱讀歷年考題

1、計(jì)算機(jī)專業(yè) VFP 程序填空與閱讀試卷匯編、程序填空 （每空 3 分，共 27分1.有一商場(chǎng)的商品銷售數(shù)據(jù)庫(kù)XS.DBF, 其記錄如下記錄號(hào) 商品名 單價(jià)數(shù)量 總價(jià)1電冰箱2000 360002彩 電1800 590003電冰箱2018 120184空調(diào)機(jī)1600 232005彩 電1900 23800下面程序用于分類統(tǒng)計(jì)各種商品總的銷售數(shù)量和總的銷售額（總價(jià) ,并計(jì)算出平均銷售單價(jià)。SET TALK OFFUSE XSINDE ON TO SY TO TJKUSE TJKREPL LISTUSESET TALK ON任意輸入兩個(gè)正整數(shù) X 和 Y,求 X 與 Y 的最小公倍數(shù)。SET TAL

2、K OFFINPUT X=TO XINPUT Y=TO YIF XYT=XX=YY=TENDIN=YDO WHILE NSET TALK ON現(xiàn)有一數(shù)據(jù)庫(kù) CJ.DBF,該數(shù)據(jù)庫(kù)文件中僅有一個(gè)數(shù)值型字段 數(shù)據(jù) ,且無(wú)記錄。要求鍵盤輸 入十個(gè)數(shù) ,將這些數(shù)保存到 CJ.DBF的數(shù)據(jù)字段中 ,并由大到小顯示出來(lái)。SET TALK OFF/ 34CLEAUSE CJK=1DO WHIL K + 數(shù)是: GET 數(shù)據(jù) READENDDINDE ON TO TMPLISTUSESET TALK ON二、程序填空 （每空 3分,共 18分男子 100M 短跑成績(jī)已錄入數(shù)據(jù)庫(kù) Male100.DBF, 現(xiàn)要

3、求將前 3 名運(yùn)動(dòng)員的成績(jī)轉(zhuǎn)入獲獎(jiǎng) 數(shù)據(jù)庫(kù) gainer.dbf 和 gainer.txt 文件中。閱讀下列程序 , 填寫空位處的代碼 ,使程序能正確有效 地實(shí)現(xiàn)上述要求。set Talk offclear14,20 say 請(qǐng)稍候 use Male100 on 成績(jī) D To tempuse TempCopy To gainer.dbfuse gainercopy to gainer.txt use14,20 say 操作完畢 !Return現(xiàn)有一戶籍?dāng)?shù)據(jù)庫(kù) People.DBF,存貯有該地區(qū)各位公民的檔案資料 ,現(xiàn)要求按 出生日期 字 段（日期型 ,以索引查詢方式 ,快速查找并顯示所有與指

4、定出生日期相同的記錄。Set Talk offSet Safe offClearuse peopleIndex On 出生日期 To IpeopleBorn= / / 14,20 Say 請(qǐng)輸入查詢的出生日期 : Get Bom picture ReadDo while .NOT.EOF( .AND. DisplaySkipEnddo/ 34useSet Talk onReturn三、程序填空 (每空 3 分，共 18分1、在人事檔案管理系統(tǒng)中，設(shè)有兩個(gè)數(shù)據(jù)庫(kù)：ZGQK.DBF( 編號(hào)，姓名，性別，職稱，部門名，基本工資 ZGGZ.DBF( 編號(hào)，資金，房租，實(shí)發(fā)工資 查詢并顯示實(shí)發(fā)工資 12

5、00 元以上的職工姓名及職稱，請(qǐng)將程序補(bǔ)充完整。 SET TALK OFFSELE 1USE ZGQKINDEXTO QKSELE 2USE ZGGZLOCA FOR 實(shí)發(fā)工資 1200IF FOUND( DO WHILE .NOT.EOF( DISPCONTENDDOENDIFCLOSE ALLSET TALK ON2、求 1 100 間能被 5整除的奇數(shù)個(gè)數(shù)及其和，請(qǐng)將程序被充完整。 SET TALK OFFCLEAI1S0M0DO WHILEIFM M1ENDIFII2？M，SENDOSET TALK ON四、程序填空題： 每空 3分，共計(jì) 24 分) 、顯示 1 到 100 之間既能被

6、 4 整除又能被 6 整除的整數(shù)。 set talk offn=1do whileifn=n+1/ 34Loopelse? n endiEndd2、向數(shù)據(jù)庫(kù)文件 TSK.DBF 中增添新記錄。 Set talk off Clear Use tskAn=YDo While An=Y10, 20say 書號(hào) GET書號(hào)11, 20say 書名 GET書名12, 20say 單價(jià) GET單價(jià)13, 20say 冊(cè)數(shù) GET冊(cè)數(shù)READWAIT “繼續(xù)嗎？ EnddUse3、通過(guò)光帶式菜單選擇并執(zhí)行子程序，其菜單和子程序名稱分別為：數(shù)據(jù)錄入PG1-1.PRG）、數(shù)據(jù)查詢 PG2-2. PRG）、統(tǒng)計(jì)報(bào)

7、表 PG3-3. PRG）、退出系統(tǒng)，共四項(xiàng)。SET TALK OFFDO WHILE .TXSRX.DBF 、本學(xué)期學(xué)生成績(jī)庫(kù) XSCJ.DBF 和教師CLEAR 10 ，26SAY“1. 數(shù)據(jù)錄入” 11 ，26SAY“2. 數(shù)據(jù)查詢” 12 ，26SAY“. 統(tǒng)計(jì)報(bào)表” 13 ，26SAY“4. 退出系統(tǒng)”TO KEXITENDI DO &FN ENDDO4、三個(gè)數(shù)據(jù)庫(kù)文件；學(xué)生入學(xué)情況庫(kù)情況庫(kù) JXK.DBF ，和數(shù)據(jù)庫(kù)內(nèi)容如下USE XSRXLIST OFF姓名 班級(jí)保送生張紅2.T.李明4.T.王軍2.F.趙波2.T.USE XSCJLIST OFF/ 34姓名數(shù)學(xué)英語(yǔ)計(jì)算機(jī)張紅8

8、99287李明809767王軍257880趙波906791USE JSKLIST OFF任課教師年齡班級(jí) 課程陳352數(shù)學(xué)李404物理孫384英語(yǔ)王293計(jì)算機(jī)下面的程序是生成一個(gè)新數(shù)據(jù)庫(kù)文件 XX.DBF, 此數(shù)據(jù)庫(kù)文件包括四個(gè)字段:姓名、班級(jí)、任課教師、課程，記錄是入學(xué)時(shí)為保送生并且本學(xué)期英語(yǔ)成績(jī)?cè)?0 分以上 包括 90分）的全部學(xué)生。請(qǐng)用正確的語(yǔ)句填空：SET TALK OFF CLEAR SELECT 3 USE JSK SELECT 2 USE XSCJ SELECT 1 USE XSRX JOIN WITH C TO XSRX1 FOR 。 FIELDS 姓名，班級(jí)，任課教師，課

9、程 SELECT 4USE XSRX1JOIN WITH B TO XX FOR ；FIELDSSELECT 5USE XXLISTSET TALK ONRETURN* 下面是在“ KSDA.DBF “庫(kù)文件邏輯刪除已知準(zhǔn)考證號(hào)學(xué)生的程序：SET TALK OFFACCEPT “輸入待刪除考生的準(zhǔn)考證號(hào)：” TO NO USE KSDAIFDELETE ENDIF USE RETURN共有五個(gè)數(shù)據(jù)庫(kù)文件 stdl.dbfstd5.dbf, 下面程序的功能是刪除每個(gè)庫(kù)文件的末記錄。請(qǐng)?zhí)? 34 空。N=lDO WHILE NK=1IF L 0RETURNENDIFDO WHILE K=L 10,

10、K SAY K= ENDDORETURN分析程序，顯示的值 A= ,B= 主程序 MAIN.PRGSET TALK OFFPUBLIC ASTORE 5 TO A,BDO SRB WITH A+B,A,B? A,BRETURN* 子程序 SRB.PRGPARAMETERS X,Y ,ZDO WHILE Z11,10 SAY 設(shè)備名 GET 甲用戶數(shù)量READSKIPENDDO10,10 SAY 乙用戶 DO WHILE .NOT.EOF(11,10 SAY 設(shè)備名 READSKIPENDDOSET TALK ONUSERETURN有一學(xué)生庫(kù) STUDENT.DBF ，結(jié)構(gòu)為字段，姓名 (C,8

11、，英語(yǔ) (N,2 ，數(shù)學(xué) (N,2 ，獎(jiǎng)學(xué)金 (L,1 ，程序功能為確定是否發(fā)給獎(jiǎng)學(xué)金(獎(jiǎng)學(xué)金為 .F.。若英語(yǔ)數(shù)學(xué)兩門功能都大于或等于90 分，則字段獎(jiǎng)學(xué)金用 .T.替換，請(qǐng)對(duì)程序填空。SET TALK OFFCLEARUSE STUDENTDO WHILE .T.IF 英語(yǔ) =90 .AND. 數(shù)學(xué) =90ENDIFSKIPIF EOF(ENDIFENDDORETURN有三個(gè)數(shù)據(jù)庫(kù)文件 STUD1.DBF ，STUD2.DBF ， STUD3.DBF ，STUD1.DBF 庫(kù)結(jié)構(gòu)為學(xué) 號(hào)(C,6 ，姓名 (姓名,8；STUD2.DBF 結(jié)構(gòu)為學(xué)號(hào) (C,6，系別 (C,10 ； STUD3

12、.DBF 結(jié)構(gòu)為 姓名(C,6，成績(jī)(N,2，現(xiàn)用關(guān)聯(lián)方法顯示成績(jī)大于90 分的學(xué)生情況，并且用物理聯(lián)結(jié)方法產(chǎn)生一個(gè)完整的學(xué)生庫(kù) STUD.DBF ，請(qǐng)?jiān)诿钚蛄兄刑羁铡? 34SELECT 1USE STUD1SELECT 2USE STUD2 ALIAS S2SELECT 3USE STUD3 ALIAS S3INDEX ON 姓名 TO STRD3ISELECT 2INDEX ON 學(xué)號(hào) TO STUD3ISELECT 1SET RELATION TOLIST 學(xué)號(hào)， S3-姓名， S3- 成績(jī)JOIN WITH S3 TO S13 FOR FEILDS 學(xué)號(hào)，姓名， S3- 成績(jī)SEL

13、ECT 4USE S13INDEX ON 學(xué)號(hào) TO S13ISELECT 2JOIN WITH S13 TO S123 FOR 學(xué)號(hào) =D- 學(xué)號(hào) FIELD USE S123LIST下 面 程 序 的 功 能 是 根 據(jù) 銷 售 數(shù) 據(jù) 文 件 SALE.DBF 中 的 數(shù) 據(jù) 去 修 改 庫(kù) 文 件 INVENTRY.DBF 數(shù)據(jù) ,請(qǐng)對(duì)程序填空 :SELECT 1USE INVENTRYSELECT 2USE SALEDO WHILE SELECT 1LOCA TE FOR 商品名 =B- 商品名REPLACE 數(shù)量 WITH B- 數(shù)量 , 總金額 WITH 單價(jià) * 數(shù)量 SELE

14、CT 2ENDDOCLOSE DATABASE有計(jì)算機(jī)等級(jí)測(cè)試的筆試測(cè)試數(shù)據(jù)庫(kù) bsh.dbf 和上機(jī)測(cè)試數(shù)據(jù)庫(kù) shj.dbf, 其內(nèi)容分別如 下:筆試數(shù)據(jù)庫(kù) bsh.dbf 上機(jī)測(cè)試數(shù)據(jù)庫(kù) shj.dbfRecord# 姓名 筆試成績(jī) Record# 姓名 上機(jī)成績(jī)1 歐陽(yáng)惠87 1吳明友672 陳冬梅772楊紅873 吳明友943歐陽(yáng)惠944 楊紅604李霞835 李霞685陳冬梅751 首先執(zhí)行以下命令序列/ 34SELECT 2USE shjSELECT 1USE bshSET RELATION TO RECNO INTO bLOCATE FOR 筆試成績(jī) 仍然使用上面的計(jì)算機(jī)等級(jí)測(cè)

15、試的筆試測(cè)試數(shù)據(jù)庫(kù)bsh.dbf 和上機(jī)測(cè)試數(shù)據(jù)庫(kù)執(zhí)行以下程序SELECT 2USE shjSELECT 1USE bshJ0IN WITH b TO ks FOR 姓名 =b- 姓名 CLEARUSE ksDO WHILE.N0T.E0FN=1I=0J=0DO WHILE NI=I+ 筆試成績(jī)J=J+ 上機(jī)成績(jī)N=N+ISKIPENDDO? 總成績(jī) =+STR(I+JENDDO執(zhí)行程序后 ,顯示的第一個(gè)總成績(jī)是 3接著繼續(xù)執(zhí)行以下程序CLEARSET DELETED ONUSE KSINDEX ON 筆試成績(jī) + 上機(jī)成績(jī) TOCOUNT TO SGOTO TOPSKIPDELETE NEX

16、T S-2COPY TO QAZUSE AQZFIELDS 姓名 ,筆試成績(jī) ,上機(jī)成績(jī),第二個(gè)總成績(jī)是 ABC/ 34LIST最后顯示的第一條記錄的姓名是 , 第二條記錄的姓名是 在下列數(shù)據(jù)記錄修改程序中 ( 屏幕格式文件 ST.FMT 已建立 填空。 SET TALK OFFUSE STUDENTSET FORMAT TO STDO WHILE .T.ACCEPT 請(qǐng)輸入學(xué)生姓名： TO NAMELOCATE FOR 姓名 =NAMEIF EOF( ? 查無(wú)此人！ELSECLEARENDIFWAIT 是否繼續(xù) ?(Y/N TO GOONIF GOON=YCLEARLOOPELSEEXITE

17、NDIFENDDOSET FORMAT TOUSESET TALK ONRETURN下列程序的功能是通過(guò)字符串變量操作豎向顯示“刻苦學(xué)習(xí)”，橫向顯示“學(xué)習(xí)刻苦”，請(qǐng)?zhí)羁?。SET TALK OFFSTORE “刻苦學(xué)習(xí)” TO XYCLEARN=1DO WHILE NN=N+2ENDDO? SUBSTR(XY ,1,4RETURN執(zhí)行以下命令序列：USE STUDLISTRecord# 姓名 性別 年齡/ 341歐陽(yáng)惠女 232李明男213楊霞女244郭昊男235吳友男256何文強(qiáng)男27INDEX ON 年齡 TO AGESET INDEX TO AGESEEK 23? 姓名，年齡歐陽(yáng)惠 23S

18、KIP 2? 姓名，年齡最后一條 ?命令的顯示內(nèi)容為 有如下程序：STORE 0 TO N,SDO WHILE .T.N=N+1S=S+NIF N10EXITENDIFENDDO? S=+STR(S,2本程序運(yùn)行結(jié)果是 。有計(jì)算機(jī)等級(jí)測(cè)試考生數(shù)據(jù)庫(kù)STD.DBF 和合格考生數(shù)據(jù)庫(kù)文件 HG.DBF ，這兩個(gè)庫(kù)的結(jié)構(gòu)相同。為了頒發(fā)合格證書并備案，把 STD 數(shù)據(jù)庫(kù)中筆試成績(jī)和上機(jī)成績(jī)均及格記錄 的合格否字段修改為邏輯真，然后再將合格的記錄追加到合格考生數(shù)據(jù)庫(kù) HG.DBF 中。請(qǐng)對(duì)以下操作填空。.USE STD.LISTRecord# 準(zhǔn)考證號(hào) 姓名 性別 筆試成績(jī) 上機(jī)成績(jī) 合格否1 1100

19、1 梁小冬女7080.F.211005林旭男9578.F.311017王平男6040.F.411083吳大鵬男9060.F.511108楊妃紅女5867.F.REPLACE _FOR筆試成績(jī)=60.AND.上機(jī)成績(jī) =60.USE HG.APPEND FROM STD FOR .LIST.USE有如下程序段，其功能是將漢字信息 全國(guó)計(jì)算機(jī)等級(jí)測(cè)試 從屏幕底部移至頂部 ，請(qǐng)?zhí)羁?/ 34SET TALK OFFSET STATUS OFFX= 全國(guó)計(jì)算機(jī)等級(jí)測(cè)試 CLEARK=23DO WHILE K0 K,26 SAY SPACE(34 ,26 SAY XP=INKEY(1K=K-1ENDDO

20、有口令程序如下，請(qǐng)?zhí)羁眨?SET TALK OFFCLEARDO WHILE .T. 5,20 SAY “請(qǐng)輸入口令：” SET CONSOLE OFFSET CONSOLE ONIF DATE (=PWEXITELSEWAIT “口令不對(duì)！按任意鍵重來(lái)”CLEARENDIFENDDOSET TALK ONCLEAR計(jì)算機(jī)等級(jí)測(cè)試的考生數(shù)據(jù)和測(cè)試成績(jī)分別放在兩個(gè)數(shù)據(jù)庫(kù)文件中。欲使用關(guān)聯(lián)方法 顯示兩個(gè)庫(kù)文件的有關(guān)數(shù)據(jù)，請(qǐng)對(duì)如下命令序列填空。SELECT 1USE STUDLISTRecord# 考生編號(hào) 姓名1 1002 張偉1004 吳紅 SELECT 2 USE STDCJ ALTAS TL

21、 LISTRecord# 考生編號(hào)1 1004 722 1002 67年齡 性別25 女30 男筆試成績(jī) 上機(jī)成績(jī)8592INDEX ON 考生編號(hào) TO ABCSELECT 1/ 34LIST 考生編號(hào)，姓名，性別，Record# 考生編號(hào)1 1002 張偉2 1004 吳紅B-筆試成績(jī)， 姓名 女 男性別6772B- 上機(jī)成績(jī)B-筆試成績(jī) B- 上機(jī)成績(jī)9223.計(jì)算機(jī)等級(jí)測(cè)試各考點(diǎn)均有數(shù)據(jù)庫(kù)文件 省市考區(qū)閱卷后建立成績(jī)數(shù)據(jù)庫(kù)文件 數(shù)據(jù)庫(kù)數(shù)據(jù)，請(qǐng)?zhí)羁昭a(bǔ)齊命令。SELECT 185 KSCJ.DBF, 其中有關(guān)考生成績(jī)的字段值暫空。 ST.DBF 。下列程序是使用 ST.DBF 中的數(shù)據(jù)更新

22、考生USE KSCJLISTRecord# 準(zhǔn)考證號(hào) 姓名 年齡 性別 班號(hào) 筆試成績(jī) 上機(jī)成績(jī) 合格否1 1011017 劉麗 23 女 101 .F.2 1011083 王友 28 男 101 .F.INDEX ON 準(zhǔn)考證號(hào) TO AINDSELECT 2USE STLISTRecord# 準(zhǔn)考證號(hào)筆試成績(jī)上機(jī)成績(jī)1 1011083 90 602 1011017 60 40INDEX ON 準(zhǔn)考證號(hào) TO BINDSELECT 1UPDATE ON 準(zhǔn)考證號(hào) 筆試成績(jī) WITH B- 筆試成績(jī)，上機(jī)成績(jī) WITH B-上機(jī)成績(jī)LISTRecord# 準(zhǔn)考證號(hào) 姓名 年齡 性別 班號(hào) 筆試

23、成績(jī) 上機(jī)成績(jī) 合格否1 1011017 劉麗 23 女 101 60 40 .F.2 1011083 王友 28 男 101 90 60 .F.接上題，為了頒發(fā)合格證書，把KSCJ.DBF 數(shù)據(jù)庫(kù)中筆試成績(jī)和上機(jī)成績(jī)均及格( 大于等于 60 分 記錄的合格否字段值修改為邏輯真，然后顯示并打印該字段值為真的考生名 單。請(qǐng)對(duì)以下命令填空：USE KSCJREPLACE 合格否 WITH FOR LIST FOR TO USE有下列兩個(gè)程序，主程序是MAIN.PRG ，子程序是 SUBPRO.PRG 。執(zhí)行主程序后，屏幕第 5 行顯示信息 ，屏幕第 6 行顯示信息 。* MAIN.PRGSET T

24、ALK OFFCLEARP=10Q=10DO WUBPRO WITH P/ 34 6,6 SAY “ Q=” +STR(Q,2CANCEL* SUBPRO.PRGPARAMETERS QQ=20 5,6 SAY “ Q=” +STR(Q,2RETURN 在 VFP 命令窗口執(zhí)行下列命令，請(qǐng)?zhí)羁?。USE STCOUNT TO A ? A& 顯示為： 35GO TOPDELETE NEXT 5? RECCOUNT(SET DELETED ONCOUNT TO XY? XY & 顯示值 ? RECCOUNT( & 顯示值 計(jì)算機(jī)等級(jí)測(cè)試成績(jī)已錄入完畢，缺考者的記錄上均已打上刪除標(biāo)記“* ”。為計(jì)算實(shí)

25、際參加測(cè)試者平均分，請(qǐng)?jiān)谝韵旅钚蛄兄刑羁?。USE STUSET AVERAGE ALL 成績(jī) TO AVG 計(jì)算機(jī)等級(jí)測(cè)試考生數(shù)據(jù)庫(kù)DJKS.DBF 。 筆試和上機(jī)成績(jī)已分別錄入其中的“筆試”和“上機(jī)”字段 (皆為 N 型中，此外另有“等級(jí)”字段 (C 型。凡兩次測(cè)試均達(dá)到 80分以 上者，應(yīng)在等級(jí)字段中填入“優(yōu)秀”。編程如下，請(qǐng)?zhí)羁铡ET TALK OFFUSE DJKSDO WHILE .NOT.EOF(IF 筆試 =80.AND. 上機(jī) =80ENDIFSKIPENDDOUSESET TALK ON有學(xué)生數(shù)據(jù)庫(kù) STUDENT.DBF ，其中編號(hào) /N/2 字段的值從開(kāi)始連續(xù)排列。欲

26、按編號(hào)的1、9、17、25規(guī)律抽取學(xué)生參加比賽，并在屏幕上顯示參賽學(xué)生的編號(hào)，請(qǐng)?zhí)羁?。SET TALK OFFUSE STUDENTDO WHILT .NOT.EOF(IF INT? 編號(hào)ENDIF/ 34SKIPENDDOUSESET TALK ON計(jì)算機(jī)等級(jí)測(cè)試的查分程序如下，請(qǐng)?zhí)羁?。SET TALK OFFUSE DJKS INDEX DSACCEPT “請(qǐng)輸入準(zhǔn)考證號(hào)：” TO KHFIND 下面的程序是將“中華人民共和國(guó)”顯示為“中華 人 民 共 和 國(guó)”，請(qǐng)?zhí)羁?。SET TALK OFFCLEARX= 中華人民共和國(guó) Y= DO WHILE LEN(X=Y=Y+SUBSTR(X,1

27、,2+ X=SUBSTR(X,3ENDDO?RETURN有程序如下，基功能是將硬盤上若干個(gè)班(小于 10 的成績(jī)數(shù)據(jù)文件復(fù)制到 A 盤上。數(shù)據(jù)庫(kù)文件名分 別 FIL1.DBF,FIL2.DBF 等，備份 文件名前面冠以年號(hào) ，例 如 97BFIL1.DBF,97BFIL2.DBF 等。在 C 盤上運(yùn)行該程序，請(qǐng)?zhí)羁?。SET TALK OFFCLEARACCEPT 請(qǐng)輸入年號(hào)： TO NH & 兩位數(shù)字年號(hào)INPUT 班級(jí)個(gè)數(shù)： TO NI=1DO WHILE IBDBN=USE &DBNCOPY TO I=I+1ENDDOUSESET TALK ONRETURN下面是按實(shí)發(fā)工資計(jì)算機(jī)稅金的程序

28、，并將計(jì)算結(jié)果填入稅金字段(假定職工最高實(shí)發(fā)工資為 2500 元，請(qǐng)?zhí)羁铡? 主程序 MAIN.PRG*SET TALK OFFTAX=0USE GZ/ 34DO WHILE .NOT.EOF(SHFGZ= 實(shí)發(fā)工資DO SUB?TAXREPLACE 稅金 WITH TAXENDDOUSECANCEL* 子程序 SUB.PRG*X=0DO CASECASE A=800 .AND. A,1300X=(A-800*0.05CASE A=1300 .AND. A=1800 .AND. A=2300B=A-2300X=B*0.2+500*0.15+500*0.1+500*0.05ENDCASERETU

29、RN設(shè)有圖書數(shù)據(jù)庫(kù) TSH ，包括字段 (總編號(hào)，分類號(hào)，書名，作者，出版單位，單價(jià) ；讀者數(shù)據(jù)庫(kù) DZH( 借書證號(hào)，姓名，性別，單位，職稱，地址；借閱數(shù)據(jù)庫(kù) JY( 借書證號(hào)，總編號(hào)，借閱日期，備注。下面程序的功能是打印已借書讀者的借書證號(hào)、姓名，單位，以及借閱圖書的書名、單價(jià)、借閱日期。請(qǐng)閱讀程序并填空。SET TALK OFFSELECT 1USE DZHINDEX ON 借書證號(hào) TO DSHHSELECT 2USE TSHINDEX ON 總編號(hào) TO SHHSELECT 3USE JYSET RELATION TO 借書證號(hào) INTO ALIST TO PRINTCLOSE AL

30、LRETURN/ 3435 、設(shè)數(shù)據(jù)庫(kù) ABC 有一字段“姓名”，且以它為關(guān)鍵字索引( 索引文件 ABCX.IDX 。因某種誤操作，該數(shù)據(jù)庫(kù)有一些重復(fù)記錄。現(xiàn)編一命令文件進(jìn)行查找并把重復(fù)記錄刪去。set talk offuse abc index abcxdo while xm= 姓名skipifdeleteendifenddoreturn五、程序填空本程序求 3 到 100 之間的素?cái)?shù)。若數(shù) X 不能被 2 到 x 取整加 1 范圍內(nèi)的任一整數(shù)整 除，則 x 為素?cái)?shù)。10 FOR X=3 TO 10020 FOR Y=30 IF THEN 40 NEXT Y50 PRINT X60 NEXT

31、 X70 END已知數(shù)組 M 中是從高分到低分排序的六個(gè)學(xué)生成績(jī)，現(xiàn)從鍵盤上再鍵入第七個(gè)學(xué)生的成績(jī)，要求將這個(gè)學(xué)生的成績(jī)自動(dòng)插入數(shù)組 M 中， 并且保持?jǐn)?shù)組中按高分到低分排序。10 DIM 20 FOR K=1 TO 6: READ M(K30 NEXT K40 DATA 96,94,88,80,75,6350 INPUT X60 FOR K=1 TO 670 IF THEN 9080 NEXT K90 T=K100 FOR K=6 TO STEP -1110 120 NEXT K130 M(T= 。 END設(shè)數(shù)據(jù)庫(kù) ABC 有一字段“姓名”，且以它為關(guān)鍵字索引( 索引文件 ABCX.IDX

32、。因某種誤操作，該數(shù)據(jù)庫(kù)有一些重復(fù)記錄。現(xiàn)編一命令文件進(jìn)行查找并把重復(fù)記錄刪去。set talk offuse abc index abcxdo while / 34xm= 姓名 skip if dele endif enddoreturn六、程序填空 1根據(jù)右邊的運(yùn)行結(jié)果完善程序： SET TALK OFFCLEARx1DO WHILE1 ) 1？ STR 2) 2 4J 13)3 69DO WHILE4)48 1216？ STR1*J ，4)5) 5101520 25JJ16)6 1218243036END DO7)7 1421283542 49？8)8 1624324048 56 649

33、) 9 1827364554 637281END DOSET TALK ONRETUEN2下列程序是把“偉大祖國(guó)”堅(jiān)向顯示出來(lái)，并橫向顯示“祖國(guó)偉大”，請(qǐng)?zhí)羁眨篠ET TALK OFFSTORE “偉大祖國(guó)” TO XYCLEARN1DO WHILE N 8？SUBSTRN N 2END DO？ SUBSTRXY ， 1，4)RETIRM七、程序填空。 每空 2 分，共 30分)1有一個(gè)數(shù)據(jù)庫(kù) STUDENT DBF ，其中有 C 型字段姓名，以下是一個(gè)按姓名查詢記錄的程序，若有，則輸入學(xué)生情況 同名的學(xué)生也能輸入)，否則不顯示任何信息。SET TALK OFFACCEPT 輸入查詢的姓名：“

34、 TOLOCATE/ 34ENDDOUSERETURN2設(shè)有一個(gè)學(xué)生成績(jī)庫(kù) SOREDBF ，其中字段為：學(xué)號(hào) C），姓名 C），語(yǔ)文 N）， 數(shù)學(xué) N ），計(jì)算機(jī) N ），總分 N ），平均分 N ）。下面程序?qū)崿F(xiàn)計(jì)算機(jī)每個(gè)學(xué)生的總分 和分，并存儲(chǔ)在相應(yīng)的字段中，然后逐條輸出總分前十名的學(xué)生記錄。SET TALK OFFUSE SCOR DBFREPLACE ALL 總分 WTTH 語(yǔ)文數(shù)學(xué)計(jì)算機(jī)REPLACE ALL 平均分 WTTHINDEX ON 總分 TO ZFI11DO WHILEDISPLAYI11ENDDOUSERETURN3下列程序用來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)插入、刪除記錄的功能，請(qǐng)補(bǔ)充

35、完整。CLEARACCEIP “請(qǐng)輸入數(shù)據(jù)庫(kù)文件名” TO FILEAMEDO WHILE T ？1 插入記錄？2 刪除記錄？3 退 出WAIT 請(qǐng)輸入你的選擇 TO CHOICEDO CASECASE CHOICE 1 INPUT 輸入需要插入的記錄號(hào)： TO NGOTO NCASE CHOICE 2INPUT 輸入需要?jiǎng)h除的記錄號(hào)： TO NGOTO NDEKETECASE CHOICE 3ENDCASEENDDOUSERETURN4設(shè)貨物庫(kù)文件 GOODS DBF 中包括有：貨號(hào)、貨名、單價(jià)等字段，營(yíng)業(yè)員庫(kù)EMPLOY 、EEDBF 包括營(yíng)業(yè)員代碼、姓名、性別等字段；銷售庫(kù)SALE DE

36、F 中包含有營(yíng)業(yè)員代碼、貨號(hào)、貨名、單價(jià)、售出日期、姓名等。閱讀下面程序，將程序補(bǔ)充完整。SELECT1USE GOODS/ 34INDEX ON 貨號(hào) TO HHSELECT 2USE EMPLOYEEINDEX ON 營(yíng)業(yè)員代碼 TO DMSELECT 3USE SALESET RELATLON TO 貨號(hào) INTO CLOSE ALLRETURN八、 程序填空題 5,10 SAY “請(qǐng)輸入一個(gè)字符串 : ” GET RSREADST=”FOR I=1 TO LEN(ALLTRIM(RSIF ST=ST+XENDIFENDFOR?”原字符串為 :”+RS?”新字符串為 :”+STRETU2

37、 下面為核對(duì)口令的程序段，口令最多輸入三次，請(qǐng)閱讀并填空。Set talk offSet device to screenSet escape offCleaI=1Do while .T.3,2 say “ 請(qǐng)輸入口令 ”set console offaccept to passif upper(pass=” OK”do main.prgelsewait “第” +str(I,1+ ”次輸入有錯(cuò)”if I=3 4,10 say space(60endifI=I+1/ 34enddo set talk onreturn在 JSDA?DBF 中查找用戶輸入的編號(hào) 個(gè)說(shuō)明信息。請(qǐng)完成如下程序：，如果

38、查找成功，顯示教師的職稱，否則，顯示CLEARUSE C ： JSGLJSDA “請(qǐng)輸入教師的編號(hào) :” TO BHLOCATE FOR 編號(hào) = =BHIFDO CASECASE職稱=WAIT高級(jí)教師”“該教師是高級(jí)教師”WINDOWAT1550TIMEOUTCASE職稱=WAITCASE職稱=一級(jí)教師”“該教師是一級(jí)教師”二級(jí)教師”WINDOWAT1550TIMEOUTWAITWAIT該教師是二級(jí)教師” 該編號(hào)不存在” WINDOWWINDOWAT 15 ， 50AT1550TIMEOUTTIMEOUT 1ENDIFUSERETURN* 注 : AT m,n 在 VisualFoxPro

39、中，指定信息窗口在屏幕上的位置2、在 JSDA.DBF 表中查找用戶指定的編號(hào)。如果查找成功，顯示找到的記錄，否則，顯示 一條說(shuō)明信息。請(qǐng)完成如下程序。USE JSDA.DBFDO WHILE .T.CLEARACCEPT ”請(qǐng)輸入編號(hào)：” TO BHLOCATE FORIF FOUND( DISPLAYELSEWAIT ”不存在該編號(hào)” WINDOW TLMEOUT 1WAIL ”是否繼續(xù)查找？ (Y/N ” TO ANSWER WINDOWIF UPPER(ANSWER ” Y ”ENDIFENDIFENDDOUSERETURN4、使用自定義函數(shù)計(jì)算 5！ =7！+10！。請(qǐng)完成如下程序。

40、 CLEAR？” 5！+7！+10！ =“+ALLTRIM(STR(JS(5+JS(7+JS(10RETURN/ 34FUNCTION & 定義自定義函數(shù)XS=FOR N=1 TO XXS=XS*NRETURNENDFUNC四、閱讀程序 ,寫出程序運(yùn)行結(jié)果 （每小題 6 分，18 共1.主程序 main.prg子程序 sub.prgset talk offpriv bpublic ab=5stor 2 to a,ba=2*ba=a+breturnb=a+b? a,bdo sub? a,breturn程序執(zhí)行的結(jié)果是對(duì)于職工工資數(shù)據(jù)庫(kù) ZGGZ.DBF, 執(zhí)行下面程序。 SET TALK OFF

41、USE ZGGZINDE ON 工資 TO GZSTOR 0 TO S,NGO TOPDO WHIL .NOT.EOF( DO CASECASE 性另 =男 S=S+ 工資CASE 職稱 = 項(xiàng)目師 N=N+1ENDCSKIPENDDUSESET TALK ON程序執(zhí)行后 ,變量 S 表示 變量 N 表示 。3.現(xiàn)有學(xué)生檔案數(shù)據(jù)庫(kù) XSDA.DBF, 其記錄如下 :記錄號(hào)姓名性別班級(jí) 團(tuán)員否1王紅女2T2張長(zhǎng)江男4T3黃一品男2T4高峰男1F5肖丹女1F/ 34趙婷婷 女2T張雅芝 女1T劉剛 男 2 F 執(zhí)行下面程序 : SET TALK OFFUSE XSDAINDE ON 班級(jí) TO B

42、JN=0K= 班級(jí)GO TOPDO WHILE .NOT.EOF( IF K 班級(jí)？ K， NENDIFNN1K班級(jí)SKIPENDDO？K，NUSESET TALK ON 程序執(zhí)行的結(jié)果是：五、閱讀程序 ,寫出程序運(yùn)行的結(jié)果。 (每空 3 分,共 18分1.* 主程序 main.prg * 子程序 sub.prgset Talk off public BA=7N=3B=5Do Sub ? A,Bprivate BB=10A=N2ReturnReturn 程序運(yùn)行結(jié)果為現(xiàn)有 XSCJ.DBF 數(shù)據(jù)庫(kù) ,其記錄內(nèi)容如下所示 記錄號(hào) # 姓名 成績(jī)1李梅78.52張燕89.53孫靜45.84李雪65

43、.05楊東90.0現(xiàn)依次執(zhí)行如下命令,試寫出程序運(yùn)行結(jié)果Set talk offuse XSCJIndex on - 成績(jī) To IXSCJ/ 34GO TOP? 成績(jī)skip 2? Recno(use set talk on Return 3.Set talk offSour=VisualBasic6N=2I=1S”Do while I=I/2N=N-3ElseN=N+6EndIFS=S+Substr(Sour,N,II=I+1Enddo ? S,N Set talk OnReturn執(zhí)行以上程序后 ,其運(yùn)行結(jié)果為 四、閱讀程序，寫出程序運(yùn)行結(jié)果 (每空 4 分，共 16 分 1、SET T

44、ALK OFFCLEAACCE “輸入密碼：” TO STRING?“破譯密碼：”I 1DO WHILE I IF CH A .AND.CH 32ELSEIF CH a .AND.CH 32ENDIFENDIF？ CHII1/ 34ENDDOSET TALK ON 輸入密碼： Aim 破譯密碼： 。2、 SET TALK OFFI 1DO WHILE I 3JIDO WHILE J CSET TALK ON 程序執(zhí)行的結(jié)果是：4、SET TALK OFFUSE DACOPY TO DA1COPY TO DA2 STRU EXTEUSE DA2APPE BLANLENREPL FIELD NAM

45、E WITH “出生日期”， FIELD TYPE WITH D， FILEDWITH 8CREA DA FROM DA2APPE FROM DA1SET TALK OF程序的功能是： 四、閱讀程序，寫出程序的執(zhí)行結(jié)果。每輸出項(xiàng) 4分，共 24 分。1、 SET TALK OFFCH = “？ + ？”DO WHILE N 2M = SUBSTR (CH,N +1,1X = 4 &M. NY = 2 &M. N? X &M . Y/ 34N = N+1ENDDORETURN 程序執(zhí)行后所顯示的結(jié)果依次是： 2、* 主程序： MALN.PRGSET TALK OFFSET PROC TO P12

46、3PUBLIC A, BSTORE 1 TO A,B,CDO P1 ? A = , ADO P2PROC? B = , ? C = , CLOSRETURN *P123.PRGPROC P1A=A*2+1RETUPROC P2PRIV CB=B*4+1C=C*2+1DO P3RETUPROC P3C=C*2+5RETU程序執(zhí)行后所顯示的結(jié)果依次是：3、現(xiàn)有數(shù)據(jù)庫(kù)XSDQ. DBF ，其記錄內(nèi)容如下：Record #班級(jí)別姓名性別年齡1A程小平女202A鄧金山男213A劉 剛男194B高大宣男225B習(xí)有蘭女20現(xiàn)依次執(zhí)行如下命令，試寫出程序運(yùn)行結(jié)果。USE XSDAINDEX ON STR 年

47、齡， 2 ) + 班級(jí)TO XSGO TOP？RECNO ），姓名GO BOTT？ RECNO ），姓名/ 34INDEX ON 姓別 + STR 30 年齡， 2) TO XSGO TOPSKIP 2？ RECNO )，姓名USE 8、輸出下列圖形，請(qǐng)把 QBASIC 程序補(bǔ)充完整。ABBBCCCCCDDDDDDDEEEEEEEEEKASC“A”)FOR I 1 TO 5FOR J 1 TOPRINT TAB6 I J)； CHR$)NEXT JKPRINTNEXT IEND、下列 QBASIC 程序是鍵入任意的三個(gè)數(shù)時(shí)，將按從大到小的順序輸出，請(qǐng)將程序 補(bǔ)充完整。INPUT “A，B，C”

48、； A，B，CIF A B THENSWAP A ， BEND IFIF THENEND IFIF B C THENSWAP B， CEND IFPRINT A ， B ，CEND三、讀程序 每題 15 分)1 寫出下面 QBASIC 程序運(yùn)行后輸出的結(jié)果FOR I 1 TO 8Y 1FOR J 1 TO 10FOR K 1 TO 5X X1Y Y1NEXT KNEXT JNEXT I/ 34RPINT “ Y ”END結(jié)果為：2寫出下面 QBASIC 程序運(yùn)行后輸出的結(jié)果 CLSDIM A3 ，3)， B3 ， 3)FOR I 1 TO 3FOR J 1 TO 3READ AI ，I ) P

49、RINT AI ， J)；NEXT JPRINTNEXT IENDDATA 1 ，2， 3， 4，5，6，7， 8，9 結(jié)果為：K 的輸入值應(yīng)為 在下面 FOXBASE 程序中，要使程序繼續(xù)循環(huán)，變量 WHIE TK10， 10 GET KREADIF UPPERI 1DO WHILE I 2J1DO WHILE J 3MI ， J) I*J ? M0S=S+NIF MOD(N,2=0N=N+1ELSEN=N-2ENDIFENDDO? S=,S12. 閱讀程序?qū)懗鲞\(yùn)行結(jié)果。* 主程序 MAIN.PRGSET TALK OFFSET PROCEDURE TO PROA123PUBLIC I,JI

50、=1DO PROC1? I=+STR(I,2J=1K=1DO PROC2? J=+STR(J,2? K=+STR(K,2SET TALK ONRETURN* 子程序文件 PROC123.PRGPROCEDURE PROC1I=I*2+1RETURNPROCEDURE PROC2PRIVATE JJ=I*2+1K=2*K+1DO PROC3RETURNPROCEDURE PROC3K=K*KRETURNMAIN.PRG 運(yùn)行結(jié)果是 I= ，J= ，K= 20.有程序段如下 :STORE 0 TO X,YDO WHILE.T.X=X+1/ 34Y=Y+XIF X =100EXITENDIFENDD

51、O ?Y=+STR(Y,3 這個(gè)程序是計(jì)算 的 ,執(zhí)行后的結(jié)果是 2.執(zhí)行如下命令序列.USE STUDENT.LIST Record# 姓 名 學(xué)號(hào) 年齡 性別1李 紅09876520 男2王 菩12345619 男3趙 師34567821 女4劉 知86374518 男5錢 生37495120 女6楊 博90327818 女.INDEX ON 年齡 TO STU.FIND 20.SKIP.DISP 姓名 最后一條命令顯示的學(xué)生姓名是 。有如下一段程序 :INPUT 請(qǐng)輸入當(dāng)前日期 : TO RQ?RQ+29在執(zhí)行本程序時(shí)，用戶應(yīng)當(dāng)輸入 ，顯示結(jié)果才是 :12/27/98。有如下一段程序 :SET STATUS OFFSET COLOR TO/GCLEARX=79SET COLOR TO/RDO WHILE X 39 0,X TO 23,X CLEAR 0,79-X TO 23,79-X CLEARX=X-0.2ENDDO(執(zhí)行本程序的屏幕效果是 .15.有程序段如下 :STORE 0 TO X,YDO WHILE.T.