VFP程序设计题汇总.pdfVIP

韦集农职业高级中学 VFP 程序设计讲义 授课： 解安东 一． 程序设计题汇总 1. 通过输入学生的学号（字符型）查找学生，若找到该学生，先输出学号与姓名，然后输出“英语” 和“计算机实用技术”成绩。若找不到该学生输出“查无该生”。（设表文件“学生信息”满足题目需要） set talk off clear use 学生信息 accept 请输入学生学号： to xh locate for 学号==xh if !eof() ?学号,姓名 list fiel 英语,计算机实用技术 for 学号=xh else ?查无该生 endif use 2. 输入学生成绩，并要求：成绩小于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 第 1 页 共 12 页 韦集农职业高级中学 VFP 程序设计讲义 授课： 解安东 3. 按学号在“学生信息.dbf”文件中查找并显示指定的记录。要求可以重复查询，找到则显示该生的 记录，找不到则提示“查无此人！”，按非“Y ”、“y ”可结束查询。 SET TALK OFF CLEAR USE 学生信息 设当前目录下表文件存在 ACCEPT 学号查询吗（Y/N ）？ TO cx 循环条件的初始化 DO WHILE cx=Y.OR.cx=y 大小写均可执行查询 CLEAR ACCEPT 请输入学号： TO xh LOCATE ALL FOR 学号=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 按默认值1 向下移动记录指针 ENDDO USE SET TALK ON 方法二： SET TALK OFF 第 2 页 共 12 页 韦集农职业高级中学 VFP 程序设计讲义 授课： 解安东 CLEAR USE 学生信息 locate for 英语成绩=75 DO WHILE !EOF() display continue ENDD USE SET TALK ON 5.分别用DO循环和FOR循环求1+2+3+……+36的和