2008-2VisualFoxPro参考答案.docVIP

二级Visual FoxPro语言笔试试题（A） 参考答案及评分标准 一、单项选择题 （每小题1分，共30分） 1~5 BCDBB 6~10CAAAB 11~15DDDAB 16~20ACDBD 21~25CACCD 26~30CBCAC 二、判断题（每小题1分，共10分） 1~10××√×√√√√√× 三、填空题 （每空2分，共20分） (1) 年龄=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.300 2. 2 1 2 3 3 3 3 1 1 3. 9 0 0 0 9 0 0 0 9 4. tHIS IS A cpu 五、程序设计题 （共20分，每小题10分） 参考答案： x=thisform.text1.value if x=0 thisform.release （4分） endif if x%20 (或 mod(x,2)#0 （3分）) thisform.label2.caption= 该数是奇数！ else (3分) thisform.label2.caption= 该数不是奇数！ endif 参考答案： 解法一： clear clear all set safe off select 1 use zg inde on 职工号 tag xh （2分） select 2 use jj set relation to 职工号 into zg inde on 奖金 tag jj desc （1分） do while .t. accept 输入部门号： to bmh if len(allt(bmh))=0 （3分） exit endif ? 职工姓名 工作年限 奖金 Scan for 部门号=bmh （4分） ?zg.姓名, year(date())-year(zg.工作日期),奖金 Endscan Enddo close all set safe on return 解法二： clear do while .t. accept 输入部门号： to bmh （3分） if len(allt(bmh))=0 exit endif select 姓名,year(date())-year(zg.工作日期) as工作年限,奖金 from zg,jj; （3分）where zg.职工号=jj.职工号 and 部门号=bmh; （5分） order by 奖金 desc （7分） Enddo 只写对了第1行给3分， 写对了第1、2行给5分， 全对7分