VFP程序设计题汇总.docxVIP

一． 程序设计题汇总 通过输入学生的学号（字符型）查找学生，若找到该学生，先输出学号与姓名，然后输出“英语” 和“计算机实用技术”成绩。若找不到该学生输出“查无该生”。（设表文件“学生信息”满足题目需要） set talk off clear use 学生信息 accept 请输入学生学号： to xh locate for 学号 ==xh if !eof() ?学号 ,姓名 list fiel 英语 ,计算机实用技术  for  学号 =xh else ?查无该生  endif use 输入学生成绩，并要求：成绩小于 60 分时，输出“不及格” ；成绩在 60～ 69 分之间时，输出“及格”；成绩在 70～ 79 之间时，输出“中” ；当成绩在 80～ 89 之间时，输出“良” ；当成绩在 90～ 100 之间时，输出“优” 。 set talk off clear input 请输入成绩： to cj do case case cj=90 ?优秀 case cj =80 ?良好 case cj =70 ?中 case cj =60 ?及格 case cj60 ?不及格 otherwise ?数据有误 endcase set talk on 按学号在“学生信息 .dbf”文件中查找并显示指定的记录。要求可以重复查询，找到则显示该生的记录，找不到则提示“查无此人！ ”，按非“ Y ”、“ y”可结束查询。 SET TALK OFF CLEAR USE 学生信息 设当前目录下表文件存在 ACCEPT  学号查询吗（  Y/N ）？  TO  cx  循环条件的初始化 DO WHILE cx=Y.OR.cx=y  大小写均可执行查询 CLEAR ACCEPT LOCATE  请输入学号： TO ALL FOR 学号 =xh  xh  此处  ALL  可以缺省，默认为在全部记录查找。 IF EOF() ?查无此人！ WAIT ELSE DISPLAY ENDIF ACCEPT 继续按学号查询吗（ Y/N ）？ TO cx 修改循环条件 ENDDO SET TALK ON USE 4. 逐条显示“学生信息 .dbf ”文件中“英语成绩”大于等于 75 的记录。 方法一： SET TALK OFF CLEAR USE 学生信息 DO WHILE !EOF() IF 英语成绩 =75 DISP ENDIF SKIP 按默认值 ENDDO USE SET TALK ON  1 向下移动记录指针 方法二： SET TALK OFF CLEAR USE 学生信息 locate for 英语成绩 =75 DO WHILE !EOF() display continue ENDDO USE SET TALK ON 分别用 DO 循环和 FOR 循环求 1+2+3+ +36 的和值。用 DO 循环的写法： SET TALK OFF CLEAR S=0 N=1 DO WHILE N=36 S=S+N N=N+1 ENDDO 1+2+3+ +36 的值为： , S SET TALK ON 用 FOR 循环的写法： SET TALK OFF CLEAR S=0 FOR N=1 TO 36 S=S+N ENDFOR 1+2+3+ +36 的和值： , S SET TALK ON 6. 用“ SCAN ENDSCAN 循环结构”显示“学生信息 .dbf ”文件中“英语成绩”大于等于 75 的记录。 SET TALK OFF CLEAR USE 学生信息 SCAN FOR 英语成绩 =75 DISPLAY ENDSCAN USE SET TALK ON 7. 求当 1！ +3 ！+5！ + +n! 的值不超过 10 的 20 次幂时的临界值及 n 的值。 SET TALK OFF CLEAR S=1  初始化存放累加和的变量  S 为  1 STORE 1 TO T,N  初始化变量  T ，N  的值为  1 DO WHILE S=1E+20 T=T*(N+1)*(N+2) S=S+T  从第二项开始，计算每一项阶乘。 追加每一项阶乘 N=N+2  下一个奇数 ENDDO ?S=,S-T ?N=,N-2  最后一个 S 由于是多加了一个 T 后不满足条件，故减去。 最后一个 N 由于是多加了一个 2 后不满足条件，故减去。 SET TALK ON 在程序所在的目录中已有学生表（学生.Dbf ）（字段为：学号，姓名，性别，出生年月，简历，奖学 金，照片）。要求：显示输出“学生”表中的 1975 年或以前出生的学生姓名和出生年月。 SE