12009年下半年浙江省高等学校计算机等级考试二级VisualFoxPro程序设计试卷说明:⑴考生应将所有试题的答案填写在答卷上。其中试题1到试题6请在答卷上的各小题选项的对应位置上填“√”。⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内。⑶考试时间为90分钟。⑷本试卷中涉及到的相关表文件,其结构和记录如下所示:1、学生.DBF结构:学号姓名性别出生年月简历奖学金照片C,6C,8L,1D,8M,4N,6,2G,4记录:记录号#学号姓名性别出生年月简历奖学金照片1951001王平.F.05/06/70memo50.00gen2951003李华.F.01/23/71memo25.00gen3954006张小强.T.07/21/70memo0.00gen4953008赵峰.T.11/05/72memo75.00gen5954011丁超.T.09/27/70memo0.00gen6953013罗浩.T.09/09/71memo50.00gen(注:性别=.F.为女,性别=.T.为男,学号前三位为班级号)2、课程.DBF结构:课程号课程名学时数C,4C,20N,3记录:记录号#课程号课程名学时数10001高等数学10820002英语9030003计算机基础6840004数据库应用8050005工程制图803、成绩.DBF结构:学号课程号成绩C,6C,4N,5,1记录:记录号#学号课程号成绩1951001000195.02951003000388.03954006000178.024953008000490.05951001000378.06951003000480.0一、程序阅读与填空(24小题,每小题3分,共72分)1.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】计算下列表达式的值。3x2+2x-1x-5y=x.sinx+2x-5=x=55x+lnxx5【程序】SETTALKOFFCLEAR(1)IFX-5Y=3*X*X+2*X-1ELSE(2)(3)ELSEY=X*SIN(X)+2^XENDIFENDIF(4)SETTALKON【供选择的答案】(1)A.INPUT“X=”TOXB.WAIT“X=”TOXC.ACCEPT“X=”TOXD.Y=X(2)A.IF-5=X=5B.CASEX5C.IFX5D.IFX=5(3)A.Y=STR(X-5)+Ln(X)B.Y=SQRT(X-5)+Ln(X)C.Y=STR(X-5)+LOG(X)D.Y=SQRT(X-5)+LOG(X)(4)A.?”Y=”+”Y”B.?”Y=”+YC.?Y=,YD.?”Y=”,Y32.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】输入学号,如果存在,则显示该学生的信息,否则输出‘找不到该学生’。【程序】SETTALKOFFCLEARUSE学生DOWHILE.T.ACCEPT“输入学号=”TOSTNO(5)(6)DISPELSE?’找不到该学生’ENDIFWAIT‘输入是否继续?(Y-继续/N-退出)’TOX(7)EXITENDIF(8)USESETTALKON【供选择的答案】(5)A.FINDFOR学号=ALLT(STNO)B.LOCAFOR学号=ALLT(STNO)C.SEEKFOR学号=ALLT(STNO)D.SEEKSTNO(6)A.IF!FOUND()B.IF!eofC.IF!EOF()D.IFFOUND(7)A.IFUPPER(X)=’N’B.IFUPPER(X)=’Y’C.IFUPPER(X)=.Y.D.IFUPPER(X)=.N.(8)A.ENDCASEB.ENDDC.ENDIFD.CLEAR3.阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】下面程序实现自动循环显示“马到成功”。【程序】4表单FORM1的INIT事件代码:(9)THIS.CHK性别.ENABLED=.F.THIS.EDT简历.READONLY=.T.C=’马到成功’A=0THIS.TIMER1.INTERVAL=1000THIS.TIMER1.ENABLED=.T.THIS.LABEL1.CAPTION=’’时钟控件Timer1的(10)事件代码:A=A+1(11)B=SUBSTR(C,A*2-1,2)D=ALLT(THISFORM.LABEL1.CAPTION)(12)ELSEA=0THISFORM.LABEL1.CAPTION=’’ENDIF【供选择的答案】(9)A.LOCALA,CB.PRIVA,CC.PUBLICA,CD.PUBLICA(10)A.TimerB.TimeC.Timer1D.Click(11)A.IFA=4B.IFA4C.IFA4D.IFA=4(12)A.THISFORM.LABEL1.CAPTION=B+DB.THISFORM.LABEL1.CAPTION=D+BC.THIS.LABEL1.CAPTION=D+BD.THISFORM.LABEL1.VALUE=D+B54.阅读下列程序(段)并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。【程序】SETTALKOFFCLEAINPUT“请输入一个正整数=”TOXC=””M=XIFINT(X)=XDOWHILEM0P=MOD(M,2)C=STR(P,1)+CM=INT(M/2)ENDDOELSEC=”11111”ENDIF?CSETTALKON【供选择的答案】(13)当X输入为34时,输出值C为(13)。A.11111B.100010C.000010D.100001(14)当X输入为23时,输出值C为(14)。A.00010B.11111C.10111D.10000(15)当X输入为23.6时,输出值C为(15)。A.10001B.10111C.00010D.11111(16)当X输入为-23时,输出值C为(15)。A.空串B.11111C.00010D.出错65.阅读下列程序(段)并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。【程序】SETTALKOFFCLEARS=0FORM=2TO4N=2DOWHILEN=M-1IFINT(M/N)=M/NEXITELSES=S+NENDIFN=N+1ENDDOENDFOR?”S=”,S?”N=”,NSETTALKON【供选择的答案】(17)输出值S为(17)A.2B.3C.4D.5(18)输出值N为(18)A.4B.3C.2D.5(19)当FORM=2TO4该成FORM=3TO5时,输出值S为(19)A.5B.3C.16D.11(20)当FORM=2TOM该成FORM=3TO5时,输出值N为(20)A.3B.5C.4D.66.读下列程序(段)并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。【程序】SETTALKOFFCLEASELEAUSE成绩SELEBUSE学生STORE0TOS1,S27ACCEPT‘输入学号=’TOAA=ALLT(A)LOCAFOR学号=AIFFOUND()S=姓名SELEALOCAFOR学号=ADOWHILE!EOF()S1=S1+1S2=S2+成绩CONTINUEENDDOS2=S2/S1?S,S2ELSE?’找不到该学号’ENDIFCLOSEALLSETTALKON【供选择的答案】(21)当输入学号为951003时,输出值S为(21)。A、李华B、王平C、赵峰D、罗浩(22)当输入学号为951003时,输出值S2为(22)。A、78B、90C、95D、84(23)当输入为951时,输出值S为(23)。A、李华B、王平C、赵峰D、罗浩(24)当输入为951时,输出值S2为(24)。A、88B、95.5C、85.25D、84二、面向对象程序设计(1小题,共28分)说明:根据题目要求,利用面向对象程序设计方法在相应对象的事件中编写代码。(1)表单的界面布局已基本完成,与表单有关的表文件已经添加到数据环境中;(2)表单界面中除已经说明设置好的属性外,其他必要的属性一律在事件代码中设置;(3)事件代码中可能涉及的主要属性、事件及方法列表如下,仅供参考:AdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearValidIntervalVisible8编制一个自动显示成绩表中成绩的表单。表单控件的初始布局界面如图1所示,文本框一、控件已与字段绑定。具体要求:1)在form1的init中完成相应属性的设置,文本框控件以只读方式显示。初始运行界面,如图2所示;2)单击“开始”后,对成绩表中记录,每秒一条记录,自动逐条在表单中显示。当到达文件尾时又返回到首记录。当成绩不及格时,成绩文本框(TXT成绩)中成绩用红字显示。3)单击“停止”后,则停止显示。图1初始布局界面图2运行初始界面92009年秋浙江省高等学校计算机等级考试试卷(二级Foxpro)参考答案1.A2.C3.D4.D5.B6.C7.A8.B9.C10.A11.D12.B13.B14.C15.D16.A17.A18.C19.D20.B21.A22.D23.B24.C面向对象程序设计(1)form1的init事件&&LABEL的Caption属性设置THISFORM.CAPTION=自动显示成绩THISFORM.COMMAND1.CAPTION=开始THISFORM.COMMAND2.CAPTION=停止&&Timer1的设置THISFORM.TIMER1.INTERVAL=1000&&设置初始状态THISFORM.TIMER1.ENABLED=.F.THISFORM.SETALL(“READONLY”,.T.,’TEXTBOX’)(2)command1的click事件THISFORM.TIMER1.ENABLED=.T.(3)command2的click事件THISFORM.TIMER1.ENABLED=.F.(4)TIMER1的TIMER事件SKIPIFEOF()GotopENDIFIf成绩60Thisform.txt成绩.forecolor=rgb(255,0,0)ElseThisform.txt成绩.forecolor=rgb(0,0,0)endifTHISFORM.REFRESH&&或者THIS.txt学号.READONLY=.T.THIS.txt课程号.READONLY=.T.THIS.txt成绩.READONLY=.T.