vfp歷年試題分析

2008年春浙江省高等學校

計算機等級考試試卷（二級Foxpro）

說明：⑴考生應將所有試題的答案填寫在答卷上。其中試題1到試題6請在答卷上的各小

題選項的對應位置上填“

⑵請將你的準考證號的后五位填寫在答卷右下角的指定位置內。

（3）考試時間為90分鐘。

（4）本試卷中涉及到的相關表文件，其結構和記錄如下所示：

1、學生.DBF

結構：學號姓名性別出生年月簡歷獎學金照片

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

記錄：

記錄號#學號姓名性別出生年月簡歷獎學金照片

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

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

3954006張小強.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.為男，學號前三位為班級號）

2、課程.DBF

結構：課程號課程名學時數(shù)

C,,4C,20N,3

記錄：

記錄號#課程號課程名學時數(shù)

10001高等數(shù)學108

20002英語90

30003計算機基礎68

40004數(shù)據(jù)庫應用80

50005工程制圖80

3、成績.DBF

結構：學號課程號成績

C,6C,4N,5,1

記錄：

記錄號#學號課程號成績

1951001000195.0

2951003000388.0

3954006000178.0

4953008000490.0

5951001000378.0

6951003000480.0

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

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

【程序說明】

某公司貨運收費標準，本地貨運每噸按10元計算運費，外地貨每噸20元計算運費，如

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

【程序】

SETTALKOFF

CLEAR

INPUT，輸入貨物重量=，TOZL

ACCEPT，外地/本地TOBDWD

⑴

FL=10*ZL

ELSE

INPUT輸入距離='TOJL

DOCASE

⑵

FL=20*ZL

CASEJL>=500

FL=25*ZL

OTHER

?'距離輸入有錯！’

⑶

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.?貨物運費為=,FLB.?貨物運費為=FL

C.?’貨物運費為='+FLD.J?'貨物運費為='+STR(FL)

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

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

【程序說明】

輸入學生學號，顯示該學生的學號和已通過課程的總學時數(shù)。

【程序】

SETTALKOFF

CLEAR

SELE1

USE成績

SELE2

USE課程

(5)

KSS=0

ACCEPT，輸入學生學號='TOXH

SELE成績

(6)

DOWHIL!EOF()

IF成績>=60

SELE課程

__________C7)_____________

KSS=KSS+學時數(shù)

ENDIF

SELE成績

(8]

ENDDO

?XH,KSS

CLOSEALL

SETTALKON

【供選擇的答案】

(5)A>INDEXON課程號TOINX

B、INDEXONINXTO課程號

C、INDEXONINXTO課程號OFIXS

D、INDEXON學號TO工NX

(6)A、SEEK學號

B、SETFOR學號=ALLT(XH)

C、LOCATEFOR學號=ALLT(XH)

D、SEEKALLT(XH)

(7)A>SEEKB.課程號

B、SEEKA.課程號

C、SEEK課程號

D、SEEK1.課程號

(8)A、GORECNOOB、SKIP

C>SKIP-1D、CONT

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

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

【程序說明】

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

【程序】

表單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+'時'+F+'分'+M+'秒'

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

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

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

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

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

確答案。

【程序】

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的輸出結果_______A.0B.11C.10D.12

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

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

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

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

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

確答案。

【程序】

SETTALKOFF

CLEAR

P=0

FORN=1TO49SETP1

IFN>10

EXIT

ENDIF

IFMOD(N,2)=0

P=P+N

ENDIF

ENDFOR

rp=,P

SETTALKON

【供選擇的答案】

(17)P的輸出結果為

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

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

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

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

A.14B.0C.1D.出錯

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

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

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

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

確答案。

【程序】

SETTALKOFF

CLEA

Use學生

LIST

?RECNO()&&第一個顯示

GO3

INSERTBLANK

REPL姓名WITH'李華，

?RECNO()&&第二個顯示

GOTOP

DISPNEXT4

?RECNO()&&第三個顯示

LOCATEFOR姓名=，李華，

?RECNO()&&第四個顯示

USE

SETTALKON

【供選擇的答案】

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

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

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

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

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

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

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

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

試題7、面向對象程序設計(28分)

說明：根據(jù)題目要求，利用面向對象程序設計方法在相應對象的事件中編寫代碼。

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

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

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

AdditemControlsourceReadonlyRowsource

SetfocusEnabledRecordsourceRowsourcetype

ButtoncountForecolorRecordsourcetypeSetall

ButtonsFontsizeRefreshTimer

CaptionInitReleaseValue

ClearValidIntervalVisible

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

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

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

的成績，如圖3所示；

3)如果找不到該學生學號，則顯示窗口，如圖4所示：

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

題目參考第七章

圖1表單控件的布局界面圖2表單運行初始界面

圖3找到該學號時界面圖4找不到該學號時界面

Forml的init事件

thisform.caption="學生成績查詢”

ihisform.labeH.caption："學號：”

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

mand1.caption="顯示

thisform.conimand2.caption="退出”

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

THISFORM.GRID1.RecordSource="成績”

SETDELETEON

select成績

indexon學號toxh

select學生

setrelationto學號into成績

thisform.textl.setfocus

查詢Command1的dick事件

select學生

locatefbr學號==alllrim(lhisform.texlLvalue)

iffound()

【hisfbrm.text2.value;學生.姓名

SELE成績

DELETEFOR學號二alltrim(thisfonn.text1.value)

else

由isform.texl2.vakie=””

messagebox("杳無此人!")

endif

退出Command!的dick事件

thisfonn.release

2007年秋浙江省高等學校

計算機等級考試試卷（二級Foxpro）

說明：⑴考生應將所有試題的答案填寫在答卷上。其中試題1到試題6請在答卷上的各小

題選項的對應位置上填“V

⑵請將你的準考證號的后五位填寫在答卷右下角的指定位置內。

⑶考試時間為90分鐘。

⑷本試卷中涉及到的相關表文件，其結構和記錄如下所示：

3、學生.DBF

結構：學號姓名性別出生年月簡歷獎學金照片

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

記錄:

記錄號#學號姓名性別出生年月簡歷獎學金照片

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

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

3954006張小強.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.為男，學號前三位為班級號）

4、課程.DBF

結構：課程號課程名學時數(shù)

C,4C,20N,3

記錄：

記錄號#課程號課程名學時數(shù)

10001高等數(shù)學108

20002英語90

30003計算機基礎68

40004數(shù)據(jù)庫應用80

50005工程制圖80

3、成績.DBF

結構：學號課程號成績

C,6C,4N,5,1

記錄:

記錄號#學號課程號成績

1951001000195.0

2951003000388.0

3954006000178.0

4953008000490.0

5951001000378.0

6951003000480.0

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

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

【程序說明】

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

到100之間，則提示相應信息。

【程序】

SETTALKOFF

CLEAR

INPUT'輸入學生成績=，TOZJ

（n

?，成績輸入有錯！，

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分)

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

【程序說明】

輸入學生學號，顯示該學生的姓名、課程號以及成績。

【程序】

SETTALKOFF

CLEAR

SELE1

USE學生

(5)

SELE2

USE成績

_______(62__________

ACCEPT，輸入學生學號=，TOXH

LOCAFOR學號=ALLT(XH)

DOWHIL!EOF()

(7J

(8)

ENDDO

USE

SETTALKON

【供選擇的答案】

（5）A>INDEXON學號TOIXS

B、INDEXON學號INTO學生

C、INDEXON學生TO學號OFIXS

D、INDEXON學生TO學號

(6)A、SETRELATO學號INTOA

B、SETRELATO學號INTOB

C、SETRELATOAINTO學號

D、SETRELATO學生INTO學號

（7）A、?姓名，B.課程號，B.成績

B、?A.姓名，課程號，成績

C、?1.姓名，2.課程號，2.成績

D、?1.姓名，課程號，成績

(8)A、GOFOR學號=ALLT(XH)B、SKIP

C、SKIP-1D、CONT

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

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

【程序說明】

下面程序實現(xiàn)口令判斷。當?shù)谌屋斎氤鲥e時退出表單。

【程序】

表單Forml的Init事件代碼：

（9）

A=0

USE學生

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)三次錯誤！'

THISFORM.LABEL1.VISIBLE=.T.

THISFORM.RELEASE

ELSE

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

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分)

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

確答案。

【程序】

SETTALKOFF

CLEA

S=0

FOR1=1TO10STEP1

S=S+I

1=1+1

ENDF

?S

SETTALKON

【供選擇的答案】

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

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

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

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

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

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

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

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

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

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

確答案。

【程序】

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)當X輸入為-1時，S的輸出結果為[17J。

A、出錯B、-1C^-XD、1

(18)當X輸入為10時，S的輸出結果為(18)。

A、20C、1D、10

(19)當X輸入為。時，S的輸出結果為____________(19]____________o

A、2B、0C、1D、出錯

(20)當X輸入為5時，S的輸出結果為____________(20)____________。

A、25B、1C^0D、出錯

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

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

確答案。

【程序】

SETTALKOFF

CLEA

SETDELEON

Use學生

LISTNEXT2

?學號&&第一個顯示

姓名=5

REPL姓名WITH、王五，

STORE姓名TO姓名

?姓名，姓名，M.姓名&&第二個顯示

GO1

DELE

GOTOP

?學號&&第三個顯示

DISPREST

?RECNOO&&第四個顯示

USE

SETTALKON

【供選擇的答案】

(21)第一個顯示？學號的值為(21)

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

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

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

C、5王五5D、55王五

(23)第三個顯示？學號的值為(23)

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

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

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

試題7、面向對象程序設計（28分）

說明：根據(jù)題目要求，利用面向對象程序設計方法在相應對象的事件中編寫代碼。

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

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

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

AdditemControlsourceReadonlyRowsource

SetfocusEnabledRecordsourceRowsourcetype

ButtoncountForecolorRecordsourcetypeSetall

ButtonsFontsizeRefreshTimer

CaptionInitReleaseValue

ClearValidIntervalVisible

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

1）在forml的init中設置初值，并把焦點指向combol,如圖2所示；

2）從組合框中輸入或選擇班級號，按顯示（commandl）按鈕時，則顯示該班獲獎學金

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

3）如果找不到該學生學號，則顯示窗口，如圖4所示:

4）按退出（command2）按鈕時，則退出表單。

圖1表單控件的布局界面圖2表單運行初始界面

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

圖3找到該學號時界面圖4找不到該學號時界面

2007年秋浙江省高等學校

計算機等級考試試卷（二級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

面向對象程序設計

(1)forml的init事件

this.caption="獲獎查詢"&&---不需要

thisform.labell.caption="選擇班級號”

thisform.Iabel2.captionf獲獎名單”

thisform.1abe13,caption="獲獎人數(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學生

indexonleft(學號，3)toxhindexunique

scan

bol.additem(left(學號,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學生

locateforalltrim(left(學號，3));

==alItrim(bo1?displayvalue)

iffound()

scanforalltrim(left(學號，3));

==alltrim(thisform.combol.displayvalue)and獎學金>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」該班級號！”)

endif

(4)command2的click事件

thisform.release

2007年春浙江省高等學校

計算機等級考試試卷（二級Foxpro）

說明：⑴考生應將所有試題的答案填寫在答卷上。其中試題1到試題6請在答卷上的各小

題選項的對應位置上填“V

⑵請將你的準考證號的后五位填寫在答卷右卜角的指定位置內。

（3）考試時間為90分鐘。

⑷本試卷中涉及到的相關表文件，其結構和記錄如下所示：

5、學生.DBF

結構：學號姓名性別出生年月簡歷獎學金照片

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

記錄：

記錄號#學號姓名性別出生年月簡歷獎學金照片

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

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

3954006張小強.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.為男，學號前三位為班級號）

6、課程.DBF

結構：課程號課程名學時數(shù)

C,4C,20N,3

記錄：

記錄號#課程號課程名學時數(shù)

10001高等數(shù)學108

20002英語90

30003計算機基礎68

40004數(shù)據(jù)庫應用80

50005工程制圖80

3、成績.DBF

結構：學號課程號成績

C,6C,4N,5,1

記錄:

記錄號#學號課程號成績

1951001000195.0

2951003000388.0

3954006000178.0

4953008000490.0

5951001000378.0

6951003000480.0

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

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

【程序說明】

輸入某年某月某日，判斷這一天是這一年的第幾天。閏年條件為：能被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

?'輸入有錯，

(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分)

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

【程序說明】

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

當用戶輸入字符串“000”，則結束查詢。

【程序】

Settalkoff

Use成績

__________(5)_______

Accept'輸入學號=，toxh

If_________U)_______

loop

Endif

Ifallt(xh)='000'

__________(V________

Endif

Locafor學號=allt(xh)

Iffound()

Dowhil!eof()

Disp

(8)

enddo

Else

?、沒有該學號，

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分)

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

【程序說明】

下面程序實現(xiàn)形狀(shapel)從圓形逐步變成正方形，又從正方形逐步變成圓形的過

程。初始形狀為紅色底色的圓形。已新建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分)

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

確答案。

【程序】

Settalkoff

clea

Fori=5to1step-1

Ifi=3

Loop

Endif

??i

Endfor

?i

Settalkon

【供選擇的答案】

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

A.5