计算机等级考试二级VFP上机试题及解题思路(59)

　　三、综合应用(1小题，计30分)

　　利用表设计器在考生目录下建立表table3，表结构如下：

　　学号 字符型(10)

　　姓名 字符型(6)

　　课程名 字符型(8)

　　分数 数值型(5,1)

　　然后编写程序prog1.prg，从xuesheng表和chengji表中找出所有成绩不及格(分数小于60)的学生信息(学号、姓名、课程名和分数)，并把这些数据保存到表table3中(若一个学生有多门课程不及格，在表table3中就会有多条记录)。表table3中的各记录应该按分数升序排序，分数相同则按学号降序排序。

　　要求在程序中用SET RELATION命令建立chengji表和xuesheng表之间的关联(同时用INDEX命令建立相关的索引)，并通过DO WHILE循环语句实现规定的功能。最后运行程序。

　　本题的主要考核点是自由表的建立以及程序的创建与编写。

　　1.建立表可以使用"文件"菜单完成，选择文件--新建--表--新建文件，在打开的表设计器中依次输入各字段内容。

　　2.建立程序可以使用"文件"菜单完成，选择文件--新建-程序--新建文件，在打开的程序文本框中输入下列命令：

　　SET TALK OFF

　　OPEN DATABASE cj_m

　　SELECT * FROM table3 WHERE .f. INTO TABLE temp

　　SELECT 1

　　USE xuesheng

　　INDEX ON 学号 TAG 学号

　　SELECT 2

　　USE chengji

　　INDEX ON 学号 TAG 学号

　　SET RELATION TO 学号 INTO xuesheng

　　GO TOP

　　DO WHILE .NOT.EOF()

　　IF chengji.数学<60

　　INSERT INTO temp values (xuesheng.学号,xuesheng.姓名,'数学',chengji.数学)

　　ENDIF

　　IF chengji.英语<60

　　INSERT INTO temp values (xuesheng.学号,xuesheng.姓名,'英语',chengji.英语)

　　ENDIF

　　IF chengji.信息技术<60

　　INSERT INTO temp values (xuesheng.学号,xuesheng.姓名,'信息技术',chengji.信息技术)

　　ENDIF

　　SKIP

　　ENDDO

　　SELECT * FROM temp ORDER BY 分数,学号 DESC INTO ARRAY arr

　　INSERT INTO table3 FROM ARRAY arr

　　CLOSE DATABASE

　　CLOSE TABLES ALL

　　DROP TABLE temp

　　SET TALK ON

　　RETURN

　　最后运行程序(本评析仅供参考)。