vfp歷年試題分析

2008年春浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷（二級(jí)Foxpro）

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫在答卷上。其中試題1到試題6請(qǐng)?jiān)诖鹁砩系母餍?/p>

題選項(xiàng)的對(duì)應(yīng)位置上填“

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫在答卷右下角的指定位置內(nèi)。

（3）考試時(shí)間為90分鐘。

（4）本試卷中涉及到的相關(guān)表文件，其結(jié)構(gòu)和記錄如下所示：

1、學(xué)生.DBF

結(jié)構(gòu)：學(xué)號(hào)姓名性別出生年月簡(jiǎn)歷獎(jiǎng)學(xué)金照片

C,6C,8L,1D,8M,4N,6,2G,4

記錄：

記錄號(hào)#學(xué)號(hào)姓名性別出生年月簡(jiǎn)歷獎(jiǎng)學(xué)金照片

1951001王平.F.05/06/70memo50.00gen

2951003李華.F.01/23/71memo25.00gen

3954006張小強(qiáng).T.07/21/70memo0.00gen

4953008趙峰.T.11/05/72memo75.00gen

5954011丁超.T.09/27/70memo0.00gen

6953013羅浩.T.09/09/71memo50.00gen

（注：性別=.F.為女，性別=.T.為男，學(xué)號(hào)前三位為班級(jí)號(hào)）

2、課程.DBF

結(jié)構(gòu)：課程號(hào)課程名學(xué)時(shí)數(shù)

C,,4C,20N,3

記錄：

記錄號(hào)#課程號(hào)課程名學(xué)時(shí)數(shù)

10001高等數(shù)學(xué)108

20002英語(yǔ)90

30003計(jì)算機(jī)基礎(chǔ)68

40004數(shù)據(jù)庫(kù)應(yīng)用80

50005工程制圖80

3、成績(jī).DBF

結(jié)構(gòu)：學(xué)號(hào)課程號(hào)成績(jī)

C,6C,4N,5,1

記錄：

記錄號(hào)#學(xué)號(hào)課程號(hào)成績(jī)

1951001000195.0

2951003000388.0

3954006000178.0

4953008000490.0

5951001000378.0

6951003000480.0

試題1、（每空格3分，共12分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

某公司貨運(yùn)收費(fèi)標(biāo)準(zhǔn)，本地貨運(yùn)每噸按10元計(jì)算運(yùn)費(fèi)，外地貨每噸20元計(jì)算運(yùn)費(fèi)，如

果距離500公里（含）以上，則每噸按25元收費(fèi)。

【程序】

SETTALKOFF

CLEAR

INPUT，輸入貨物重量=，TOZL

ACCEPT，外地/本地TOBDWD

⑴

FL=10*ZL

ELSE

INPUT輸入距離='TOJL

DOCASE

⑵

FL=20*ZL

CASEJL>=500

FL=25*ZL

OTHER

?'距離輸入有錯(cuò)！’

⑶

ENDIF

⑷

SETTALKON

【供選擇的答案】

(1)AIFALLT(BDWD)='外地'B.VIFALLT(BDWD戶本地，

CIFALLT(BDWD)=^hi!lD.IFALLT(BDWD4外地

(2)AIFJL>500ANDJL>=0B.CASEJL<=500ANDJL>=0

CJCASEJL<500ANDJL>=0D.CASEJL<500ORJL>=0

(3)AJENDCASEB.ENDCASE

C.ENDIFD.CASEEND

(4)A.?貨物運(yùn)費(fèi)為=,FLB.?貨物運(yùn)費(fèi)為=FL

C.?’貨物運(yùn)費(fèi)為='+FLD.J?'貨物運(yùn)費(fèi)為='+STR(FL)

試題2、(每空格3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

輸入學(xué)生學(xué)號(hào)，顯示該學(xué)生的學(xué)號(hào)和已通過(guò)課程的總學(xué)時(shí)數(shù)。

【程序】

SETTALKOFF

CLEAR

SELE1

USE成績(jī)

SELE2

USE課程

(5)

KSS=0

ACCEPT，輸入學(xué)生學(xué)號(hào)='TOXH

SELE成績(jī)

(6)

DOWHIL!EOF()

IF成績(jī)>=60

SELE課程

__________C7)_____________

KSS=KSS+學(xué)時(shí)數(shù)

ENDIF

SELE成績(jī)

(8]

ENDDO

?XH,KSS

CLOSEALL

SETTALKON

【供選擇的答案】

(5)A>INDEXON課程號(hào)TOINX

B、INDEXONINXTO課程號(hào)

C、INDEXONINXTO課程號(hào)OFIXS

D、INDEXON學(xué)號(hào)TO工NX

(6)A、SEEK學(xué)號(hào)

B、SETFOR學(xué)號(hào)=ALLT(XH)

C、LOCATEFOR學(xué)號(hào)=ALLT(XH)

D、SEEKALLT(XH)

(7)A>SEEKB.課程號(hào)

B、SEEKA.課程號(hào)

C、SEEK課程號(hào)

D、SEEK1.課程號(hào)

(8)A、GORECNOOB、SKIP

C>SKIP-1D、CONT

試題3、(每空格3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

表單將自動(dòng)以1秒為間隔，以只讀形式動(dòng)態(tài)顯示系統(tǒng)時(shí)間，時(shí)、分、秒用漢字顯示

【程序】

表單Forml的Init事件代碼：

(9)

THIS.TIMER1.ENABLED=.T.

(10)

TIMER1的(11)事件代碼:

S=SUBSTR(TIME(),1,2)

F=SUBSTR(TIME(),4,2)

M=SUBSTR(TIME(),7,2)

(12)

【供選擇的答案】

(9)A、THISFORM.TIEMR.INTERVAL=1B、THIS.TIEMR1.INTERVAL=1

C、THIS.TIEMR1.INTERVAL=1000D、THIS.TIEMR.INTERVAL=1000

(10)A、THIS.TEXT1.ONLYREAD=.F.

B、THIS.TEXT1.READONLY=.F.

C、THIS.TEXT1.ONLYREAD=.T.

D、THIS.TEXT1.READONLY=.T.

(11)A、TIMERB、CLICK

C、VALIDD、INIT

(12)A、TH工S.TEXT1.VALUE=S+'時(shí)'+F+'分'+M+'秒'

B、THISFORM.TEXT1.VALUE=S+Z時(shí)，+F+'分'+M+'秒'

C、TH工SFORM.TEXT1.VALUE=S+時(shí)』F+分+M+秒

D、THIS.TEXTl.VALUE=S+W+F+^*4-M+^

試題4、(每空格3分，共12分)

說(shuō)明：閱讀下列程序(段)并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。

【程序】

SETTALKOFF

CLEAR

STORE0TOS,T,P

FORK=1TO10

DOCASE

CASEINT(K/2)=K/2

T=T+K

CASEINT(K75)=K/5

S=S+K

OTHERWISE

P=P+K

ENDCASE

ENDFOR

?K,S,T,P

SETTALKON

【供選擇的答案】

(I3)K的輸出結(jié)果_______A.0B.11C.10D.12

(14)S的輸出結(jié)果_______A.5B.6C.7D.8

(15)T的輸出結(jié)果_______A.0B.1C.出錯(cuò)D.30

(16)P的輸出結(jié)果_______A.0B.1C.20D.55

試題5、(每空格3分，共12分)

說(shuō)明：閱讀下列程序(段)并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。

【程序】

SETTALKOFF

CLEAR

P=0

FORN=1TO49SETP1

IFN>10

EXIT

ENDIF

IFMOD(N,2)=0

P=P+N

ENDIF

ENDFOR

rp=,P

SETTALKON

【供選擇的答案】

(17)P的輸出結(jié)果為

A.20B.0C.60D.30

(18)EXIT改成LOOP,P的輸出結(jié)果為—

A.1B.0C.30D.1()

(19)EXIT不變，SETP1改為STEP3,P的輸出結(jié)果為

A.14B.0C.1D.出錯(cuò)

(20)EXIT不變，SETP1改為STEP-1,P的輸出結(jié)果為

A.0B.1C.30D.-1

試題6、(每空格3分，共12分)

說(shuō)明：閱讀下列程序(段)并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。

【程序】

SETTALKOFF

CLEA

Use學(xué)生

LIST

?RECNO()&&第一個(gè)顯示

GO3

INSERTBLANK

REPL姓名WITH'李華，

?RECNO()&&第二個(gè)顯示

GOTOP

DISPNEXT4

?RECNO()&&第三個(gè)顯示

LOCATEFOR姓名=，李華，

?RECNO()&&第四個(gè)顯示

USE

SETTALKON

【供選擇的答案】

(21)第一個(gè)顯示？RECNO()的值為(21)

A、6B、7C>1D、0

(22)第二個(gè)顯示？RECNO()的值為(22).

A、2B>1C、4D、0

(23)第三個(gè)顯示？RECNO()的值為(23)。

A、0B、1C、2D、4

(24)第四個(gè)顯示？RECNO()的值為(24)<>

A、2B、7C、4D、3

試題7、面向?qū)ο蟪绦蛟O(shè)計(jì)(28分)

說(shuō)明：根據(jù)題目要求，利用面向?qū)ο蟪绦蛟O(shè)計(jì)方法在相應(yīng)對(duì)象的事件中編寫代碼。

(1)表單的界面布局已基本完成，與表單有關(guān)的表文件已經(jīng)添加到數(shù)據(jù)環(huán)境中：

(2)表單界面中除已經(jīng)說(shuō)明設(shè)置好的屬性外，其他必要的屬性一律在事件代碼中設(shè)置;

(3)事件代碼中可能涉及的主要屬性、事件及方法列表如下，僅供參考：

AdditemControlsourceReadonlyRowsource

SetfocusEnabledRecordsourceRowsourcetype

ButtoncountForecolorRecordsourcetypeSetall

ButtonsFontsizeRefreshTimer

CaptionInitReleaseValue

ClearValidIntervalVisible

編制查詢學(xué)生獲獎(jiǎng)學(xué)金情況的表單，表單控件的布局界而如圖1所示。具體要求：

1)在forml的init中設(shè)置初值,并把焦點(diǎn)指向TEXT1,如圖2所示；

2)在TEXT1中輸入學(xué)號(hào)，按查詢(commandl)按鈕，則顯示該學(xué)生姓名以及各門課程

的成績(jī)，如圖3所示；

3)如果找不到該學(xué)生學(xué)號(hào)，則顯示窗口，如圖4所示：

4)按退出(command3)按鈕時(shí)，則退出表單。

題目參考第七章

圖1表單控件的布局界面圖2表單運(yùn)行初始界面

圖3找到該學(xué)號(hào)時(shí)界面圖4找不到該學(xué)號(hào)時(shí)界面

Forml的init事件

thisform.caption="學(xué)生成績(jī)查詢”

ihisform.labeH.caption："學(xué)號(hào)：”

lhisform.labe!2.caplion="姓名：”

mand1.caption="顯示

thisform.conimand2.caption="退出”

THISFORM.GRIDl.RecordSourcelype=0&&0-表1-別名

THISFORM.GRID1.RecordSource="成績(jī)”

SETDELETEON

select成績(jī)

indexon學(xué)號(hào)toxh

select學(xué)生

setrelationto學(xué)號(hào)into成績(jī)

thisform.textl.setfocus

查詢Command1的dick事件

select學(xué)生

locatefbr學(xué)號(hào)==alllrim(lhisform.texlLvalue)

iffound()

【hisfbrm.text2.value;學(xué)生.姓名

SELE成績(jī)

DELETEFOR學(xué)號(hào)二alltrim(thisfonn.text1.value)

else

由isform.texl2.vakie=””

messagebox("杳無(wú)此人!")

endif

退出Command!的dick事件

thisfonn.release

2007年秋浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷（二級(jí)Foxpro）

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫在答卷上。其中試題1到試題6請(qǐng)?jiān)诖鹁砩系母餍?/p>

題選項(xiàng)的對(duì)應(yīng)位置上填“V

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫在答卷右下角的指定位置內(nèi)。

⑶考試時(shí)間為90分鐘。

⑷本試卷中涉及到的相關(guān)表文件，其結(jié)構(gòu)和記錄如下所示：

3、學(xué)生.DBF

結(jié)構(gòu)：學(xué)號(hào)姓名性別出生年月簡(jiǎn)歷獎(jiǎng)學(xué)金照片

C,6C,8L,1D,8M,4N,6,2G,4

記錄:

記錄號(hào)#學(xué)號(hào)姓名性別出生年月簡(jiǎn)歷獎(jiǎng)學(xué)金照片

1951001王平.F.05/06/70memo50.00gen

2951003李華.F.01/23/71memo25.00gen

3954006張小強(qiáng).T.07/21/70memo0.00gen

4953008趙峰.T.11/05/72memo75.00gen

5954011丁超.T.09/27/70memo0.00gen

6953013羅浩.T.09/09/71memo50.00gen

（注：性別=.F.為女，性別=.T.為男，學(xué)號(hào)前三位為班級(jí)號(hào)）

4、課程.DBF

結(jié)構(gòu)：課程號(hào)課程名學(xué)時(shí)數(shù)

C,4C,20N,3

記錄：

記錄號(hào)#課程號(hào)課程名學(xué)時(shí)數(shù)

10001高等數(shù)學(xué)108

20002英語(yǔ)90

30003計(jì)算機(jī)基礎(chǔ)68

40004數(shù)據(jù)庫(kù)應(yīng)用80

50005工程制圖80

3、成績(jī).DBF

結(jié)構(gòu)：學(xué)號(hào)課程號(hào)成績(jī)

C,6C,4N,5,1

記錄:

記錄號(hào)#學(xué)號(hào)課程號(hào)成績(jī)

1951001000195.0

2951003000388.0

3954006000178.0

4953008000490.0

5951001000378.0

6951003000480.0

試題1、（每空格3分，共12分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

輸入學(xué)生的成績(jī)，顯示該成績(jī)的檔次（優(yōu)、良、中、及格和不及格），如果成績(jī)不在0

到100之間，則提示相應(yīng)信息。

【程序】

SETTALKOFF

CLEAR

INPUT'輸入學(xué)生成績(jī)=，TOZJ

（n

?，成績(jī)輸入有錯(cuò)！，

ELSE

（2]

CASEZJ>=90

DC=，優(yōu)，

CASEZJ>=80

DC=?良，

CASEZJ>=70

DC=，中，

CASEZJ>=60

DC=，及格，

（32

DC=，不及格，

ENDCASE

(4)

ENDIF

USE

SETTALKON

【供選擇的答案】

(1)A、IFZJ<0ORZJ>100

B、IFZJ>=0ORZJ<=100

C、IFZJ>=0ANDZJ<=100

D、IFZJ<0ANDZJ>100

(2)A、IFZJ>0B、DOWHIL

C、SCANFORZJ>0D、DOCASE

(3)A、ENDIFB、OTHERWISE

C、ENDCASED、OTHERCASE

(4)A、?VAL(ZJ)+〃T〃+DCB、?ZJ+-VAL(DC)

C、?STR(ZJ)+〃，"+DCD、?ZJ+〃T〃+STR(DC)

試題2、(每空格3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

輸入學(xué)生學(xué)號(hào)，顯示該學(xué)生的姓名、課程號(hào)以及成績(jī)。

【程序】

SETTALKOFF

CLEAR

SELE1

USE學(xué)生

(5)

SELE2

USE成績(jī)

_______(62__________

ACCEPT，輸入學(xué)生學(xué)號(hào)=，TOXH

LOCAFOR學(xué)號(hào)=ALLT(XH)

DOWHIL!EOF()

(7J

(8)

ENDDO

USE

SETTALKON

【供選擇的答案】

（5）A>INDEXON學(xué)號(hào)TOIXS

B、INDEXON學(xué)號(hào)INTO學(xué)生

C、INDEXON學(xué)生TO學(xué)號(hào)OFIXS

D、INDEXON學(xué)生TO學(xué)號(hào)

(6)A、SETRELATO學(xué)號(hào)INTOA

B、SETRELATO學(xué)號(hào)INTOB

C、SETRELATOAINTO學(xué)號(hào)

D、SETRELATO學(xué)生INTO學(xué)號(hào)

（7）A、?姓名，B.課程號(hào)，B.成績(jī)

B、?A.姓名，課程號(hào)，成績(jī)

C、?1.姓名，2.課程號(hào)，2.成績(jī)

D、?1.姓名，課程號(hào)，成績(jī)

(8)A、GOFOR學(xué)號(hào)=ALLT(XH)B、SKIP

C、SKIP-1D、CONT

試題3、（每空格3分，共12分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

下面程序?qū)崿F(xiàn)口令判斷。當(dāng)?shù)谌屋斎氤鲥e(cuò)時(shí)退出表單。

【程序】

表單Forml的Init事件代碼：

（9）

A=0

USE學(xué)生

This.textl.value=z'

THIS.TEXT1.PASSWORDCHAR=,*'

THIS.LABEL1.VISIBLE=.F.

（10）

TEXT1的VALID事件代碼：

(11)

IFFOUND()

THISFORM.LABEL1.CAPTION=Z口令正確！

THISFORM.LABEL1.VISIBLE=.T.

RETU.T.

ELSE

____(12)

THISFORM.LABEL1.CAPTION=r已經(jīng)三次錯(cuò)誤！'

THISFORM.LABEL1.VISIBLE=.T.

THISFORM.RELEASE

ELSE

TH工SFORM.LABEL1.CAPT：ION=，口令有錯(cuò)，重新輸入！，

THISFORM.LABEL1.VISIBLE=.T.

A=A+1

RETU.F.

ENDIF

ENDIF

【供選擇的答案】

(9)AsPUBLICAB、LOCALA

C、PARAAD、可以省略

(10)A、THIS.TEXT1.SETFOCUS=.F.

B、THIS.TEXT1.SETFOCUS

C、THIS.TEXT1.SETFOCUS=.T.

D、THISFORM.TEXT.SETFOCUS

(11)A、SEEKTHISFORM.TEXT1.VALUE

B、SEEKFOR姓名==ALLT(TH工SFORM.TEXT1.VALUE)

C、LOCAFOR姓名==ALLT(THISFORM.TEXT1.VALUE)

D、LOCAALL姓名=ALLT(TH工SFORM.TEXT1.VALUE)

(12)A、IFA>=3B、IFA>=2

C>IFA<3D^IFA<=3

試題4、(每空格3分，共12分)

說(shuō)明：閱讀下列程序(段)并回答問(wèn)題，在每小題提供的若干可選答案中，挑選?個(gè)正

確答案。

【程序】

SETTALKOFF

CLEA

S=0

FOR1=1TO10STEP1

S=S+I

1=1+1

ENDF

?S

SETTALKON

【供選擇的答案】

(13)S的輸出結(jié)果為(13)o

A、25B、45C、50D、55

(14)如果STEP1改成STEP2,S的輸出結(jié)果為(14)o

A、10B、22C、25D、55

(15)如果STEP1改成STEP-1,s的輸出結(jié)果為(15)0

A、死循環(huán)B、1c、出錯(cuò)D、0

(16)如果STEP1改成STEP0,s的輸出結(jié)果為(16)0

A、死循環(huán)B>1C^0D、55

試題5、(每空格3分，共12分)

說(shuō)明：閱讀下列程序(段)并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。

【程序】

SETTALKOFF

INPUTnX="TOX

IFX<0

X=ABS(X)

ENDIF

S=0

DOWHILEX>0

Y=MOD(X,10)

S=S+YA2

X=INT(X/10)

ENDDO

?S

SETTALKON

【供選擇的答案】

(17)當(dāng)X輸入為-1時(shí)，S的輸出結(jié)果為[17J。

A、出錯(cuò)B、-1C^-XD、1

(18)當(dāng)X輸入為10時(shí)，S的輸出結(jié)果為(18)。

A、20C、1D、10

(19)當(dāng)X輸入為。時(shí)，S的輸出結(jié)果為_(kāi)___________(19]____________o

A、2B、0C、1D、出錯(cuò)

(20)當(dāng)X輸入為5時(shí)，S的輸出結(jié)果為_(kāi)___________(20)____________。

A、25B、1C^0D、出錯(cuò)

試題6、(每空格3分，共12分)

說(shuō)明：閱讀下列程序(段)并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。

【程序】

SETTALKOFF

CLEA

SETDELEON

Use學(xué)生

LISTNEXT2

?學(xué)號(hào)&&第一個(gè)顯示

姓名=5

REPL姓名WITH、王五，

STORE姓名TO姓名

?姓名，姓名，M.姓名&&第二個(gè)顯示

GO1

DELE

GOTOP

?學(xué)號(hào)&&第三個(gè)顯示

DISPREST

?RECNOO&&第四個(gè)顯示

USE

SETTALKON

【供選擇的答案】

(21)第一個(gè)顯示？學(xué)號(hào)的值為(21)

A、953008B、954006C、951001D、951003

(22)第二個(gè)顯示？姓名，姓名，M.姓名的值為(221

AN王五55B、王五王五王五

C、5王五5D、55王五

(23)第三個(gè)顯示？學(xué)號(hào)的值為(23)

A、954006B、951001C、951003D、953008

(24)第四個(gè)顯示？RECNO()的值為(242

A、3B>7C^6D、1

試題7、面向?qū)ο蟪绦蛟O(shè)計(jì)（28分）

說(shuō)明：根據(jù)題目要求，利用面向?qū)ο蟪绦蛟O(shè)計(jì)方法在相應(yīng)對(duì)象的事件中編寫代碼。

（1）表單的界面布局已基本完成，與表單有關(guān)的表文件已經(jīng)添加到數(shù)據(jù)環(huán)境中；

（2）表單界面中除已經(jīng)說(shuō)明設(shè)置好的屬性外，其他必要的屬性一律在事件代碼中設(shè)置;

（3）事件代碼中可能涉及的主要屬性、事件及方法列表如下，僅供參考：

AdditemControlsourceReadonlyRowsource

SetfocusEnabledRecordsourceRowsourcetype

ButtoncountForecolorRecordsourcetypeSetall

ButtonsFontsizeRefreshTimer

CaptionInitReleaseValue

ClearValidIntervalVisible

編制查詢學(xué)生獲獎(jiǎng)學(xué)金情況的表單.，表單控件的布局界面如圖1所示。具體要求：

1）在forml的init中設(shè)置初值，并把焦點(diǎn)指向combol,如圖2所示；

2）從組合框中輸入或選擇班級(jí)號(hào)，按顯示（commandl）按鈕時(shí)，則顯示該班獲獎(jiǎng)學(xué)金

的學(xué)生名單及男女生人數(shù)，如圖3所示：

3）如果找不到該學(xué)生學(xué)號(hào)，則顯示窗口，如圖4所示:

4）按退出（command2）按鈕時(shí)，則退出表單。

圖1表單控件的布局界面圖2表單運(yùn)行初始界面

1./獲獎(jiǎng)查詢13回區(qū)）

圖3找到該學(xué)號(hào)時(shí)界面圖4找不到該學(xué)號(hào)時(shí)界面

2007年秋浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷（二級(jí)Foxpro）參考答案

1.A2.D3.B4.C5.A6.A7.B8.D

9.A10.B11.C12.B13.A14.B15.D16.D

17.D18.C19.B20.A21.D22.B23.C24.B

面向?qū)ο蟪绦蛟O(shè)計(jì)

(1)forml的init事件

this.caption="獲獎(jiǎng)查詢"&&---不需要

thisform.labell.caption="選擇班級(jí)號(hào)”

thisform.Iabel2.captionf獲獎(jiǎng)名單”

thisform.1abe13,caption="獲獎(jiǎng)人數(shù)“

thisform.label4.caption=H男生”

thisform.Iabel5.caption="女生”

mandl.caption="顯示“

thisform.command2.caption="退tH"

bo1.setfocus

thisform.text1.enabled=.f.&&不需要

thisform.text2.enabled—f.&&---不需要

settalkoff

publicboys,girls

store0toboys,girls

thisform.listl.clear不需要

thisform.textl.value="”&&--不需要

thisform.text2.value="n&&--不需要

sele學(xué)生

indexonleft(學(xué)號(hào)，3)toxhindexunique

scan

bol.additem(left(學(xué)號(hào),3))

endscan

setindexto

(2)combol的interactivechange事件

store0toboys,girls

thisform.listl.clear

thisform.textl.value="

thisform.text2.value=n

(3)commandl的click事件

store0toboys,girls

thisform.listl.clear

thisform.textl.value="n&&---不需要

thisform.text2.value="n&&---不需要

sele學(xué)生

locateforalltrim(left(學(xué)號(hào)，3));

==alItrim(bo1?displayvalue)

iffound()

scanforalltrim(left(學(xué)號(hào)，3));

==alltrim(thisform.combol.displayvalue)and獎(jiǎng)學(xué)金>0

thisform.listl.additem(姓名)

if性別

boys=boys+l

else

girls=girls+l

endif

endscan

thisform.textl.value=boys

thisform.text2.value=girls

else

messagebox("找不至I」該班級(jí)號(hào)！”)

endif

(4)command2的click事件

thisform.release

2007年春浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷（二級(jí)Foxpro）

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫在答卷上。其中試題1到試題6請(qǐng)?jiān)诖鹁砩系母餍?/p>

題選項(xiàng)的對(duì)應(yīng)位置上填“V

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫在答卷右卜角的指定位置內(nèi)。

（3）考試時(shí)間為90分鐘。

⑷本試卷中涉及到的相關(guān)表文件，其結(jié)構(gòu)和記錄如下所示：

5、學(xué)生.DBF

結(jié)構(gòu)：學(xué)號(hào)姓名性別出生年月簡(jiǎn)歷獎(jiǎng)學(xué)金照片

C,6C,8L,1D,8M,4N,6,2G,4

記錄：

記錄號(hào)#學(xué)號(hào)姓名性別出生年月簡(jiǎn)歷獎(jiǎng)學(xué)金照片

1951001王平.F.05/06/70memo50.00gen

2951003李華.F.01/23/71memo25.00gen

3954006張小強(qiáng).T.07/21/70memo0.00gen

4953008趙峰.T.11/05/72memo75.00gen

5954011丁超.T.09/27/70memo0.00gen

6953013羅浩.T.09/09/71memo50.00gen

（注：性別=.F.為女，性別=.T.為男，學(xué)號(hào)前三位為班級(jí)號(hào)）

6、課程.DBF

結(jié)構(gòu)：課程號(hào)課程名學(xué)時(shí)數(shù)

C,4C,20N,3

記錄：

記錄號(hào)#課程號(hào)課程名學(xué)時(shí)數(shù)

10001高等數(shù)學(xué)108

20002英語(yǔ)90

30003計(jì)算機(jī)基礎(chǔ)68

40004數(shù)據(jù)庫(kù)應(yīng)用80

50005工程制圖80

3、成績(jī).DBF

結(jié)構(gòu)：學(xué)號(hào)課程號(hào)成績(jī)

C,6C,4N,5,1

記錄:

記錄號(hào)#學(xué)號(hào)課程號(hào)成績(jī)

1951001000195.0

2951003000388.0

3954006000178.0

4953008000490.0

5951001000378.0

6951003000480.0

試題1、（每空格3分，共12分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

輸入某年某月某日，判斷這一天是這一年的第幾天。閏年條件為：能被4整除但不能被

100整除，或能被100整除且能被400整除。

【程序】

Settalkoff

Input'輸入年='toyear

Input'輸入月='tomonth

Input'輸入日=，today

Sum=0

Docase

Casemonth=l

Sum=0

Casemonth=2

Sum=31

Casemonth=3

Sum=59

Casemonth=4

Sum=90

Casemonth=5

Sum=120

Casemonth=6

Sum=151

Casemonth=7

Sum=181

Casemonth=8

Sum=212

Casemonth=9

Sum=243

Casemonth=10

Sum=273

Casemonth=ll

Sum=304

Casemonth=12

Sum=334

Otherwise

?'輸入有錯(cuò)，

(1)

Sum=sum+day

Ifmod(year,4)=0andmod(year,100)!=0ormod(year,400)=0⑵

Leap=l

Else

Leap=0

Endif

If__________[3)_________

Sum=sum+1

Endif

?__________(4J_______

Settalkon

【供選擇的答案】

(1)A、caseB、endcase

C、enddoD、caseend

(2)A、year%4=0andyear%l00!=0oryear%400=0andyear%100=0

B、year%4=0andyear%l00=0andyear%400=0andyear%l00=0

C、(year%4=0andyear%100=0)or(year%400=0andyear%l00=0)

D、year%4=0andyear%100!=0andyear%400=0andyear%100=0

(3)A、leap=l

B、leap=landmonth>=2

C、leap=lormonth>=2

D、leap=landmonth>2

(4)A、'這是第，+sum+，天，

B、'這是第，+，sum，+，天，

C、'這是第，+sU(sum)一，大，

D、這是第+str(sum)+天

試題2、(每空格3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

輸入學(xué)號(hào)，顯示該學(xué)號(hào)的所有成績(jī)；若用戶輸入空串或空格串，系統(tǒng)要求用戶重新輸入;

當(dāng)用戶輸入字符串“000”，則結(jié)束查詢。

【程序】

Settalkoff

Use成績(jī)

__________(5)_______

Accept'輸入學(xué)號(hào)=，toxh

If_________U)_______

loop

Endif

Ifallt(xh)='000'

__________(V________

Endif

Locafor學(xué)號(hào)=allt(xh)

Iffound()

Dowhil!eof()

Disp

(8)

enddo

Else

?、沒(méi)有該學(xué)號(hào)，

Endif

Enddo

Use

Settalkon

【供選擇的答案】

(5)A、dowhiltB>dowhileof()

C、fori=ltorecc()D、dowhil.t.

(6)A、allt(xh)=0B、len(str(xh))=0

C>len(allt(xh))=0D、allt(xh)='O'

(7)A、loopB、exit

C、skip-1D、skip100

(8)A、contB、skip

C、skip-1D、gon

試題3、(每空格3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選?個(gè)正確答案。

【程序說(shuō)明】

下面程序?qū)崿F(xiàn)形狀(shapel)從圓形逐步變成正方形，又從正方形逐步變成圓形的過(guò)

程。初始形狀為紅色底色的圓形。已新建a屬性。

【程序】

表單Forml的Init事件代碼：

This.a=l

(9)

Terval=l000

(10)

.width=l00

.height=100

(11)

Endwith

Timerl的Timer事件代碼：

Ifthisform.shapel.curvature=99

Thisform.a=0

Endif

Ifthisform.shapel.curvature=0

Thisform.a=l

Endif

B=thisform.shapel.curvature

If_______(12)

Thisform.shapel.curvature=b+l

Else

Thisform.shapel.curvature=b-l

Endif

【供選擇的答案】

(9)A、This.timerl.enabled=.t.This.timer.enabled=.t.

C、This.enabled=.t.D、This.timerl.enabled=.f.

(10)A、scanthisform.shapel

B、Withthis.shapel

C、withthisform

D、withshapel

(11)A、Backcolor=rgb(255,0,0)

B、.Backcolor=rgb(255,0z0)

CN.Backcolor=rgb(0,255,0)

D、Backcolor=255

(12)A、a=lB、a=0C、thisform.a=0D、thisform.a=l

試題4、(每空格3分，共12分)

說(shuō)明：閱讀下列程序(段)并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。

【程序】

Settalkoff

clea

Fori=5to1step-1

Ifi=3

Loop

Endif

??i

Endfor

?i

Settalkon

【供選擇的答案】

(13)程序的輸出結(jié)果為Q3)o

A.5