原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
二级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分
文档评论（0）