VFP程序设计题汇总

一．程序设计题汇总1.通过输入学生的学号（字符型）查找学生，若找到该学生，先输出学号与姓名，然后输出“英语”和“计算机实用技术”成绩。

若找不到该学生输出“查无该生”。

（设表文件“学生信息”满足题目需要）set talk offclearuse 学生信息accept "请输入学生学号：" to xhlocate for 学号==xhif !eof()?学号,姓名list fiel 英语,计算机实用技术 for 学号=xhelse?"查无该生"endifuse2.输入学生成绩，并要求：成绩小于60分时，输出“不及格”；成绩在60～69分之间时，输出“及格”；成绩在70～79之间时，输出“中”；当成绩在80～89之间时，输出“良”；当成绩在90～100之间时，输出“优”。

set talk offclearinput "请输入成绩： " to cjdo casecase cj>=90?"优秀"case cj >=80?"良好"case cj >=70?"中"case cj >=60?"及格"case cj<60?"不及格"otherwise?"数据有误"endcaseset talk on3.按学号在“学生信息.dbf”文件中查找并显示指定的记录。

要求可以重复查询，找到则显示该生的记录，找不到则提示“查无此人！”，按非“Y”、“y”可结束查询。

SET TALK OFFCLEARUSE 学生信息 &&设当前目录下表文件存在ACCEPT '学号查询吗（Y/N）？' TO cx &&循环条件的初始化DO WHILE cx='Y'.OR.cx='y' &&大小写均可执行查询CLEARACCEPT '请输入学号：' TO xhLOCATE ALL FOR 学号=xh &&此处ALL可以缺省，默认为在全部记录查找。

IF EOF()?'查无此人！'WAITELSEDISPLAYENDIFACCEPT '继续按学号查询吗（Y/N）？' TO cx &&修改循环条件ENDDOSET TALK ONUSE4.逐条显示“学生信息.dbf”文件中“英语成绩”大于等于75的记录。

方法一：SET TALK OFFCLEARUSE 学生信息DO WHILE !EOF()IF 英语成绩>=75DISPENDIFSKIP &&按默认值1向下移动记录指针ENDDOUSE方法二：SET TALK OFFCLEARUSE 学生信息locate for 英语成绩>=75DO WHILE !EOF()displaycontinueENDDOUSESET TALK ON5.分别用DO循环和FOR循环求1+2+3+……+36的和值。

用DO循环的写法：SET TALK OFFCLEARS=0N=1DO WHILE N<=36S=S+NN=N+1ENDDO? " 1+2+3+……+36的值为：", SSET TALK ON用FOR循环的写法：SET TALK OFFCLEARS=0FOR N=1 TO 36S=S+NENDFOR? " 1+2+3+……+36的和值：", SSET TALK ON6.用“SCAN…ENDSCAN循环结构”显示“学生信息.dbf”文件中“英语成绩”大于等于75的记录。

CLEARUSE 学生信息SCAN FOR 英语成绩>=75DISPLAYENDSCANUSESET TALK ON7.求当1！+3！+5！+…+n!的值不超过10的20次幂时的临界值及n的值。

SET TALK OFFCLEARS=1 &&初始化存放累加和的变量S为1STORE 1 TO T,N &&初始化变量T，N的值为1DO WHILE S<=1E+20T=T*(N+1)*(N+2) &&从第二项开始，计算每一项阶乘。

S=S+T &&追加每一项阶乘N=N+2 &&下一个奇数ENDDO?"S=",S-T &&最后一个S由于是多加了一个T后不满足条件，故减去。

?"N=",N-2 &&最后一个N由于是多加了一个2后不满足条件，故减去。

SET TALK ON8.在程序所在的目录中已有学生表（学生.Dbf）（字段为：学号，姓名，性别，出生年月，简历，奖学金，照片）。

要求：显示输出“学生”表中的1975年或以前出生的学生姓名和出生年月。

SET TALK OFFCLEARUSE 学生LOCATE FOR 出生年月<={^1975-12-31} &&定位满足出生年月的记录DO WHILE !EOF() &&如果没有到表尾，显示姓名与出生年月?姓名,出生年月CONTINUE &&继续指向满足条件的下一条记录ENDDOUSESET TALK ON9.显示输出正整数M（从键盘输入）内的偶数及偶数和。

CLEARINPUT "输入一个整数：" TO M &&输入指定的正整数M的值S=0 &&初始化存放累加和变量S为0FOR P=1 TO MIF INT(P/2)=P/2 &&判断P是否是偶数?PS=S+P &&是偶数就把它累加起来ENDIFENDFOR?SSET TALK ON10.求解百鸡问题，“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一，百钱百鸡，问鸡翁、母、雏各几何？”note 设公鸡、母鸡、小鸡的数量分别为x、y、z。

set talk offclearfor x=0 to 20for y=0 to 33z=100-x-yif 5*x+3*y+z/3=100?" 公鸡数"," 母鸡数"," 小鸡数"?x,y,zendifendforendforset talk on11.从键盘任意输入两个整数，求出最小公倍数和最大公约数。

SET TALK OFFCLEARINPUT "输入第一个整数：" TO NINPUT "输入第二个整数：" TO MX=MAX(N,M) &&大的有可能是最小公倍数FOR I=X TO M*N &&如果X不是最小公倍数，M*N一定是公倍数，但不一定是最小公倍数。

IF MOD(I,M)=0 AND MOD(I,N)=0 &&在循环控制变量递增的过程中，如果出现能被M和N同时整除(余数为0)，则为公倍数。

GBS=I &&把第一次出现的公倍数（最小公倍数）赋给变量“GBS”。

GYS=M*N/GBS &&最大公约数EXIT &&找到第一个“I”便跳出循环ENDIFENDFOR? "最小公倍数= "+ltrim(STR(GBS))," 最大公约数= "+ltrim(STR(GYS))SET TALK ON12.在给定“学生.DBF”表文件中包含有“学号”、“姓名”字段，对学号编制一个抽奖表单。

要求，不能有重复中奖学生。

程序运行时，字号在文本框中显示，用标签显示中奖学生的学号、姓名。

应有“开始”、“抽取”、“退出”控件。

建议表单（Form1）包括的控件是：一个文本框（Text1）、两个标签（Label1、Label2）、三个按钮（Command1、Command2、Command3）和一个计时器（Timer1）。

请编写：（1）表单Form1的Init事件代码：“学生学号”（2）“开始”按钮Command1的Click事件代码：set delete on &&隐藏已加入删除标记的记录（3）“选中”按钮Command2的Click事件代码：delete（4）“退出”按钮Command3的Click事件代码：recall all &&恢复已做删除标记的所有记录thisform.release（5）计时器（Timer1）的Timer事件代码：表单设计界面单击“选中”界面if !eof() &&如果不到记录尾skip &&跳到下一记录，频率由Timer值决定。

Else &&如果已到记录尾go top &&跳到第一条记录endifthisform.refresh13.编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能；表单初始显示内容为表文件“学生.dbf”的首记录；当按前翻、后翻、首记录、末记录按钮时，表单将自动显示相应记录的内容；当翻至表头或表尾时，将自动设置相应按钮不可访问。

参见下面的表单设计及运行示意图。

表单（Form1）的Init（初始化）事件代码“首记录”（Command1）的Click（单击）事件代码go topthisform.refresh“上一记录”（Command2）的Click（单击）事件代码if !bof()skip -1elseendifthisform.refresh“下一记录”（Command3）的Click（单击）事件代码if !eof()skipelseendifthisform.refresh“未记录”（Command4）的Click（单击）事件代码go bottomthisform.refresh14.编制一个显示当前时间的时钟显示界面，要求每秒动态跳动一次，并将表单的背景设置蓝，绿两色自动变换（与时间同步切换），Timer1的Interval 属性已在属性窗口中设置完成。

请编写计时器（Timer1）的Timer 事件代码：if val(right(time(),2))%2=0 &&如果秒值是2秒的整数倍。

thisform.backcolor=rgb(0,255,0) &&表单背景为绿色elsethisform.backcolor=rgb(0,0,255) &&表单背景为篮色endif15.请设计一个右图所示的表单。