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

结构：课程号课程名学时数

C,,4C,20N,3

记录：

记录号#课程号课程名学时数

10001高等数学108

20002英语90

30003计算机基础68

40004数据库应用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分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

输入学生学号，显示该学生的学号和已通过课程的总学时数。

【程序】

SETTALKOFF

CLEAR

SELE1

USE成绩

SELE2

USE课程

(5)

KSS=0

ACCEPT，输入学生学号='TOXH

SELE成绩

(6)

DOWHIL!EOF()

IF成绩>=60

SELE课程

__________C7)_____________

KSS=KSS+学时数

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秒为间隔，以只读形式动态显示系统时间，时、分、秒用汉字显示

【程序】

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

说明：根据题目要求，利用面向对象程序设计方法在相应对象的事件中编写代码。

(1)表单的界面布局已基本完成，与表单有关的表文件已经添加到数据环境中：

(2)表单界面中除已经说明设置好的属性外，其他必要的属性一律在事件代码中设置;

(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

结构：课程号课程名学时数

C,4C,20N,3

记录：

记录号#课程号课程名学时数

10001高等数学108

20002英语90

30003计算机基础68

40004数据库应用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分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

输入学生的成绩，显示该成绩的档次（优、良、中、及格和不及格），如果成绩不在0

到100之间，则提示相应信息。

【程序】

SETTALKOFF

CLEAR

INPUT'输入学生成绩=，TOZJ

（n

?，成绩输入有错！，

ELSE

（2]

CASEZJ>=90

DC=，优，

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

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

下面程序实现口令判断。当第三次输入出错时退出表单。

【程序】

表单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已经三次错误！'

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、死循环B、1c、出错D、0

(16)如果STEP1改成STEP0,s的输出结果为(16)0

A、死循环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分）

说明：根据题目要求，利用面向对象程序设计方法在相应对象的事件中编写代码。

（1）表单的界面布局已基本完成，与表单有关的表文件已经添加到数据环境中；

（2）表单界面中除已经说明设置好的属性外，其他必要的属性一律在事件代码中设置;

（3）事件代码中可能涉及的主要属性、事件及方法列表如下，仅供参考：

AdditemControlsourceReadonlyRowsource

SetfocusEnabledRecordsourceRowsourcetype

ButtoncountForecolorRecordsourcetypeSetall

ButtonsFontsizeRefreshTimer

CaptionInitReleaseValue

ClearValidIntervalVisible

编制查询学生获奖学金情况的表单.，表单控件的布局界面如图1所示。具体要求：

1）在forml的init中设置初值，并把焦点指向combol,如图2所示；

2）从组合框中输入或选择班级号，按显示（commandl）按钮时，则显示该班获奖学金

的学生名单及男女生人数，如图3所示：

3）如果找不到该学生学号，则显示窗口，如图4所示:

4）按退出（command2）按钮时，则退出表单。

图1表单控件的布局界面图2表单运行初始界面

1./获奖查询13回区）

图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="获奖人数“

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

结构：课程号课程名学时数

C,4C,20N,3

记录：

记录号#课程号课程名学时数

10001高等数学108

20002英语90

30003计算机基础68

40004数据库应用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分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

输入学号，显示该学号的所有成绩；若用户输入空串或空格串，系统要求用户重新输入;

当用户输入字符串“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分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选•个正确答案。

【程序说明】

下面程序实现形状(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