vfp程序设计题汇总

《vfp程序设计题汇总》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一．程序设计题汇总1.通过输入学生的学号（字符型）查找学生，若找到该学生，先输出学号与姓名，然后输出“英语”和“计算机实用技术”成绩。若找不到该学生输出“查无该生”。（设表文件“学生信息”满足题目需要）settalkoffclearuse学生信息accept"请输入学生学号："toxhlocatefor学号==xhif!eof()?学号,姓名listfiel英语,计算机实用技术for学号=xhelse?"查无该生"endifuse2.输入学生成绩，并要求：成绩小于60分时，输出“不及格”；成绩在60～69分之间时，输出“及格”；成绩在70～79之间时，输出“中”；

2、当成绩在80～89之间时，输出“良”；当成绩在90～100之间时，输出“优”。settalkoffclearinput"请输入成绩："tocjdocasecasecj>=90?"优秀"casecj>=80?"良好"casecj>=70?"中"casecj>=60?"及格"casecj<60?"不及格"otherwise?"数据有误"endcasesettalkon1.按学号在“学生信息.dbf”文件中查找并显示指定的记录。要求可以重复查询，找到则显示该生的记录，找不到则提示“查无此人！”，按非“Y”、“y”可结束查询。SETTALKOFFCLEARUSE学生信息&

3、&设当前目录下表文件存在ACCEPT'学号查询吗（Y/N）？'TOcx&&循环条件的初始化DOWHILEcx='Y'.OR.cx='y'&&大小写均可执行查询CLEARACCEPT'请输入学号：'TOxhLOCATEALLFOR学号=xh&&此处ALL可以缺省，默认为在全部记录查找。IFEOF()?'查无此人！'WAITELSEDISPLAYENDIFACCEPT'继续按学号查询吗（Y/N）？'TOcx&&修改循环条件ENDDOSETTALKONUSE2.逐条显示“学生信息.dbf”文件中“英语成绩”大于等于75的记录。方法一：SETTALKOFFCLEARUSE

4、学生信息DOWHILE!EOF()IF英语成绩>=75DISPENDIFSKIP&&按默认值1向下移动记录指针ENDDOUSESETTALKON方法二：SETTALKOFFCLEARUSE学生信息locatefor英语成绩>=75DOWHILE!EOF()displaycontinueENDDOUSESETTALKON1.分别用DO循环和FOR循环求1+2+3+……+36的和值。用DO循环的写法：SETTALKOFFCLEARS=0N=1DOWHILEN<=36S=S+NN=N+1ENDDO?"1+2+3+……+36的值为：",SSETTALKON用FOR循环的写

5、法：SETTALKOFFCLEARS=0FORN=1TO36S=S+NENDFOR?"1+2+3+……+36的和值：",SSETTALKON1.用“SCAN…ENDSCAN循环结构”显示“学生信息.dbf”文件中“英语成绩”大于等于75的记录。SETTALKOFFCLEARUSE学生信息SCANFOR英语成绩>=75DISPLAYENDSCANUSESETTALKON2.求当1！+3！+5！+…+n!的值不超过10的20次幂时的临界值及n的值。SETTALKOFFCLEARS=1&&初始化存放累加和的变量S为1STORE1TOT,N&&初始化变量T，N的值为1DO

6、WHILES<=1E+20T=T*(N+1)*(N+2)&&从第二项开始，计算每一项阶乘。S=S+T&&追加每一项阶乘N=N+2&&下一个奇数ENDDO?"S=",S-T&&最后一个S由于是多加了一个T后不满足条件，故减去。?"N=",N-2&&最后一个N由于是多加了一个2后不满足条件，故减去。SETTALKON3.在程序所在的目录中已有学生表（学生.Dbf）（字段为：学号，姓名，性别，出生年月，简历，奖学金，照片）。要求：显示输出“学生”表中的1975年或以前出生的学生姓名和出生年月。SETTALKOFFCLEARUSE学生LOCATEFOR出生年月<={^19

7、75-12-31}&&定位满足出生年月的记录DOWHILE!EOF()&&如果没有到表尾，显示姓名与出生年月?姓名,出生年月CONTINUE&&继续指向满足条件的下一条记录ENDDOUSESETTALKON1.显示输出正整数M（从键盘输入）内的偶数及偶数和。SETTALKOFFCLEARINPUT"输入一个整数："TOM&&输入指定的正整数M的值S=0&&初始化存放累加和变量S为0FORP=1TOMIFINT(P/2)=P/2&&判断P是否是偶数?PS=S+P&&是偶数就把它累加起来ENDIFENDFOR?SSETTALKON2.求解百鸡问题，“鸡翁一，值钱五；鸡

8、母一，值钱