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

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

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

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

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

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

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

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

9、程 SELECT 4USE XSRX1JOIN WITH B TO XX FOR ；FIELDSSELECT 5USE XXLISTSET TALK ONRETURN* 下面是在“ KSDA.DBF “庫文件邏輯刪除已知準考證號學生的程序：SET TALK OFFACCEPT “輸入待刪除考生的準考證號：” TO NO USE KSDAIFDELETE ENDIF USE RETURN共有五個數據庫文件 stdl.dbfstd5.dbf, 下面程序的功能是刪除每個庫文件的末記錄。請填/ 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 設備名 GET 甲用戶數量READSKIPENDDO10,10 SAY 乙用戶 DO WHILE .NOT.EOF(11,10 SAY 設備名 READSKIPENDDOSET TALK ONUSERETURN有一學生庫 STUDENT.DBF ，結構為字段，姓名 (C,8

11、，英語 (N,2 ，數學 (N,2 ，獎學金 (L,1 ，程序功能為確定是否發給獎學金(獎學金為 .F.。若英語數學兩門功能都大于或等于90 分，則字段獎學金用 .T.替換，請對程序填空。SET TALK OFFCLEARUSE STUDENTDO WHILE .T.IF 英語 =90 .AND. 數學 =90ENDIFSKIPIF EOF(ENDIFENDDORETURN有三個數據庫文件 STUD1.DBF ，STUD2.DBF ， STUD3.DBF ，STUD1.DBF 庫結構為學 號(C,6 ，姓名 (姓名,8；STUD2.DBF 結構為學號 (C,6，系別 (C,10 ； STUD3

12、.DBF 結構為 姓名(C,6，成績(N,2，現用關聯方法顯示成績大于90 分的學生情況，并且用物理聯結方法產生一個完整的學生庫 STUD.DBF ，請在命令序列中填空。/ 34SELECT 1USE STUD1SELECT 2USE STUD2 ALIAS S2SELECT 3USE STUD3 ALIAS S3INDEX ON 姓名 TO STRD3ISELECT 2INDEX ON 學號 TO STUD3ISELECT 1SET RELATION TOLIST 學號， S3-姓名， S3- 成績JOIN WITH S3 TO S13 FOR FEILDS 學號，姓名， S3- 成績SEL

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

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

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

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

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

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

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

20、有口令程序如下，請填空： SET TALK OFFCLEARDO WHILE .T. 5,20 SAY “請輸入口令：” SET CONSOLE OFFSET CONSOLE ONIF DATE (=PWEXITELSEWAIT “口令不對！按任意鍵重來”CLEARENDIFENDDOSET TALK ONCLEAR計算機等級測試的考生數據和測試成績分別放在兩個數據庫文件中。欲使用關聯方法 顯示兩個庫文件的有關數據，請對如下命令序列填空。SELECT 1USE STUDLISTRecord# 考生編號 姓名1 1002 張偉1004 吳紅 SELECT 2 USE STDCJ ALTAS TL

21、 LISTRecord# 考生編號1 1004 722 1002 67年齡 性別25 女30 男筆試成績 上機成績8592INDEX ON 考生編號 TO ABCSELECT 1/ 34LIST 考生編號，姓名，性別，Record# 考生編號1 1002 張偉2 1004 吳紅B-筆試成績， 姓名 女 男性別6772B- 上機成績B-筆試成績 B- 上機成績9223.計算機等級測試各考點均有數據庫文件 省市考區閱卷后建立成績數據庫文件 數據庫數據，請填空補齊命令。SELECT 185 KSCJ.DBF, 其中有關考生成績的字段值暫空。 ST.DBF 。下列程序是使用 ST.DBF 中的數據更新

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

23、成績 上機成績 合格否1 1011017 劉麗 23 女 101 60 40 .F.2 1011083 王友 28 男 101 90 60 .F.接上題，為了頒發合格證書，把KSCJ.DBF 數據庫中筆試成績和上機成績均及格( 大于等于 60 分 記錄的合格否字段值修改為邏輯真，然后顯示并打印該字段值為真的考生名 單。請對以下命令填空：USE KSCJREPLACE 合格否 WITH FOR LIST FOR TO USE有下列兩個程序，主程序是MAIN.PRG ，子程序是 SUBPRO.PRG 。執行主程序后，屏幕第 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 命令窗口執行下列命令，請填空。USE STCOUNT TO A ? A& 顯示為： 35GO TOPDELETE NEXT 5? RECCOUNT(SET DELETED ONCOUNT TO XY? XY & 顯示值 ? RECCOUNT( & 顯示值 計算機等級測試成績已錄入完畢，缺考者的記錄上均已打上刪除標記“* ”。為計算實

25、際參加測試者平均分，請在以下命令序列中填空。USE STUSET AVERAGE ALL 成績 TO AVG 計算機等級測試考生數據庫DJKS.DBF 。 筆試和上機成績已分別錄入其中的“筆試”和“上機”字段 (皆為 N 型中，此外另有“等級”字段 (C 型。凡兩次測試均達到 80分以 上者，應在等級字段中填入“優秀”。編程如下，請填空。SET TALK OFFUSE DJKSDO WHILE .NOT.EOF(IF 筆試 =80.AND. 上機 =80ENDIFSKIPENDDOUSESET TALK ON有學生數據庫 STUDENT.DBF ，其中編號 /N/2 字段的值從開始連續排列。欲

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

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

28、，并將計算結果填入稅金字段(假定職工最高實發工資為 2500 元，請填空。* 主程序 MAIN.PRG*SET TALK OFFTAX=0USE GZ/ 34DO WHILE .NOT.EOF(SHFGZ= 實發工資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設有圖書數據庫 TSH ，包括字段 (總編號，分類號，書名，作者，出版單位，單價 ；讀者數據庫 DZH( 借書證號，姓名，性別，單位，職稱，地址；借閱數據庫 JY( 借書證號，總編號，借閱日期，備注。下面程序的功能是打印已借書讀者的借書證號、姓名，單位，以及借閱圖書的書名、單價、借閱日期。請閱讀程序并填空。SET TALK OFFSELECT 1USE DZHINDEX ON 借書證號 TO DSHHSELECT 2USE TSHINDEX ON 總編號 TO SHHSELECT 3USE JYSET RELATION TO 借書證號 INTO ALIST TO PRINTCLOSE AL

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

31、 X70 END已知數組 M 中是從高分到低分排序的六個學生成績，現從鍵盤上再鍵入第七個學生的成績，要求將這個學生的成績自動插入數組 M 中， 并且保持數組中按高分到低分排序。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設數據庫 ABC 有一字段“姓名”，且以它為關鍵字索引( 索引文件 ABCX.IDX

32、。因某種誤操作，該數據庫有一些重復記錄。現編一命令文件進行查找并把重復記錄刪去。set talk offuse abc index abcxdo while / 34xm= 姓名 skip if dele endif enddoreturn六、程序填空 1根據右邊的運行結果完善程序： 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下列程序是把“偉大祖國”堅向顯示出來，并橫向顯示“祖國偉大”，請填空：SET TALK OFFSTORE “偉大祖國” TO XYCLEARN1DO WHILE N 8？SUBSTRN N 2END DO？ SUBSTRXY ， 1，4)RETIRM七、程序填空。 每空 2 分，共 30分)1有一個數據庫 STUDENT DBF ，其中有 C 型字段姓名，以下是一個按姓名查詢記錄的程序，若有，則輸入學生情況 同名的學生也能輸入)，否則不顯示任何信息。SET TALK OFFACCEPT 輸入查詢的姓名：“

34、 TOLOCATE/ 34ENDDOUSERETURN2設有一個學生成績庫 SOREDBF ，其中字段為：學號 C），姓名 C），語文 N）， 數學 N ），計算機 N ），總分 N ），平均分 N ）。下面程序實現計算機每個學生的總分 和分，并存儲在相應的字段中，然后逐條輸出總分前十名的學生記錄。SET TALK OFFUSE SCOR DBFREPLACE ALL 總分 WTTH 語文數學計算機REPLACE ALL 平均分 WTTHINDEX ON 總分 TO ZFI11DO WHILEDISPLAYI11ENDDOUSERETURN3下列程序用來實現對數據庫插入、刪除記錄的功能，請補充

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

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

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

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

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

40、 CLEAR？” 5！+7！+10！ =“+ALLTRIM(STR(JS(5+JS(7+JS(10RETURN/ 34FUNCTION & 定義自定義函數XS=FOR N=1 TO XXS=XS*NRETURNENDFUNC四、閱讀程序 ,寫出程序運行結果 （每小題 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程序執行的結果是對于職工工資數據庫 ZGGZ.DBF, 執行下面程序。 SET TALK OFF

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

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

43、.05楊東90.0現依次執行如下命令,試寫出程序運行結果Set talk offuse XSCJIndex on - 成績 To IXSCJ/ 34GO TOP? 成績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執行以上程序后 ,其運行結果為 四、閱讀程序，寫出程序運行結果 (每空 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 程序執行的結果是：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程序的功能是： 四、閱讀程序，寫出程序的執行結果。每輸出項 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 程序執行后所顯示的結果依次是： 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程序執行后所顯示的結果依次是：3、現有數據庫XSDQ. DBF ，其記錄內容如下：Record #班級別姓名性別年齡1A程小平女202A鄧金山男213A劉 剛男194B高大宣男225B習有蘭女20現依次執行如下命令，試寫出程序運行結果。USE XSDAINDEX ON STR 年

47、齡， 2 ) + 班級TO XSGO TOP？RECNO ），姓名GO BOTT？ RECNO ），姓名/ 34INDEX ON 姓別 + STR 30 年齡， 2) TO XSGO TOPSKIP 2？ RECNO )，姓名USE 8、輸出下列圖形，請把 QBASIC 程序補充完整。ABBBCCCCCDDDDDDDEEEEEEEEEKASC“A”)FOR I 1 TO 5FOR J 1 TOPRINT TAB6 I J)； CHR$)NEXT JKPRINTNEXT IEND、下列 QBASIC 程序是鍵入任意的三個數時，將按從大到小的順序輸出，請將程序 補充完整。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 程序運行后輸出的結果FOR I 1 TO 8Y 1FOR J 1 TO 10FOR K 1 TO 5X X1Y Y1NEXT KNEXT JNEXT I/ 34RPINT “ Y ”END結果為：2寫出下面 QBASIC 程序運行后輸出的結果 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 結果為：K 的輸入值應為 在下面 FOXBASE 程序中，要使程序繼續循環，變量 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. 閱讀程序寫出運行結果。* 主程序 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 運行結果是 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 這個程序是計算 的 ,執行后的結果是 2.執行如下命令序列.USE STUDENT.LIST Record# 姓 名 學號 年齡 性別1李 紅09876520 男2王 菩12345619 男3趙 師34567821 女4劉 知86374518 男5錢 生37495120 女6楊 博90327818 女.INDEX ON 年齡 TO STU.FIND 20.SKIP.DISP 姓名 最后一條命令顯示的學生姓名是 。有如下一段程序 :INPUT 請輸入當前日期 : TO RQ?RQ+29在執行本程序時，用戶應當輸入 ，顯示結果才是 :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(執行本程序的屏幕效果是 .15.有程序段如下 :STORE 0 TO X,YDO WHILE.T.