vf参考答案与评分标准.doc

Visual FoxPro 2007年4月笔试试题参考答案与评分标准一、单选题（30分，每小题1分）1234567891011121314151617181920ACDDCBADBDBACCDCCBDA21222324252627282930ADADCBCCBC二、判断题（10分，每小题1分）12345678910三、填空题（20分，每空2分）1.（1）min(工资) (2) 教授$职称 或 职称=教授 OR职称=副教授 (3) =502. (4) date()(5) Endcase(6) coth3. (7) with 数学，语文,zf(8) skip4. (9) avg(成绩)(10) group by 课程号四、程序分析（20分，每小题5分）1. 姓名 性别 班级 总分张萧 女 班 5202. 1+1+2+1+2+3+1+2+3+4+1+2+3+4+5+= 353. 20 30 40100 200 4020 3 44. 8五、程序设计（20分）（1）8分，评分标准：循环语句4分，累乘3分，输出1分clears=1for n=1 to 5s=s*nendfor?”5的阶乘为：”,sreturn（2）12分，评分标准：更新4分，临时关联4分，汇总和输出4分select 1use rxsreplace all 营业额 with 数量*单价select 2use yyyindex on 营业员代码 tag dmselect rxsset relation to 营业员代码 into yyyaccept “输入营业员代码：” to dm?”代码：”+dmlocate for 营业员代码=dm?“姓名：”+yyy.姓名+“ 性别：”+ yyy.性别List 品名,营业额 for 营业员代码=dm offsum 营业额 to x1 for 营业员代码=dm?” 营业额：”,x1ReturnVisual FoxPro 2007年4月上机试题参考答案与评分标准1.（共40分）本大题不给参考答案。评分标准如下：正确建立2个表的数据结构（表结构设计正确）20分数据正确15分永久关联正确5分2（共30分）每小题10分。参考答案如下。（1）VFP命令：USE GZBREPLACE ALL实发工资 WITH 基本工资+津贴+奖金-公积金SQL命令：UPDATE GZB SET 实发工资=基本工资+津贴+奖金-公积金（2） VFP命令：SELECT 1USE zgbINDEX ON 职工号 TAG ZGHSELECT 2USE gzbSET RELATION TO 职工号 INTO ZGBLIST 职工号,ZGB.姓名,基本工资,实发工资 FOR NOT ZGB.婚否CLOSE ALLSQL命令：SELECT GZB.职工号,姓名,基本工资,实发工资 FROM ZGB,GZB WHERE ZGB.职工号=GZB.职工号 AND NOT ZGB.婚否（3）VFP命令：USE GZB calculate avg(奖金),sum(实发工资) to a,b ?”平均奖金：”,a,” 实发工资总额：”,bSQL命令：select avg(奖金) as平均奖金,sum(实发工资) as实发工资总额from gzb3（共30分）界面设计（10分）主要属性、事件代码：1）text1 、text2和text3的value属性值均为0（5分）2）text2的GotFocus事件代码：（5分）x1=thisform.text1.valuethis.value=round(3.14159*x12,2)3）text3的GotFocus事件代码：（5分）x2=thisform.text1.valuethis.value=round(2*3.14159*x2,2)4）“关闭”按钮的Click事件代码：thisform.release （5分）Visual FoxPro2007年11月笔试试题参考答案与评分标准单选题（每小题1分）1234567891011121314151617181920CBABBBBBDCCDACBDCBBC21222324252627282930DDABCBAABC判断题（每小题1分）12345678910填空题（每空2分）1（1）教授$职称 (2)MIN(工资) (3)年龄=50 or 工资=MIN(工资)2.(4)exit (5)delete3.(6)销售价*销售量 （7）AND （8）2 (或者销售量)4.(9) NOT 性别 (10) T=T+1四、程序分析（每小题5分）17 21 35 4925 22 2 203西部开发在重庆4123 u1 75 456 u2 110 789 u3 300五、程序设计（20）（1）8分，评分标准：循环语句4分，累加3分，输出1分ClearS=0For i=1 to 100 step 2S=s+i endfor?”100以内的奇数和为:”,sreturn(2)12分,评分标准:循环输入4分,临时关联4分,输出4分方法1: 利用VFP语言实现clearset safety offsele 1use XSDAindex on 学号 tag xhsele 2use XSCJset relation to 学好 into xsdado while .T.accept”请输入学生的学号:” to xhif len(alltrim(xh)=0 exitendif?”姓名 专业班级 课程名 成绩”scan for 学号=xh ?xsda.姓名,xsda.专业班级,课程名,成绩Endscanenddoclose allset safety onreturn方法2:利用SELECT-SQL语言实现:Clear allDo while .T. accept “请输入学生的学号:” to xh if len(alltrim(xh)=0 exit endfiselect 姓名,专业班级,课程名,成绩; from xscj,xsda where xsda.学号=xh and xscj.学号=xsda.学号 to screen enddoVisual Foxpro 2007年11月上机考试第一套参考答案与评分标准1. （共40分）本大题不给参考答案。评分标准如下：1) 正确建立2个表的数据结构（表结构设计正确）20分2) 数据正确15分3) 永久关联正确5分2（共30分）每小题10分。SQL参考答案如下。（1）update xs;set 有效期 = 2008-12; (这个题目会误导学生,能够用日期型的,他偏不用日期型)where substr(IC卡号,3,1) =4（2）sele IC卡号,时间,类别,金额;from xf ;where xf.IC卡号 = ( sele xs.IC卡号 from xs where xs.姓名=艾世平)（3）sele 类别,sum(金额) from xf group by 类别3. （共30分）界面设计（10分）主要属性、事件代码：1）form1的load事件代码：（5分）public x,nx=0n=02）“累加”按钮的Click事件代码：（10分）x=x+thisform.text1.valuen=n+1thisform.label2.visible=.t.thisform.label3.visible=.t.thisform.label2.caption=str(x,6)thisform.label3.caption=str(n,4)thisform.text1.setfocusForm1的DblClick事件代码：this.release （5分）Visual Foxpro 2007年11月上机考试第二套参考答案与评分标准1.（共40分）本大题不给参考答案。评分标准如下：1） 正确建立2个表的数据结构（表结构设计正确）20分2） 数据正确15分3） 永久关联正确5分2（共30分）每小题10分。SQL参考答案如下。（1）sele jy.书号,jy.日期,jy.有效期,jy.借阅人,tuj.书名;from jy,tuj ;where 有效期2007.10.153（共30分）界面设计（10分）主要属性、事件代码：1）form1的load事件代码：（5分）public x,nx=0n=02）“算平均”按钮的Click事件代码：（10分）x=x+thisform.text1.valuen=n+1thisform.label2.visible=.t.thisform.label3.visible=.t.thisform.label2.caption=str(x/n,6,1)thisform.label3.caption=str(n,4)thisform.text1.setfocus3）Form1的DblClick事件代码：this.release （5分）Visual Foxpro 2007年11月上机考试第三套参考答案与评分标准1.（共40分）本大题不给参考答案。评分标准如下：1) 正确建立2个表的数据结构（表结构设计正确）20分2) 数据正确15分3) 永久关联正确5分2（共30分）每小题10分。SQL参考答案如下。（1）update logo set 流量=(16*3600)-(val(left(登陆,2)*3600+val(subs(登陆,4,2)*60)where 结束=onlineupdate logo set 流量=(val(left(结束,2)*3600+val(subs(结束,4,2)*60)-(val(left(登陆,2)*3600+val(subs(登陆,4,2)*60) where 结束online这个有点难度,也就是同一个题目的难度不对等（2）sele logo.地址,works.区域,logo.日期, logo.开始时间,logo.流量;from logo,works;where logo.地址=works.地址;order by 流量 desc（3）sele 地址,sum(流量) from logo group by 地址3（共30分）界面设计（10分）主要属性、事件代码：1）form1的load事件代码：（5分）public x,nx=0n=2）“统计”按钮的Click事件代码：（10分）x=len(thisform.text1.value)n=upper(thisform.text1.value)thisform.label2.visible=.t.thisform.label3.visible=.t.thisform.label2.caption=str(x,6)thisform.label3.caption=nthisform.text1.setfocus3）Form1的DblClick事件代码：this.release （5分）Visual FoxPro 2008年4月笔试试题参考答案与评分标准单项选择题（30分，每小题1分）12345678910BDDACBCDCC11121314151617181920ABDCCCBADC21222324252627282930DBAABDBCBD 正误判断题（10分，每小题1分）1 2345678910填空题（每空2分，共20分）1tag 编号 或 编号2 .not. eof()3BH,K1,K2,K3,K1+K2+K34x/8int(x/8) 或 mod(x,8)0 或x%8#0 5N=N+16not s1$m 或 AT(s1,m)=07return .T.8THISFORM.TEXT1.VALUE9THISFORM.TEXT1.VALUE=X10THISFORM.RELEASE四、读程序写出运行结果（每小题5分，共20分）1010 女 892753 * * * *420 30 2 4 30 4 2 3五、程序设计题参考答案CLEARINPUT “请输入N的值” TO N (1分)S=0 (1分)T=1 (1分)DO WHILE T=N (2分)S=S+T (1分)T=T+1(1分)ENDDO?”1+2+3+N=”,S(1分)RETURN参考答案Select 1Use xsInde on 学号 tag xhSelect 2Use kcInde on 课程号 tag kchSelect 3Use cjSet relation to 学号 into xsSet relation to 课程号 into kc additiveAccept “输入课程号:” to kchLocate for 课程号=kch？”选修的课程号：”+kch+” 课程号：”+kc.课程号？”学生姓名 成绩”Do while not eof() ?xs.姓名,考试成绩 ContinueEnddoCalculate avg(考试成绩),max(考试成绩),min(考试成绩) to pjf,zgf,zdf for 课程号=kch?”平均分：”,str(pjf,5,1),”最高分：”,str(zgf,5,1),”最低分：”,str(zdf,5,1)ReturnVisual FoxPro 2008年4月上机试题参考答案与评分标准（共40分）评分标准如下：正确建立2个表的数据结构（表结构设计正确）20分数据正确15分永久关联正确5分2（共30分）每小题10分。SQL参考答案如下。1）select top 1 xs.营销员编号,yx.姓名,职务 ;from yx inner join xs on xs.营销员编号=yx.营销员编号 ;order by 数量 desc2）select yx.姓名,产品编号,数量*单价 AS 销售金额,销售月份; from yx inner join xs on xs.营销员编号=yx.营销员编号 ; where xs.营销员编号= any (sele yx.营销员编号 from yx where 职务=主管)3）select 数量*单价 AS 销售金额,销售月份 ;from xs ;group by 销售月份3. （共30分）界面设计（10分）主要属性、事件代码：text1.valid (15分)n=val(thisform.text1.value)if n12 wait windows 月份错误! return .f.endifthisform.label2.visible=.t.do casecase n=3 and n=6 and n=9 and n=40(2) NOT EOF() 或FOUND()(3) CONTINUE(4) MN(6)(5) scatter to MN (6) SKIP(7) 2 (8) exit(9) MIN(出生日期)(10) 职工人数 DESC四、读程序写出运行结果 （每小题5分，共20分）1.3702. 2 1 23 3 33 1 13. 9 0 0 0 9 0 0 0 94. tHIS IS A cpu五、程序设计题 （共20分，每小题10分）参考答案：x=thisform.text1.value if x=0 thisform.release （4分）endifif x%20 (或 mod(x,2)#0 （3分）) thisform.label2.caption= 该数是奇数！ else (3分) thisform.label2.caption= 该数不是奇数！ endif参考答案：解法一：clearclear allset safe offselect 1use zginde on 职工号 tag xh （2分）select 2use jjset relation to 职工号 into zg inde on 奖金 tag jj desc （1分）do while .t. accept 输入部门号： to bmh if len(allt(bmh)=0 （3分）exitendif? 职工姓名 工作年限 奖金 Scan for 部门号=bmh （4分）?zg.姓名, year(date()-year(zg.工作日期),奖金 EndscanEnddoclose allset safe onreturn只写对了第1行给3分，写对了第1、2行给5分，全对7分解法二：cleardo while .t. accept 输入部门号： to bmh （3分）if len(allt(bmh)=0 exitendifselect 姓名,year(date()-year(zg.工作日期) as工作年限,奖金 from zg,jj; （3分）where zg.职工号=jj.职工号 and 部门号=bmh; （5分）order by 奖金 desc （7分）EnddoVisual FoxPro 2008年11月上机试题第一套参考答案与评分标准1.（共40分）评分标准如下：正确建立2个表的数据结构（表结构设计正确）10分数据正确15分数据库正确5分，永久关联正确10分2（共30分）每小题10分。解法一：（1）use XSCJreplace all 平均分 with round(JAVA程序设计+汇编语言+专业英语)/3,1)（2）SELE 1 USE TXL INDEX ON 学号 TO XH SELE 2 USE XSCJ SET RELA TO 学号 INTO A INDEX ON -平均分 TO PJ GO TOP DISP OFF 姓名,平均分,LEFT (A.家庭通信地址,4) SKIP DISP OFF 姓名,平均分,LEFT (A.家庭通信地址,4)（3）SCAN FOR JAVA程序设计60 OR 汇编语言60 OR 专业英语60 ?姓名,A.家长姓名,A.邮编,A.家庭通信地址 ENDSCAN解法二：（1）update