程序设计题 (共20分，第1小题8分，第2小题12分)

　　1、编写一个循环结构程序计算100以内的奇数和

　　2、已知两个数据表：学生档案表XSDA.dbf，有学号、姓名、专业班级(均为字符型)等字段和学生成绩表XSCJ.dbf，有学号(有重复值)、课程名、成绩(数值型)等字段。

　　编写一程序，通过反复输入学生的学号(输入回车键退出)，查询学生的姓名，专业班级，课程名以及成绩情况。

　　1.

　　CLEAR

　　INPUT "请输入N的值：" TO N

　　S=0

　　T=1

　　DO WHILE T<=N

　　S=S+T

　　T=T+1

　　ENDDO

　　?"1+2+3+……+N",S

　　2.

　　CLEAR

　　CLEAR ALL

　　SET SAFE OFF

　　SET TALK OFF

　　SELECT 1

　　USE XS

　　INDEX ON 学号 TAG XH

　　SELECT 2

　　USE KC

　　INDEX ON 课程号 TAG KCH

　　SELECT 3

　　USE CJ

　　SET RELATION TO 学号 INTO XS

　　SET RELATION TO 课程号 INTO KC ADDITIVE

　　ACCEPT "输入课程号：" TO KCH

　　LOCATE FOR 课程号=KCH

　　?"选修的课程号："+KCH+" 课程号"+KC.课程名

　　?"学生姓名 成绩"

　　DO WHILE NOT EOF()

　　?XS.姓名,考试成绩

　　CONTINUE

　　ENDDO

　　CALCULATE AVG(考试成绩),MAX(考试成绩),MIN(考试成绩) TO PJF,ZGF,ZDF FOR 课程号=KCH

　　?"平均分：",STR(PJF,5,1),"最高分：",STR(ZGF,5,1),"最低分：",STR(ZDF,5,1)

　　CLOSE ALL

　　SET TALK ON

　　SET SAFE ON

　　RETURN