VFP程序设计题汇总

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
skip -1 mand3.enabled=.t. mand4.enabled=.t. else mand1.enabled=.f. mand2.enabled=.f. endif thisform.refresh “下一记录”（Command3）的Click（单击）事件代码 if !eof() skip mand1.enabled=.t. mand2.enabled=.t. else mand3.enabled=.f. mand4.enabled=.f. endif thisform.refresh “未记录”（Command4）的Click（单击）事件代码 go bottom mand4.enabled=.f. mand3.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. thisform.refresh
14. 编制一个显示当前时间的时钟显示界面，要求每秒动态跳动一次， 并将表单的背景设置蓝，绿两色自动变换（与时间同步切换）， Timer1的Interval属性已在属性窗口中设置完成。
请编写计时器（Timer1）的Timer事件代码： 表单设计界面 表单运行界面 thisform.text1.value=time() &&使文本框显示系统时间 if val(right(time(),2))%2=0 &&如果秒值是2秒的整数倍。 thisform.backcolor=rgb(0,255,0) &&表单背景为绿色 else thisform.backcolor=rgb(0,0,255) &&表单背景为篮色
请编ቤተ መጻሕፍቲ ባይዱ：
（1） 表单Form1的Init事件代码： 单击“选中”界面 表单设计界面 this.text1.value="学生学号" &&文本框显示初值“学生学号” bel2.visible=.f. &&标签label2不可见 this.timer1.enabled=.f. &&计时器timer1不可用 this.timer1.interval=10 &&计时器时间间隔为10/1000 秒（即0.01秒）
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 ?"中"
SET TALK OFF CLEAR INPUT "输入第一个整数： " TO N INPUT "输入第二个整数： " TO M X=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”便跳出循环 ENDIF ENDFOR ? "最小公倍数= "+ltrim(STR(GBS))," 最大公约数= "+ltrim(STR(GYS)) SET TALK ON 12. 在给定“学生.DBF”表文件中包含有“学号”、“姓名”字段，对学号编 制一个抽奖表单。要求，不能有重复中奖学生。程序运行时，字号 在文本框中显示，用标签显示中奖学生的学号、姓名。应有“开 始”、“抽取”、“退出”控件。建议表单（Form1）包括的控件是：一 个文本框（Text1）、两个标签（Label1、Label2）、三个按钮 （Command1、Command2、Command3）和一个计时器 （Timer1）。
7. 求当1！+3！+5！+…+n!的值不超过10的20次幂时的临界值及n的 值。 SET TALK OFF CLEAR S=1 &&初始化存放累加和的变量S为1 STORE 1 TO T,N &&初始化变量T，N的值为1 DO WHILE S<=1E+20 T=T*(N+1)*(N+2) &&从第二项开始，计算每一项阶乘。 S=S+T &&追加每一项阶乘 N=N+2 &&下一个奇数 ENDDO ?"S=",S-T &&最后一个S由于是多加了一个T后不满足条件，故 减去。 ?"N=",N-2 &&最后一个N由于是多加了一个2后不满足条 件，故减去。 SET TALK ON 8. 在程序所在的目录中已有学生表（学生.Dbf）（字段为：学号，姓 名，性别，出生年月，简历，奖学金，照片）。要求：显示输 出“学生”表中的1975年或以前出生的学生姓名和出生年月。 SET TALK OFF CLEAR USE 学生 LOCATE FOR 出生年月<={^1975-12-31} &&定位满足出生年月的记 录 DO WHILE !EOF() &&如果没有到表尾，显示姓名与出生年月 ?姓名,出生年月 CONTINUE &&继续指向满足条件的下一条记录 ENDDO USE SET TALK ON
（2） “开始”按钮Command1的Click事件代码： set delete on &&隐藏已加入删除标记的记录 thisform.timer1.enabled=.t. &&使计时器可用 bel2.visible=.f. &&标签label2不可见 （3） “选中”按钮Command2的Click事件代码： thisform.timer1.enabled=.f. bel2.caption="中奖学生是：学号 "+ thisform.text1.value+" 姓名"+姓名 bel2.visible=.t. delete （4） “退出”按钮Command3的Click事件代码： recall all &&恢复已做删除标记的所有记录 thisform.release （5） 计时器（Timer1）的Timer事件代码： if !eof() &&如果不到记录尾 skip &&跳到下一记录，频率由Timer值决定。 Else &&如果已到记录尾 go top &&跳到第一条记录 endif thisform.text1.value=alltrim(学号) &&显示学生的学号 thisform.refresh