以往笔试填空、程序、编程序题.docVIP

三、填空题（每空2分，共20分） 1、定义一个一维数组MN，将数据表XZ.DBF（6个字段）中的每条记录存入该数组，并将该数组的值依次显示出来，请填空。 CLEAR DIMENSION MN(6) USE XZ DO WHILE .NOT. EOF( ) SCATTER TO MN L=1 DO WHILE L 7 ??MN(L) L=L+1 ENDDO SKIP ? ENDDO USE 2、已知某单位教师工资表JS.DBF有如下记录： Record# 编号 姓名 年龄 工资 1 3001 李丽珍 36 690 2 3002 刘苏 51 1680 3 3003 末言 22 820 4 3004 魏虎豹 46 960 5 3005 罗山 40 1100 6 3006 甘甜 30 920 7 3007 丰潇潇 47 1200 下列程序用于统计工资表JS.DBF中40岁以上（包括40岁）的教师的平均工资。请完成填空。 USE JS S＝0 N＝0 LOCATE FOR 年龄 ＝40 DO WHILE NOT EOF( ) S＝S＋工资 N＝N＋1 CONTINUE ENDDO ? S/N USE 3、已知数据表“职工.DBF”（职工号，姓名，性别，出生日期，部门号，……）和“部门.DBF”（部门号，部门名，部门经理……）。请填空完成相应任务的SQL语句。 ①查询每个部门年龄最长者的信息，要求得到的信息包括部门名和最长者的出生日期。 SELECT 部门名, MIN(出生日期) FROM 部门 JOIN 职工 ON 部门.部门号＝职工.部门号 GROUP BY 部门名 ②查询有10名以上（含10名）职工的部门信息（部门名和职工人数），并按职工人数降序排列。 SELECT 部门名,COUNT(职工号) AS 职工人数 FROM 部门,职工 WHERE 部门.部门号＝职工.部门号 GROUP BY 部门名 HAVING COUNT(*) ＝10 ORDER BY 职工人数 DESC 4、设计如图1所示的表单，文本框Text1的Value初值为0。表单运行后，输入一个整数回车后，即可判断出该数是不是素数，如图2所示。请填空完成。（素数又称质数，是指除了1和该数本身以外不能被其它任何整数整除的数。） 图1 表单设计界面 图2 表单运行界面 Text1的Valid事件代码： N=thisform.text1.value L= 2 DO WHILE LN IF INT(N/L)=N/L EXIT ENDIF L=L+1 ENDDO IF L ＝N thisform.label2.caption=alltrim(str(N))+是素数 ELSE thisform.label2.caption=alltrim(str(N))+不是素数 ENDIF 四、阅读程序题（每小题5分，共20分） 1、有一程序如下，请写出运行结果。 CLEAR DIMENSION A(3，3) FOR I＝1 TO 3 FOR J＝1 TO 3 IF I J A(I，J)＝0 ELSE A(I，J)＝9 ENDIF ?? A(I，J) ENDFOR ? ENDFOR CANCEL 运行结果为： 9 0 0 0 9 0 0 0 9 2、表文件（积分.dbf）如下表所示。 积分.dbf 学号（C） 积分（N） 2201 40 2202 70 2203 50 2204 20 2201 10 2202 70 2203 60 2208 40 2205 30 写出一下程序运行的结果。 USE 积分 STORE 0 TO X，Y，Z SCAN