答案：ABC
第4题 （2.0分） 题号:253
Visual Foxpro中使用了()等几种变量形式. A:字段变量 B:数组变量 C:系统变量 D:内存变量
答案：ABCD
第5题 （2.0分） 题号:349
以下属于结构复合索引文件特点的有(). A:在打开表时自动打开
B:在同一索引文件中能包含多个排序方案 C:在同一索引文件中能包含多索引关键字 D:在添加、更改或删除记录时自动维护
答案：ABCD
━━━━━━━━━━━━━━━━ 五、程序填空 共3题 （共计15分） ━━━━━━━━━━━━━━━━
第1题 （5.0分） 题号:830
*------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*功能: 输入某年某月某日，判断这一天是这一年的第几天？ * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF clear
input \请输入年份：\input \请输入月份：\input \请输入日：\do case
case month=1
***********SPACE********** sum=【?】 case month=2 sum=31 case month=3
sum=59 case month=4 sum=90 case month=5 sum=120 case month=6 sum=151 case month=7 sum=181 case month=8 sum=212 case month=9 sum=243 case month=10 sum=273 case month=11 sum=304 case month=12 sum=334 otherwise
? \数据输入错误\ endcase
***********SPACE********** sum=sum+【?】
if year@0=0 .or. year%4=0 .and.year0!=0 n=1 else n=0 endif
if n=1 .and. month>2
***********SPACE********** sum= 【?】 endif
? \这是这一年的第\天。\set talk on RETURN 答案：
=======(答案1)======= 0
=======(答案2)======= day
=======(答案3)======= sum+1
=========或========= 1+sum
第2题 （5.0分） 题号:846
*------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*功能: 下面程序的功能是输出1到100之间每位数的乘积大于每位 * 数的和的数。例如数字26，数位上数字的乘积12大于数字 * 之和8。
* 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF clear
***********SPACE********** for n=1 to 【?】 k=1 s=0 m=n
do while m>0 k=k*(m)
***********SPACE********** s=s+【?】
***********SPACE********** m=【?】(m/10) endd
***********SPACE********** if k>【?】 ? 'n=',n endif endf
set talk on canc 答案：
=======(答案1)======= 100
=======(答案2)======= m
=======(答案3)======= int
=======(答案4)======= s
第3题 （5.0分） 题号:826
*------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*功能: 现有结构相同的两个数据库，计算机二级库JSJ.DBF和英语 * 四级库YY.DBF,含如下字段内容：学号(C,4),姓名(C,8), * 性别(C,2),专业(C,16)。要求编一程序，将两个数据库中
* 关键字段学号相同的记录从YY.DBF中删除掉，并将其存放 * 到结构相同的ER.DBF库文件中，最后显示ER.DBF库中的记 * 录内容
* 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF SET SAFE OFF SELE 1 USE JSJ
***********SPACE********** COPY 【?】 TO ER INDE ON 学号 TO ER SELE 2 USE YY
SET RELA TO 学号 INTO A GO TOP SELE 3 USE ER SELE 2
DO WHILE .NOT. EOF()
***********SPACE********** IF 学号=【?】 SCAT TO M SELE 3
APPE BLANK
***********SPACE********** 【?】 FROM M SELE 2 DELE ENDIF
SKIP ENDD PACK SELE 3 LIST
CLOSE DATA SET TALK ON RETURN 答案：
=======(答案1)======= STRU
=======(答案2)======= A-> 学号
=========或========= A. 学号
=========或========= JSJ. 学号
=========或========= JSJ-> 学号
=======(答案3)======= GATHER
━━━━━━━━━━━━━━━━ 六、程序改错 共3题 （共计15分） ━━━━━━━━━━━━━━━━
第1题 （5.0分） 题号:786
*------------------------------------------------------- *【程序改错】
*-------------------------------------------------------
*题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等 * 级划分如下：计算机成绩大于等于90显示\优秀\；60到89 * （包括 60和89）之间显示\及格\；60分以下显示\补考\。 * 如显示：张丽娜 90 优秀 。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF