VF程序設(shè)計(jì)復(fù)習(xí)資料36頁(yè)

1、本復(fù)習(xí)資料內(nèi)所有參考答案皆屬于小小商店打印復(fù)印部所有,不得翻版低價(jià)出售06級(jí)別VF程序設(shè)計(jì)復(fù)習(xí)資料內(nèi)容：VF程序設(shè)計(jì)課后習(xí)題答案 歷年考試題(帶答案) 使用說(shuō)明：在資料中，所有答案均為直接在題目中給出，“&&”符號(hào)后的內(nèi)容為說(shuō)明，“*”后的內(nèi)容，為建立的文件。課后題答案主要給出考試重點(diǎn)內(nèi)容。另外，請(qǐng)同學(xué)們上機(jī)實(shí)踐以增強(qiáng)記憶。Visual FoxPro程序設(shè)計(jì)教程課后題答案說(shuō)明：僅重點(diǎn)部分設(shè)置答案第一章 數(shù)據(jù)庫(kù)系統(tǒng)基礎(chǔ)知識(shí)(P17)2.什么是數(shù)據(jù)庫(kù)、數(shù)據(jù)庫(kù)管理系統(tǒng)和數(shù)據(jù)庫(kù)系統(tǒng)?答:數(shù)據(jù)庫(kù)是在數(shù)據(jù)管理系統(tǒng)的集中控制下,按一定的組織方式儲(chǔ)存起來(lái)的、相互關(guān)聯(lián)的數(shù)據(jù)集合.數(shù)據(jù)庫(kù)(Date

2、base,DB)是數(shù)據(jù)庫(kù)系統(tǒng)中按一定法則儲(chǔ)存在外存儲(chǔ)器中的大批數(shù)據(jù).數(shù)據(jù)庫(kù)管理系統(tǒng)(Datebase Management System,DBMS)是系統(tǒng)軟件,用來(lái)對(duì)數(shù)據(jù)進(jìn)行同意的的控制和管理,從而有效減少數(shù)據(jù)冗余,實(shí)現(xiàn)數(shù)據(jù)共享,解決數(shù)據(jù)獨(dú)立性問(wèn)題,并提供統(tǒng)一的安全性和并發(fā)控制功能.數(shù)據(jù)庫(kù)系統(tǒng)其實(shí)就是數(shù)據(jù)庫(kù)應(yīng)用為基礎(chǔ)的計(jì)算機(jī)系統(tǒng),是把有關(guān)計(jì)算機(jī)硬件、軟件、數(shù)據(jù)和人員組合起來(lái)的擁護(hù)提供信息服務(wù)的系統(tǒng).5.實(shí)體之間的聯(lián)系有哪幾種,分別舉例說(shuō)明.答:1對(duì)1聯(lián)系,例:一個(gè)人有一個(gè)身份證,一個(gè)身份證也只有一個(gè)人可以使用.1對(duì)多聯(lián)系,例:一個(gè)班主任可以帶很多學(xué)生,一個(gè)學(xué)生只能有一個(gè)班主任.多對(duì)多聯(lián)系,例:

3、一個(gè)人可以去任何酒吧中的任意一個(gè),任意一個(gè)酒吧可以為任意多的人提供娛樂(lè)場(chǎng)地.6.數(shù)據(jù)庫(kù)有哪幾種常用的數(shù)據(jù)模型?Visual FoxPro屬于哪一類(lèi)?答:層次模型,網(wǎng)絡(luò)模型,關(guān)系模型.Visual FoxPro屬于關(guān)系模型.8.關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的3種基本關(guān)系運(yùn)算是什么?答:關(guān)系運(yùn)算有3種方式:選擇、投影、聯(lián)接.第二章 操作基礎(chǔ)(P33)3. Visual FoxPro有幾種操作凡是?各有什么特點(diǎn)?答:菜單操作方式 特點(diǎn):優(yōu)點(diǎn)是直觀易懂,擊鍵簡(jiǎn)單(主要是鼠標(biāo)單、雙擊),對(duì)于不熟悉Visual FoxPro命令、又沒(méi)有或不想花時(shí)間去學(xué)習(xí)它的最終用戶(hù)十分適合.不足是操作環(huán)節(jié)多,步驟繁瑣,因此速度慢,

4、效率低.命令操作方式 特點(diǎn):輸入命令完成操作比使用菜單和對(duì)話(huà)框速度更快,效率高,系統(tǒng)菜單不可能包含所有的功能,有些操作只能通過(guò)命令窗口輸入;必須熟練掌握Visual FoxPro命令,才能談的上開(kāi)發(fā)應(yīng)用程序.程序工作方式 特點(diǎn):為用戶(hù)提供更簡(jiǎn)潔的界面,達(dá)到操作目的.第三章 數(shù)據(jù)及其運(yùn)算(P55)2.字段變量與內(nèi)存變量有何區(qū)別?答:字段變量是隨表存取而存取,定義在表中的變量. 內(nèi)存變量是擁護(hù)在內(nèi)存中定義的,用來(lái)存放程序運(yùn)行中的中間結(jié)果和最終結(jié)果的變量,是進(jìn)行數(shù)據(jù)的傳遞和運(yùn)算的變量.4.求下列表達(dá)式的值.(1)LEN(DTOC(DATE()輸出結(jié)果:8(2)STUFF("現(xiàn)代教育中心&q

5、uot;,5,0,LEFT("技術(shù)中心",4)輸出結(jié)果:現(xiàn)代技術(shù)教育中心(3)VARTYPE(08/23/03)輸出結(jié)果:N(4)SPCACE(5)-SPACE(5)輸出結(jié)果:空白(5)"PRO"$"FoxPro" AND "100">"90"輸出結(jié)果:.F.5.針對(duì)學(xué)生表,寫(xiě)出下列條件:先制作學(xué)生表:學(xué)號(hào)姓名性別年齡是否少數(shù)民族出生日期入學(xué)成績(jī)001王*男20否1986/09/20560002李*女19否1987/06/30590003張*男20是1986/02/03610004趙*女2

6、2是1985/12/17620(1)入學(xué)成績(jī)大于600分的學(xué)生;LIST FOR 入學(xué)成績(jī)>600(2)年齡大于18歲但是小于25歲的學(xué)生; LIST FOR 年齡>18 AND 年齡<25(3)少數(shù)民族的男生 LIST FOR 是否少數(shù)民族="是" AND 性別="男"(4)在1985年1月1日至1983年12月31日之間出生的學(xué)生; LIST FOR YEAR(DATE()-YEAR(出生日期)>20 AND YEAR(DATE()-YEAR(出生;日期)<23 &&以2007年為例(5)入學(xué)成績(jī)?cè)?80

7、分以上的漢族女生. LIST FOR 入學(xué)成績(jī)>580 AND 是否少數(shù)民族="否" AND 性別="女"6.寫(xiě)出下列表達(dá)式.(1)求實(shí)數(shù)x的小數(shù)部分;x=3.1415926535897932384626? x-INT(x)(2)求自然數(shù)m的十位數(shù)字; m=125 n=INT(m) x=STR(&n) ? RIGHT(&x,2)(3)將實(shí)數(shù)x保留兩位小數(shù),第三位小數(shù)進(jìn)行四舍五入處理; x=3.1415926535897932384626 ? ROUND(x*3,2)(4)將c中的小寫(xiě)字母轉(zhuǎn)換成相應(yīng)的大寫(xiě)字母;CH2="c&

8、quot;CH1=CHR(ASC(ch2)-ASC("a")-ASC("A") ? CH1(5)判斷n是否偶數(shù). ? MOD(n,2), "如果結(jié)果為1,則n是奇數(shù),如果為0,則n是偶數(shù)"第四章 表的基本操作(P86)13.就學(xué)生表,寫(xiě)出實(shí)現(xiàn)下列操作的命令.(1)顯示第5號(hào)記錄; USE STUDENTS.DBFGO 5DISPLAY(2)顯示第5號(hào)至10號(hào)之間的全部記錄; USE STUDENTS.DBFGO 5 LIST NEXT 6(3)連續(xù)列出1980年以后出生的學(xué)生的姓名與出生年月; USE STUDENTS.DBFLIST

9、 姓名,出生年月 FOR YEAR(DATE()-YEAR(出生年月)<27&&以07年為當(dāng)前時(shí)間.(4)顯示在1985年1月1日至1983年12月31日之間出生的學(xué)生記錄; USE STUDENTS.DBF LIST 姓名,出生年月 FOR YEAR(DATE()-YEAR(出生年月)>22 AND; YEAR(DATE()-YEAR(出生年月)<24 &&以07年為當(dāng)前時(shí)間(5)在表的頂部增加一個(gè)新記錄 USE STUDENTS.DBF GO TOP INSERT BLANK BEFORE(6)修改最后一個(gè)記錄 USE STUDENTS.D

10、BF GO BOTT BROW(7)將16歲以下的少數(shù)民族學(xué)生成績(jī)提高20分; USE STUDENTS.DBF REPLACE ALL 入學(xué)成績(jī) WITH 入學(xué)成績(jī)+20 FOR 是否少數(shù)民族="是" AND YEAR(DATE()-YEAR(出生年月)<16(8)將學(xué)生表原樣復(fù)制為xsda.dbf,并物理刪除xsda.dbf中記錄號(hào)為偶數(shù)的記錄; USE STUDENTS.DBF COPY TO xsda.dbf USE xsda DELETE FOR MOD(RECNO(),2)=0 PACK(9)顯示入學(xué)成績(jī)前5名的記錄;USE STUDENTS.DBF SO

11、RT ON 入學(xué)成績(jī)/D TO CJ.dbf USE CJ.dbf LIST NEXT 5(10)統(tǒng)計(jì)1985年出生學(xué)生的人數(shù),并把它存在變量number中; USE STUDENTS.DBF COUNT FOR YEAR(DATE()-YEAR(出生年月)=22 TO number(11)分別求男女學(xué)生的平均年齡; USE STUDENTS.DBF AVER YEAR(DATE()-YEAR(出生年月) FOR 性別="男" TO x AVER YEAR(DATE()-YEAR(出生年月) FOR 性別="女" TO y ? "男生的平均年齡

12、為:"+STR(x,3)+"歲","女生的平均年齡為:"+STR(y,3)+;"歲"(12)查找并顯示第一位少數(shù)民族學(xué)生; USE STUDENTS.DBF INDEX ON 少數(shù)民族否 TO sy1 FOR 少數(shù)民族否="是" GO 1 DISPLAY(13)建立一個(gè)結(jié)構(gòu)符合索引文件,其中包括兩個(gè)索引:記錄以學(xué)號(hào)降序排列;記錄按出生年月升序排列; USE STUDENTS.DBF INDEX ON -學(xué)號(hào)+出生年月 TAG sy2(14)查詢(xún)年齡最小和最大的學(xué)生; USE STUDENTS.DBF LI

13、ST FOR MIN(出生年月) LIST FOR MAX(出生年月)(15)按性別對(duì)入學(xué)成績(jī)進(jìn)行匯總. USE STUDENTS.DBF INDEX ON 性別 TAG sy3 TOTAL ON 性別 TO HZ FIELDS 入學(xué)成績(jī)第六章 SQL語(yǔ)言的應(yīng)用（P114）2利用第5章習(xí)題 中給出的訂貨管理數(shù)據(jù)庫(kù)和記錄實(shí)例，用SQL語(yǔ)句完成下列操作：(1)列出在北京的供應(yīng)商名稱(chēng); USE 供應(yīng)商.dbfLIST FOR 地址=”北京”(2)列出發(fā)給供應(yīng)商S6的訂購(gòu)單號(hào); USE 訂購(gòu)單.dbf LIST 訂購(gòu)單號(hào) FOR 供應(yīng)商號(hào)=”S6”(3)列出職工E6發(fā)給供應(yīng)商S6的供應(yīng)商信息; USE

14、 訂購(gòu)單.dbf LIST 訂購(gòu)單號(hào),訂購(gòu)日期 FOR 職工號(hào)=”E6” AND 供應(yīng)商號(hào)=”S6”(4)列出向供應(yīng)商S3發(fā)過(guò)訂購(gòu)單的職工的職工號(hào)和倉(cāng)庫(kù)號(hào); SELECT a.職工號(hào),b.倉(cāng)庫(kù)號(hào) FROM 職工b,訂購(gòu)單a WHERE ;a.職工號(hào)=b.職工號(hào) AND b.供應(yīng)商號(hào)=”S3”(5)列出和職工E1、E3都有聯(lián)系的北京的供應(yīng)商信息; SELECT a.供應(yīng)商號(hào),b.供應(yīng)商名,地址 FROM 訂購(gòu)單a,供應(yīng)商b WHERE ;a.供應(yīng)商號(hào)=b.供應(yīng)商號(hào) AND a.職工號(hào)=”E1”,a.職工號(hào)=”E3”(6)列出與工資在1220元以下的職工沒(méi)有聯(lián)系的供應(yīng)商的名稱(chēng); SELECT a.

15、供應(yīng)商名 FROM 供應(yīng)商a,職工b,訂購(gòu)單c WHERE ;b.職工號(hào)=c.職工號(hào),c.供應(yīng)商號(hào)=a.供應(yīng)商號(hào) AND b.工資<1220(7)列出向供應(yīng)商S4發(fā)出訂購(gòu)單的倉(cāng)庫(kù)所在的城市; SELECT a.城市 FROM 倉(cāng)庫(kù)a,職工b,訂購(gòu)單c WHERE a.倉(cāng)庫(kù)號(hào)=b.倉(cāng)庫(kù)號(hào),;b.職工號(hào)=c.職工號(hào) AND c.供應(yīng)商號(hào)=”S4”(8)列出在上海工作并且向供應(yīng)商S6發(fā)出了訂購(gòu)單的職工號(hào); SELECT a.職工號(hào) FROM 職工a,倉(cāng)庫(kù)b,訂購(gòu)單c WHERE a.倉(cāng)庫(kù)號(hào)=b.倉(cāng)庫(kù)號(hào),;a.職工號(hào)=c.職工號(hào) AND b.城市=”上海”,c.供應(yīng)商號(hào)=”S6”(9)列出由工資

16、多于1230元的職工向北京的供應(yīng)商發(fā)出的訂購(gòu)單號(hào); SELECT a.訂購(gòu)單號(hào) FROM 訂購(gòu)單a,職工b,供應(yīng)商c WHERE ;a.職工號(hào)=b.職工號(hào),a.供應(yīng)商號(hào)=c.供應(yīng)商號(hào) AND b.工資>1230,;c.地址=”北京”(10)列出倉(cāng)庫(kù)的個(gè)數(shù); SELECT 倉(cāng)庫(kù)號(hào),COUNT(倉(cāng)庫(kù)號(hào)) FROM 倉(cāng)庫(kù).dbf(11)列出有最大面積的倉(cāng)庫(kù)信息; SELECT a.倉(cāng)庫(kù)號(hào),城市,面積 FROM 倉(cāng)庫(kù)a ORDER BY 面積 GO 1 DISPLAY(12)列出所有倉(cāng)庫(kù)的平均面積; SELECT AVG(面積) AS “所有倉(cāng)庫(kù)的平均面積” FROM 倉(cāng)庫(kù).dbf(13)列出每

17、個(gè)倉(cāng)庫(kù)中工資多于1220元的職工個(gè)數(shù); SELECT 職工號(hào),COUNT(職工號(hào)) FROM 職工.dbf GROUP BY 倉(cāng)庫(kù)號(hào) WHERE ;工資>1220(14)列出和面積最小的倉(cāng)庫(kù)有聯(lián)系的供應(yīng)商的個(gè)數(shù);SELECT a.職工號(hào),COUNT(a.供應(yīng)商號(hào)) FROM 訂購(gòu)單a,職工b,倉(cāng)庫(kù)c WHERE ;a.職工號(hào)=b.職工號(hào),b.倉(cāng)庫(kù)號(hào)=c.倉(cāng)庫(kù)號(hào) AND MIN(c.面積)(15)列出工資低于本倉(cāng)庫(kù)平均工資的職工信息. SELECT a.職工號(hào),b.倉(cāng)庫(kù)號(hào),城市,c.供應(yīng)商號(hào),訂購(gòu)單號(hào),訂購(gòu)日期 FROM ;職工a,倉(cāng)庫(kù)b,訂購(gòu)單c WHERE a.倉(cāng)庫(kù)號(hào)=b.倉(cāng)庫(kù)號(hào),a.

18、職工號(hào)=c.職工號(hào) ; AND a.工資<AVG(a.工資)第九章 結(jié)構(gòu)化程序設(shè)計(jì)1.寫(xiě)出下列程序的執(zhí)行結(jié)果.(1)CLEAR SET TALK OFF x=10 y=-3 FOR n=29+x TO x STEP y ENDFOR ? n RETURN執(zhí)行結(jié)果:9(2)主程序:t1.prg SET TALK OFFSTORE ABTO k1,k2DO t2? k1+k2RETURN子程序t2.prgPRIVATE k1k1=k2+”250”? k1RETURN執(zhí)行結(jié)果: AB250 ABAB (3)SET TALK OFFCLEARSTORE 1 TO xSTORE 20 TO yDO

19、 WHILE x<=y IF INT(x/2)<>x/2 x=1+x2 y=y+1 LOOP ELSE x=x+1 ENDIFENDDO? x,ySET TALK ONRETURN執(zhí)行結(jié)果: 122.00 23 (4)主程序:z.prg SET TALK OFF STORE 2 TO x1,x2,x3 x1=x1+1 DO z1 ?x1+x2+x3 RETURN 子程序:z1.prg x2=x2+1 DO z2 x1=x1+1 RETURN 子程序:z2.prg x3=x3+1RETURN TO MASTER執(zhí)行結(jié)果: 9 (5)SET TALK OFFx=15y=7DO s

20、ub WITH x,(y)?x,yRETURNPROCECURE subPARAMETERS a,ba=a+bb=a-bRETURN執(zhí)行結(jié)果: 22 7 (6)SET TALK OFFx=9y=13z=fu(x,y) ? z RETURN FUNCTION fu PARAMETERS a,b a=a*b RETURN(a)執(zhí)行結(jié)果: 117 3.輸入學(xué)生成績(jī),若成績(jī)大雨80分,則輸出”優(yōu)良”,成績(jī)小于60分,則輸出”不及格”,否則輸出”中等”. 參考答案: * CJ.prg SET TALK OFF USE STUDENTS.dbf name=space(10) 10,5 SAY”請(qǐng)輸入學(xué)生姓

21、名并查看其成績(jī):” GET name READ LOCATE FOR 學(xué)生姓名=name IF .NOT.EOF() DO CASE CASE 成績(jī)>=80 ? “該生成績(jī)?yōu)閮?yōu)秀” CASE 成績(jī)>=60 AND 成績(jī)<80 ? “該生成績(jī)?yōu)橹械取?OTHERWISE ? “該生成績(jī)?yōu)椴患案瘛?ENDCASE ELSE ? ”無(wú)此學(xué)生”ENDIFSET TALK ONRETURN4.在學(xué)生表中,分別統(tǒng)計(jì)漢族學(xué)生和少數(shù)民族學(xué)生的人數(shù). 參考答案: * TJ.prg CLEARSTORE 0 TO x,yUSE STUDENTS.dbfSCAN IF 少數(shù)民族否=”是” x=x+

22、1 ELSE y=y+1 ENDIFENDSCAN? “少數(shù)民族的學(xué)生有”+STR(x,3)+”人”? “漢族的學(xué)生有”+STR(y,3)+”人”USERETURN2003-2004學(xué)年第2學(xué)期期末考試試題（A卷）foxpro程序設(shè)計(jì)基礎(chǔ)試題使用班級(jí)：03級(jí)非計(jì)算機(jī)專(zhuān)業(yè)本科fox班總分得分一、單項(xiàng)選擇題（共20分）每小題2分1.FOXPRO是一種( C )數(shù)據(jù)庫(kù)管理系統(tǒng)。A)層次型 B)網(wǎng)狀型 C)關(guān)系型 D)面向?qū)ο笮?.將數(shù)據(jù)庫(kù)文件的某一字段變量改名，以下命令正確的是（ D ）A）Modify B）Use C）Create D）Modify structure3. 在無(wú)索引的情況下打開(kāi)數(shù)據(jù)

23、庫(kù)文件，立即使用Display 命令，其功能是（ A ）；A）顯示第一條記錄 B）顯示全部記錄 C）顯示最后一條記錄 D）顯示從當(dāng)前記錄開(kāi)始到表尾的所有記錄 4. 以下表達(dá)式的結(jié)果為數(shù)值型的是（ D ）；A) "牛"$ "牛群" B) "wish you" "success" C) 98/6/14+15 D) 98/06/14-98/11/125. 關(guān)于索引，下列說(shuō)法正確的是（ B ）。A) 通過(guò)建立索引可以改變記錄在庫(kù)中的實(shí)際存儲(chǔ)順序 B) 可以對(duì)多個(gè)字段的表達(dá)式建立索引 C) 一個(gè)數(shù)據(jù)庫(kù)只能建立一個(gè)索引D) 建

24、立索引以后，庫(kù)中的記錄就會(huì)按照索引規(guī)定的順序重新排列 6. 關(guān)于刪除記錄的說(shuō)法，不正確的是（ B ）。A) 在BROWSE窗口中，對(duì)于要?jiǎng)h除的記錄，可以單擊每個(gè)記錄左邊的框來(lái)標(biāo)記該記錄要被刪除B) 對(duì)于添加了刪除標(biāo)記的紀(jì)錄，它們?nèi)匀淮嬖谟诖疟P(pán)上，但是不能再恢復(fù)原來(lái)的狀態(tài)C) 為了避免錯(cuò)誤刪除有用信息，foxpro把庫(kù)中刪除記錄的操作分為兩步：先對(duì)記錄作刪除標(biāo)記，然后再移去要?jiǎng)h除的記錄。D) 刪除當(dāng)前庫(kù)文件中所有記錄時(shí)，通常需要用戶(hù)進(jìn)一步確認(rèn)7. 下述程序段的運(yùn)行結(jié)果為（ C ）。 ch="abcdef" do while len(ch)>0 ? right(ch,2)

25、 ch=left(ch,len(ch)-2) enddoA) abcdef B) fedcba C) efcdab D) badcfe 8.設(shè)職工數(shù)據(jù)庫(kù)文件已經(jīng)打開(kāi)，其中有工資字段，要把指針定位在第一個(gè)工資大于1000元的記錄上，應(yīng)使用命令（ C ）。A) FIND FOR 工資>1000 B) SEEK 工資>1000C) LOCATE FOR 工資>1000 D) FIND 工資>10009.以下程序段共執(zhí)行( D)次循環(huán)k=2.5DO WHILE k<=4 ? kk=k+0.5ENDDOA) 1 B) 2 C) 3 D) 410. 要為當(dāng)前表所有職工增加10

26、0元工資應(yīng)該使用( D )命令 。A) CHANGE 工資 WITH 工資+100B) REPLACE 工資 WITH 工資+100C) CHANGE ALL 工資 WITH 工資+100D) REPLACE ALL 工資 WITH 工資+100得分二、填空題（共20分）每空2分1.計(jì)算機(jī)的中央處理器由運(yùn)算器和 控制器 構(gòu)成。2.計(jì)算機(jī)網(wǎng)絡(luò)按通信距離來(lái)劃分,通常可分為_(kāi) _廣域 網(wǎng)和_ 局域_ 網(wǎng)。3.結(jié)構(gòu)化程序設(shè)計(jì)中的三種基本結(jié)構(gòu)單元是順序結(jié)構(gòu)、_選擇_結(jié)構(gòu)和_循環(huán)_結(jié)構(gòu) 。4.FoxPro系統(tǒng)的三種工作方式有_菜單操作方式_、_命令操作方式_和選單操作方式。5.十進(jìn)制數(shù)23，對(duì)應(yīng)的二進(jìn)制數(shù)

27、是： 10110 。十六進(jìn)制數(shù)F6對(duì)應(yīng)的十進(jìn)制數(shù)是： 262 。6.foxpro庫(kù)文件的備注信息集中存放在一個(gè)與庫(kù)文件同名但擴(kuò)展名為： .dct 的備注文件中。7.表達(dá)式"ab">"bb" OR "ac"<"ad" 的運(yùn)算結(jié)果為： .T. 。8.執(zhí)行命令： ？AT（"成績(jī)","平時(shí)成績(jī)"）顯示的結(jié)果是 _ 5 _。9.能隨著庫(kù)文件的打開(kāi)而自動(dòng)打開(kāi)的索引為： 結(jié)構(gòu)復(fù)合索引文件 。10.按照不同庫(kù)文件的兩個(gè)字段表達(dá)式值相等來(lái)關(guān)聯(lián)的原則，父文件多條記錄對(duì)應(yīng)子文件中一條記

28、錄的關(guān)聯(lián)稱(chēng)為 多對(duì)一 關(guān)系，父文件一條記錄對(duì)應(yīng)子文件中多條記錄的關(guān)聯(lián)稱(chēng)為 一對(duì)多 關(guān)系。得分三、程序理解題（共20分）1 讀程序，寫(xiě)出運(yùn)行結(jié)果（8分）主程序 main.prg 子程序 proc.prgpublic m public nset talk off private xm=1 m=m+1x=5 n=2y=2 x=3do proc y=4? "main中: ",m,n,x,y ? "proc中: ",m,n,x,yset talk on returnreturn 運(yùn)行結(jié)果為： proc中: 2 2 3 4 main中: 2 2 5 4 2程序填空（

29、每空2分，共12分）（1）*本程序用來(lái)求組合modify command cmnset talk offinput "輸入m" to minput "輸入n" to nc= jc(m)/ (jc(n)* jc(m-n) ) ?cset talk onreturnfunction jc PARAMETER jcn f=1 for k=1 to jcn _f=f*k_ endfor return f （2）*本程序用來(lái)統(tǒng)計(jì)學(xué)生數(shù)據(jù)庫(kù)stud.dbf中成績(jī)score大于80分的學(xué)生人數(shù) SET TALK OFFCLEARSELECT 0 USE stud.db

30、f S= 0DO WHILE .NOT.EOF() IF SCORE >=80S=S+1ENDIF CONTINUE ENDDOUSE? "成績(jī)大于等于80分的學(xué)生共有"+STR(S)+ "人"USE SET TALK ON得分四、編程題（每小題10分，共20分）1. （10分）輸入一個(gè)數(shù)，判斷它能否被3，5整除，并輸出一下信息之一：（1） 能同時(shí)被3，5整除；（2） 只能被3整除;（3） 只能被5整除;（4） 既不能被3整除也不被5整除參考答案:*1.prgCLEARINPUT 請(qǐng)輸入數(shù): TO num1IF num1<>0DO CA

31、SE CASE MOD(num1,15)=0 ? "該數(shù)能同時(shí)被3和5整除" CASE MOD(num1,3)=0 AND MOD(num1,5)<>0 ? "該數(shù)只能被3整除" CASE MOD(num1,5)=0 AND MOD(num1,3)<>0 ? "該數(shù)只能被5整除" OTHERWISE ? "該數(shù)既不能被3整除也不能被5整除"ENDCASEENDIF 2. (10分)編程序求100到1000之間的所有奇數(shù)之和。參考答案:* 求和.prgSET TALK OFFSTORE 100

32、 TO xSTORE 0 TO yDO WHILE .T.x=x+1DO CASE CASE INT(x/2)=x/2 LOOPCASE x>=1000EXITOTHERWISEy=y+xENDCASEENDDO? "100到1000之間的奇數(shù)和為: ",ySET TALK ONRETURN&&執(zhí)行結(jié)果為: 100到1000之間的奇數(shù)和為:247500得分五、應(yīng)用題（20分）數(shù)據(jù)庫(kù)文件ZGMC.DBF，包含6個(gè)字段，分別為SNO（編號(hào)）、SNAME（姓名）、SSEX（性別）、ZC（職稱(chēng)）、GZ（工資）、CSRQ（出生日期）。如下二維表所示： SNOSN

33、AMESSEXZCGZCSRQ9201宋玲剛.F.技術(shù)員801.5078/07/119205郭小勇.T.工程師1133.0070/12/159215王佳鵬.F.高工1560.5065/09/239208張一凡.T.工人1015.0060/08/089206李春媛.F.工程師1008.0073/01/01根據(jù)下列要求寫(xiě)出命令或程序：1） 顯示第2條記錄（2分）參考答案:USE ZGMC.DBFGO 2DISP2）顯示工資高于1000元全部女職工的姓名、職稱(chēng)與出生日期（2分）參考答案:LIST SNAME,ZC,CSRQ FOR GZ>=1000 AND SSEX=.F.3)在第1條記錄前插

34、入新記錄9209 李玉 .F. 技術(shù)員 1003.80 73/05/30并顯示結(jié)果；（3分）參考答案: GO 1 INSERT BLANK BEFORE REPLACE SNO WITH "9209" UPDATE ZGMC SET SNAME="李玉",SSEX=.F.,ZC="技術(shù)員",GZ=1003.80; CSQR=1973/05/30 WHERE SNO="9209" LIST4)刪除1965年以前出生的職稱(chēng)為工人的記錄，并顯示結(jié)果；（2分）參考答案:DELETE FOR YEAR(DATE()-YEAR

35、(CSRQ)>42 &&以07年為當(dāng)前時(shí)間進(jìn)行計(jì)算 PACK LIST5)統(tǒng)計(jì)工程師的平均工資，并顯示統(tǒng)計(jì)結(jié)果；（2分）參考答案:CALCULATE AVG(GZ) TO x ? x 6)將1970年1月1日及以后出生的工程師復(fù)制為庫(kù)文件gcs.dbf (2分)參考答案: COPY TO gcs.dbf FOR YEAR(DATE()-YEAR(CSRQ)>37 &&以07年為當(dāng);前時(shí)間進(jìn)行計(jì)算 7）對(duì)所有工資超過(guò)1000元的男職工按出生日期降序排序，并要求新文件中只包含編號(hào)、姓名、性別、工資字段；（2分） 參考答案: SORT ON CSRQ/D

36、TO new FIELDS SNO,SNAME,SSEX,GZ FOR GZ>10008）為ZGMC.DBF建立索引文件，記錄以職稱(chēng)降序排序，職稱(chēng)相同時(shí)按出生日期降序排列（3分）參考答案: INDEX ON -ZC-CSRQ TAG sy1 9）按索引查詢(xún)方式查詢(xún)1970年出生的女職工（2分）參考答案: SET EXACT OFF &&關(guān)閉精確查詢(xún),進(jìn)行模糊查找INDEX ON CSRQ TAG sy2D=1970-*-*SEEK DDISPSKIP2003-2004學(xué)年第2學(xué)期期末考試試題（B卷）foxpro程序設(shè)計(jì)基礎(chǔ)試題使用班級(jí)：03級(jí)非計(jì)算機(jī)專(zhuān)業(yè)本科fox班總分得

37、分一、單項(xiàng)選擇題（共20分）每小題2分1FOXPRO是一種(C )數(shù)據(jù)庫(kù)管理系統(tǒng)。A. 層次型 B .網(wǎng)狀型 C .關(guān)系型 D. 面向?qū)ο笮?在學(xué)生基本情況表STU.DBF中，"性別"字段為邏輯型，用.T.代表女同學(xué)。為了找到第一位姓李的男同學(xué)，以下命令正確的是（ C ）；      ASeek 李 and 性別      BFind 李 .and. 男同學(xué)     C. Locate for 李 $ 姓名 and not 性別

38、0;    D. Locate for 李 $ 姓名 .and. 男同學(xué) 3. 對(duì)已經(jīng)打開(kāi)的學(xué)生成績(jī)表文件STUCDBF先按字符型字段"性別"升序索引，再按數(shù)值型字段"總分"的降序索引，應(yīng)當(dāng)使用的命令是（ B ）AINDEX ON 性別+總分BINDEX ON 性別-總分CINDEX ON 性別+STR(-總分，3)DINDEX ON 性別+STR(100-總分)4以下表達(dá)式的結(jié)果為數(shù)值型的是（ D ）；A. "牛"$ "牛群" B. "wish you" &quo

39、t;success" C. 98/6/14+15 D. 98/06/14-98/11/125. 在語(yǔ)句ACCEPT "姓名: " TO XM中，XM的類(lèi)型應(yīng)該是（ C ）；      A. 邏輯內(nèi)存變量            B. 數(shù)值型字段變量      C. 字符型字段變量       

40、;   D. 字符型內(nèi)存變量6. 下面關(guān)于FoxPro數(shù)組的敘述中，錯(cuò)誤的是 （ ）A. 用DIMENSION和DECLARE都可以定義數(shù)組B. FoxPro只支持一維數(shù)組和二維數(shù)組C. 一個(gè)數(shù)組中各個(gè)數(shù)組元素必須是同一種數(shù)據(jù)類(lèi)型D. 新定義數(shù)組的各個(gè)數(shù)組元素初值為.F.7. 只顯示當(dāng)前記錄的命令是_C_。A. LISTB. LIST ALLC. DISPLAYD. DISPLAY ALL8. 有如下命令序列 X=1 Y=2 Z=3 ?Z=X+Y執(zhí)行最后一條命令后，顯示的結(jié)果應(yīng)該是_A_。A. .T. B. .F. C. 3D. X+Y 9. 設(shè)有數(shù)據(jù)庫(kù)FILE.DBF，執(zhí)

41、行如下命令序列 SET DELETED OFF USE FILE LIST Recoed# 商品名 金額 1 洗衣機(jī) 3100.00 2 電冰箱 2300.00 3 21彩電 1800.00 4 空調(diào)機(jī) 4100.00 GO 3 DELETE GO BOTTOM INSERT BLANK REPLACE 商品名WITH "34寸彩電", 金額 WITH 6000 SUM 金額 TO S當(dāng)前S的值應(yīng)該是_B_。A. 11300B. 17300C. 11400D. 1550010. 在FoxBASE中,命令X=Y=3的功能是_D_。A. 判斷Y是否等于3,并將判斷結(jié)果保存到X中

42、B. 判斷X是否等于Y,如果等,將3賦值給Y,否則Y保持原來(lái)的值不變C. 判斷X和Y是否都等于3D. 將3賦值給Y,然后再賦值給X,使X和Y的值都為3得分二、填空題（共20分）每空2分1. 數(shù)據(jù)庫(kù)的英文縮寫(xiě)為 DB ，數(shù)據(jù)庫(kù)系統(tǒng)的英文縮寫(xiě)為 DBS ，數(shù)據(jù)庫(kù)管理的系統(tǒng)英文縮寫(xiě)為 DBMS 。2. 數(shù)據(jù)庫(kù)有三種類(lèi)型分別為 層次型 、 網(wǎng)狀型 、 關(guān)系型 。3. 表達(dá)式"103">"7"的值為 .F. ，"abc"+"abc"的值為 abcabc 。4. 命令？TYPE("12/27/95")

43、的輸出值是_ N _。5. 在數(shù)據(jù)庫(kù)文件中，要在某記錄打上刪除標(biāo)記，應(yīng)使用命令_DELETE _。6. 在數(shù)據(jù)表中，用于存放圖像、聲音等多媒體對(duì)象的數(shù)據(jù)類(lèi)型是 。7. 程序設(shè)計(jì)的三種基本結(jié)構(gòu)是 順序結(jié)構(gòu) 、 選擇結(jié)構(gòu) 、 循環(huán)結(jié)構(gòu) 。8. 執(zhí)行以下命令序列m=len("119")?m=m+1 的顯示結(jié)果是 .F. 。9. 在Foxpro 系統(tǒng)中有兩條語(yǔ)句可以改變循環(huán)體的執(zhí)行控制, 在DO WHILE 循環(huán)體內(nèi), 語(yǔ)句 LOOP 使控制轉(zhuǎn)移到循環(huán)的開(kāi)始, 語(yǔ)句EXIT使控制轉(zhuǎn)移到循環(huán)體外, 跳轉(zhuǎn)到該循環(huán)結(jié)構(gòu)后的第一個(gè)可執(zhí)行語(yǔ)句。10. 表達(dá)式"ST"$&q

44、uot;STRING"和表達(dá)式"SR"$"STRING"的值分別是 .T. 、 .F. 。得分三、程序理解題（共20分）1 讀程序，寫(xiě)出運(yùn)行結(jié)果（8分） clear i=1 stra="" do while i<=5 stra=stra+"*" i=i+1 enddo ?stra strb= "Wish you success! " stra=stra+strb ?strb ?stra return 運(yùn)行結(jié)果為： * Wish you success! *Wish you suc

45、cess! 2程序填空（每空2分，共12分）（1）下面程序的功能是完成查詢(xún)，系統(tǒng)要求用戶(hù)輸入書(shū)名，然后從圖書(shū)管理表（TSB.DBF）中查詢(xún)給定書(shū)目的信息，要求：若用戶(hù)沒(méi)有輸入書(shū)名，系統(tǒng)要求用戶(hù)重新輸入，用戶(hù)輸入字符串"000"，則結(jié)束查詢(xún)。 USE TSB DO WHILE .T. ACCEPT "請(qǐng)輸入書(shū)名：" TO SM IF LEN(ALLTRIM(SM)=0 LOOP ENDIF IF ALLTRIM(SM)= "000" EXIT ENDIF LOCATE ALL FOR 書(shū)名ALLTRIM(SM) IF FOUND() DO WHILE .NOT. EOF() DISPLAY SKIP ENDDO ELSE ? "查無(wú)此書(shū)" ENDIF ENDDO RETURN（2）輸入10個(gè)分?jǐn)?shù)（0-100以?xún)?nèi)）的值，輸出其所屬等級(jí)(>90:優(yōu),80-90：良,70-80：中,60-70：及,<60：不及)。 I