SET TALK OFF CLEAR SELECT B USE 学生成绩 INDEX ON 学号TO XH TEmP SELECT B USE TEMP SELECT A USE 学生

JOIN WITH B TO 总成绩 FOR学号 =B->学号FIELDS 成绩 USE 总成绩 LIST CLOSE ALL

57.计算由键盘输入小于10的自然数的阶乘 SET TALK OFF CLEAR DO WHILE .T.

INPUT “请输入小于10的自然数” TO N IF N<=0.OR. N>=10.OR. INT(N)!=N ?“输入的数值不符合要求” LOOP ENDIF EXIT

学号，姓名，B->ENDDO S=1

FOR I=1 TO N ENDFOR ? S

58.根据所给数据表查询英语成绩超过90分的学生的学号、姓名、课程名和成绩信息。 SET TALK OFF CLEAR

SELECT 学生.学号，姓名，课程名，成绩 FROM 学生，课程，学生成绩；

.AND.学生成绩.课程号=课程.课程号.AND. 成绩>90.AND.课程名=“英语” CLOSE ALL

59.求1到50之间的所有奇数的立方和 SET TALK OFF CLEAR S=0 X=1

DO WHILE X<=50 S=S+X**3 ENDDO

? S

60.设计显示学生各科成绩的表单 CJB.SCX，执行界面如图1所示。该表单的数据环境已正确设置。为了正确显示学生的各种信息，其中“姓名”文本框的 属性应正确设置为“学生.姓名”。

学生成绩表 学号 080001 姓名 王小丽 课程名 英语 成绩 93 上一条 下一条

61.上一题（60题）中表单中的按钮“下一条”的功能是在表单中显示下一条记录。其Click事件代码如下： SKIP IF EOF() GO BOTTOM ENDIF

( )

七、 程序改错题

62.由数据表“学生.DBF”按出生日期进行降序排列，生成新表“NEW.DBF”,新表中包括有学号、姓名、出生日期三个字段 （1）SET TALK OFF （2）CLEAR

（3）USE 学生

（4）SORT TO 出生日期/D ON NEW （5）FIELDS 学号，姓名，出生日期 （6）USE NEW （7）LIST （8）CLOSE ALL 错误行是： 改为：

63.根据数据表“学生成绩.dbf”,求出所有学生的英语（课程号为101）平均成绩

（1）SET TALK OFF （2）CLEAR （3）USE 学生成绩 （4）A=0 （5）N=0

（6）LOCATE FOR 课程号=“101” （7）DO WHILE .NOT.EOF() （8）N=N+1 （9）A=A+成绩 （10）SKIP （11）ENDDO

（12）? “平均英语成绩”+STR(A/N,5,1) （13）USE

错误行是： 改为：

64.为数据表“学生.DBF”增加一个字段“籍贯（C（16））”，并显示修改后的表结构 （1）SET TALK OFF （2）CLEAR

（3）ALTER TABLE 学生 alter 籍贯 C（16） （4）USE学生 （5）LIST （6）USE

错误行是： 改为：

65.先从字符串S中找出某个指定字符（本例为空格），再以此字符为界拆分成两个字符串，并分两行显示 （1）SET TALK OFF （2）CLEAR

（3）STORE “Visual FoxPro” TO S （4）N=AT(s, “ ”) （5）B=Left(S,N-1) （6）C=RIGHT(S, N) （7）?B （8）?C

错误行是： 改为：