VFP程序设计题汇总.docx

1、VFP程序设计题汇总 Company number：【0089WT-8898YT-W8CCB-BUUT-202108】VFP程序设计题汇总一程序设计题汇总1.通过输入学生的学号（字符型）查找学生，若找到该学生，先输出学号与姓名，然后输出“英语”和“计算机实用技术”成绩。若找不到该学生输出“查无该生”。（设表文件“学生信息”满足题目需要）set talk offclear use 学生信息 accept 请输入学生学号： to xhlocate for 学号=xhif !eof() 学号,姓名 list fiel 英语,计算机实用技术 for 学号=xhelse 查无该生endifuse2.输入

2、学生成绩，并要求：成绩小于60分时，输出“不及格”；成绩在6069分之间时，输出“及格”；成绩在7079之间时，输出“中”；当成绩在8089之间时，输出“良”；当成绩在90100之间时，输出“优”。set talk offclear input 请输入成绩： to cjdo case case cj=90 优秀 case cj =80 良好 case cj =70 中 case cj =60 及格 case cj=75 DISP ENDIF SKIP &按默认值1向下移动记录指针ENDDOUSESET TALK ON方法二：SET TALK OFFCLEARUSE 学生信息locate for

3、 英语成绩=75DO WHILE !EOF() display continueENDDOUSESET TALK ON5.分别用DO循环和FOR循环求1+2+3+36的和值。用DO循环的写法：SET TALK OFFCLEARS=0N=1DO WHILE N=75 DISPLAYENDSCAN USESET 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+20 T=T*(N+1)*(N+2) &从第二

4、项开始，计算每一项阶乘。 S=S+T &追加每一项阶乘 N=N+2 &下一个奇数ENDDOS=,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() &如果没有到表尾，显

5、示姓名与出生年月 姓名,出生年月 CONTINUE &继续指向满足条件的下一条记录ENDDOUSESET TALK ON9.显示输出正整数M（从键盘输入）内的偶数及偶数和。SET TALK OFFCLEARINPUT 输入一个整数： TO M &输入指定的正整数M的值S=0 &初始化存放累加和变量S为0FOR P=1 TO M IF INT(P/2)=P/2 &判断P是否是偶数 P S=S+P &是偶数就把它累加起来 ENDIFENDFORSSET TALK ON10.求解百鸡问题，“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一，百钱百鸡，问鸡翁、母、雏各几何”note 设公鸡、母鸡、小鸡的

6、数量分别为x、y、z。set talk offclearfor x=0 to 20 for y=0 to 33 z=100-x-y if 5*x+3*y+z/3=100 公鸡数, 母鸡数, 小鸡数 x,y,z endif endforendforset talk on 11.从键盘任意输入两个整数，求出最小公倍数和最大公约数。SET TALK OFFCLEARINPUT 输入第一个整数： TO NINPUT 输入第二个整数： TO MX=MAX(N,M) &大的有可能是最小公倍数FOR I=X TO M*N &如果X不是最小公倍数，M*N一定是公倍数，但不一定是最小公倍数。 IF MOD(I,

7、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”表文件中包含有“学号”、“姓名”字段，对学号编制一个抽奖表单。要求，不能有重复中奖学生。程序运行时，字号在文本框中显示，用标签显示中奖学生的学号、姓名。应有“开始

8、”、“抽取”、“退出”控件。建议表单（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 &恢复已做删除标记的所有记录 （5）计时器（Timer1）

9、的Timer事件代码：if !eof() &如果不到记录尾 skip &跳到下一记录，频率由Timer值决定。Else &如果已到记录尾 go top &跳到第一条记录endif13.编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能；表单初始显示内容为表文件“学生.dbf”的首记录；当按前翻、后翻、首记录、末记录按钮时，表单将自动显示相应记录的内容；当翻至表头或表尾时，将自动设置相应按钮不可访问。参见下面的表单设计及运行示意图。表单（Form1）的Init（初始化）事件代码“首记录”（Command1）的Click（单击）事件代码 go top“上一记录”（Command2）的Cl

10、ick（单击）事件代码if !bof() skip -1elseendif“下一记录”（Command3）的Click（单击）事件代码if !eof() skipelseendif“未记录”（Command4）的Click（单击）事件代码 go bottom14. 编制一个显示当前时间的时钟显示界面，要求每秒动态跳动一次，并将表单的背景设置蓝，绿两色自动变换（与时间同步切换），Timer1的Interval属性已在属性窗口中设置完成。请编写计时器（Timer1）的Timer事件代码：if val(right(time(),2)%2=0 &如果秒值是2秒的整数倍。 =rgb(0,255,0) &

11、表单背景为绿色else =rgb(0,0,255) &表单背景为篮色endif15.请设计一个右图所示的表单。表单实现的功能是：单击字体按钮和颜色按钮，“欢迎使用VFP！”的字体和颜色会随之改变。表单（Form1）包括的控件有：两个命令按钮组（Commandgroup1、Commandgroup2）、一个标签（Label1）。请写出相应控件的事件代码。请写出：（1）命令按钮组Commandgroup1的Click事件代码。（2）命令按钮组Commandgroup2的Click事件代码。命令按钮组Commandgroup1的Click事件代码do case case =1 case =2 case =3 case =4endcase命令按钮组Commandgroup2的Click事件代码do case case =1 case =2 case =3 case =4endcase