五、程序填空题
51.下面程序的功能是输入自然数N，调用自定义函数P，计算：
S=1*1+(1*1+2*2)+……+(1*1+2*2+……N*N)，请在程序中填空，使其完整正确。
SET TALK OFF
CLEAR
S=0
INPUT "请输入自然数：" TO N
S=S+_______①_________
"S=",S
SET TALK ON
FUNCTION P
___________②__________
SS=0
FOR K=1 TO X
SS=SS+K*K
ENDFOR
________③_______
CANCEL
ENDFUNC
52.过程P1的功能是计算X的平方，下面程序的功能是调用过程P1来计算1，2，……9的平方，请在程序中填空，使其完整正确。
CLEAR
K=1
DO WHILE ________①_____10
_________②_________
M
K=K+1
ENDDO
RETURN
PROCDURE P1
P ARAMETERS X
_______③_______ M=X*X
RETURN六、程序分析题
53.写下列程序的运行结果
SET TALK OFF
K=1
A1=10
A2=A1+5
A3=A1-5
A4=A1+A2
S=100
DO WHILE K<5
STORE "A"+STR(K,1) TO M
S=S+2*&M
K=K+2
ENDDO
S
RETURN
执行上述程序，运行结果是：_____________________
54.设表文件XSK.DBF的内容如下：
阅读下列程序，写出程序的运行结果：
SET TALK OFF
CLEAR
USE XSK
COPY TO CK1 FOR 出生日期>CTOD("01/01/84")
USE CK1
APPEND FROM XSK FOR 学号<"19980200"
GO BOTTOM
RECNO( )，学号，姓名
USE
SET TALK ON
RETURN
执行上述程序，运行结果是：_____________________
七、程序设计题
55.已有计算机等级考试数据库表DJKS.DBF，字段包括考号(类型N，宽度5)，姓名(类型C，宽度6)、笔试成绩(类型N，宽度3)，上机成绩(类型N，宽度3)和平均成绩(类型N，宽度4)，但各成绩字段为空;另有成绩数据库CJ.DBF。字段包括考号(类型C，宽度5)、 考场编号(类型C，宽度3)、笔试成绩(类型N，宽度3)和上机成绩(类型N，宽度3)，考生的考试成绩已录入其中。请编写程序PROGB.PRG，保存在c:\ata\temp\420202\1234567\dit\GAE\temp，要求把考生的考试成绩填写到数据库表DJKS.DBF中，然后再计算笔试和上机成绩的平均成绩，填入各记录“平均成绩”字段中、最后生成一个与DJSK.DBF结构完全相同的不及格数据库BJG.DBF，把平均成绩不及格的考生记录复制到不及格库。注意：按多工作区，用DO WHILE ……ENDDO循环结构完成，不得使用APPEND FROM命令。
八、操作题
56.(1)在“c:\ata\temp\420202\1234567\VFT”下建立项目SALES_M.PJX。
(2)把“c:\ata\temp\420202\1234567\VFT”中的数据库CUST_M加入SALES_M项目中。
(3)为CUST_M数据库中CUST表增加字段：联系电话C(12)，字段值允许“空”。
(4)CUST_M数据库中ORDER1表“送货方式”字段设计默认值为“铁路”。
57.在C:\ATA\temp\420202\1234567\VFT文件夹，对“雇员管理”数据库完成如下操作：建立一个名称为VIEW1的视图，查询每个雇员的部门号、部门名、雇员号、姓名、性别、年龄和EMAIL。 58.建立一个名称为menu1的菜单，菜单栏有“文件”和“浏览”两个菜单。“文件”菜单下有“打开”、“退出”两个子菜单;“浏览”菜单下有“部门浏览”和“雇员浏览”二个子菜单。
