22．下列程序的功能是：计算S=1! + 2! + …… + 10！的值。请完成程序填空。

　　 S=0

　　 FOR N=1 TO 10

　　 P=1

　　 FOR I=1 TO N

　　 ________

　　 ENDFOR

　　 ________

　　 ENDFOR

　　 ? "SUM=",S

　　 以下23、24、25题均使用第四章上机题中的XSXK.DBC数据库。

　　 23．下面程序的功能是：根据输入的课程名，显示所有学生的学号、姓名和成绩。请完成程序填空。

　　 set talk off

　　 clear

　　 local kcm , key

　　 open database xsxk

　　 do while ______

　　 __________ ’课程名称：’ to kcm

　　 select ________________________ from 学生 , 选课 ;

　　 where ______________________________ and __________ in ;

　　 ( select 课程号 from 课程 where ________________ )

　　 wait "按[Y]键继续，按其它键退出程序！" to key

　　 if upper(key) <> ’Y’

　　 exit

　　 endif

　　 enddo

　　 close all

　　 return

　　 24．下面程序的功能是：使用模糊查询，在学生姓名中查找包含输入字符的学生，如果存在，使用SQL SELECT语句显示满足查询条件的学生信息；否则，使用WAIT语句提示“没有发现”。请完成程序填空。

　　 set talk off

　　 clear

　　 open database xsxk

　　 use 学生

　　 accept "请输入学生姓名：" to xsxm

　　 locate all for xsxm $ 姓名

　　 if found()

　　 ________________________________________________

　　 else

　　 ______________________

　　 endif

　　 close all

　　 return

　　 25．下面程序的功能是：根据键入的学生学号判断该学生是否存在，如果存在，使用SQL SELECT语句显示该学生的学号、姓名和平均成绩。请完成程序填空。

　　 set talk off

　　 close all

　　 open database xsxk

　　 private xh , key

　　 select 1

　　 use 学生 order tag 学号

　　 do while .t.

　　 clear

　　 accept "请输入学号：" to xh

　　 select 1

　　 seek xh

　　 if found()

　　 select 学生.学号,姓名,avg(成绩) as 平均成绩 from 学生 , 选课 ;

　　 where ______________________________ and __________________

　　 else

　　 wait "该学号的学生不存在，按任意键继续！"

　　 endif

　　 wait "如果退出，请按[Y]键！" to ______

　　 if upper(key) = ______

　　 ______

　　 endif

　　 enddo

　　 close all

　　 return

　　 26．设有零件表P.DBF，其记录如下：

　　下列程序运行后，在屏幕上显示的结果是______。

　　 SET TALK OFF

　　 SELECT 1

　　 UPDATE P SET WEIGHT = WEIGHT-2 WHERE COLOR = ’蓝’

　　 INSERT INTO P VALUES(’P7’ , ’PN7’ , ’红’ , 20)

　　 SELECT PNO FROM P WHERE WEIGHT = ;

　　 ( SELECT MAX(WEIGHT) FROM P ) INTO CURSOR M_PNO

　　 ? PNO

　　 RETURN

　　 三、上机题

　　 27．试编一程序，根据输入的月份显示当前季节的名称，若月份为3、4、5，则为春季；若月份为6、7、8，则为夏季，若月份为9、10、11，则为秋季；若月份为12、1、2，则为冬季。

　　 28．试编一程序，可将输入的任意百分制的成绩转换为相应的等级分制，90～100分为优秀，80～89分为良好，70～79分为中等，60～69分为及格，60分以下为不及格。

　　 29．试编一程序，计算Y = 1 + 3 + 5 + 7 + …… + n，其中n为正奇数，可任意输入。