vfp程序设计题汇总.pdfVIP

1． 程序设计题汇总 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 cj 60 ?不及格 otherwise ?数据有误 endcase set talk on 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 CLEAR USE 学生信息 locate for 英语成绩 75 DO WHILE !EOF() display continue ENDDO USE SET TALK ON 5. 分别用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