VFP程序设计题
一．程序设计题汇总
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
?"不及格"
otherwise
?"数据有误"
endcase
set talk on
3.按学号在“学生信息.dbf”文件中查找并显示指定的记录。要求可以重复查询，找到则显示该生的记录，找不到则提示“查无此人！”，按非“Y”、“y”可结束查询。
SET TALK OFF
CLEAR
USE 学生信息 &&设当前目录下表文件存在
ACCEPT '学号查询https://www.doczj.com/doc/611612199.html,/b-5d46134968dc5022aaea998fcc22bcd127ff42e4.html吗（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
方法一：
SET TALK OFF
CLEAR
USE 学生信息
DO WHILE !EOF()
IF 英语成绩>=75
DISP
ENDIF
SKIP &&按默认值1向下移动记录指针
ENDDO
USE
方法二：
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
S=S N
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的和值：", S
SET TALK ON
6.用“SCAN…ENDSCAN循环结构”显示“学生信息.dbf”文件中“英语成绩”大于等于75的记录。
CLEAR
USE 学生信息
SCAN FOR 英语成绩>=75
DISPLAY
ENDSCAN
USE
SET TALK ON
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
T=T*(N 1)*(N 2) &&从第二项开始，计算每一项阶乘。
S=S T &&追加每一项阶乘
N=N 2 &&下一个奇数
?"S=",S-T &&最后一个S由于是多加了一个T后不满足条件，故减去。
?"N=",N-2 &&最后一个N由于是多加了一个2后不满足条件，故减去。
SET TALK ON
8.在程序所在的目录中已有学生表（学生.Dbf）（字段为：学号，姓名，性别，出生年月，简历，奖学金，照片）。要求：显示输出“学生”表中的1975年或以前出生的学生姓名和出生年月。
SET TALK OFF
CLEAR
USE 学生
LOCATE FOR 出生年月
DO WHILE !EOF() &&如果没有到表尾，显示姓名与出生年月
?姓名,出生年月
CONTINUE &&继续指向满足条件的下一条记录
ENDDO
USE
SET TALK ON
9.显示输出正整数M（从键盘输入）内的偶数及偶数和。
CLEAR
INPUT "输入一个整数：" TO M &&输入指定的正整数M的值
S=0 &&初始化存放累加和变量S为0
FOR P=1 TO M
IF INT(P/2)=P/2 &&判断P是否是偶数
?P
S=S P &&是偶数就把它累加起来
ENDIF
ENDFOR
?S
SET TALK ON
10.求解百鸡问题，“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一，百钱百鸡，问鸡翁、母、雏各几何？”
set talk off
clear
for 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
endfor
endfor
set talk on
11.从键盘任意输入两个整数，求出最小公倍数和最大公约数。
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”表文件中包含有“学号”、“姓名”字段，对学号编制一个抽奖表单。要求，不能有重复中奖学生。程序运行时，字号在文本框中显示，用标签显示中奖学生的学
本框（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 &&跳到第一条记录
endif
thisform.refresh
13.编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能；表单初始显示内容为表文件“学生.dbf”的首记录；当按前翻、后翻、首记录、末记录按钮时，表单将自动显示相应记录的内容；当翻至表头或表尾时，将自动设置相应按钮不可访问。参见下面的表单设计及运行示意图。
表单（Form1）的Init（初始化）事件代码
“首记录”（Command1）的Click（单击）事件代码
go top
thisform.refresh
“上一记录”（Command2）的Click（单击）事件代码
skip -1
else
endif
thisform.refresh
“下一记录”（Command3）的Click（单击）事件代码
if !eof()
skip
else
endif
thisform.refresh
“未记录”（Command4）的Click（单击）事件代码
go bottom
thisform.refresh
14.编制一个显示当前时间的时钟显示界面，要求每秒动态跳动一次，并将表单的背景设置蓝，绿两色自动变换（与时间同步切换），Timer1的Interval 属性已在属性窗口中设置完成。
请编写计时器（Timer1）的Timer 事件代码：
if val(right(time(),2))%2=0 &&如果秒值是2秒的整数倍。
thisform.backcolor=rgb(0,255,0) &&表单背景为绿色
else
thisform.backcolor=rgb(0,0,255) &&表单背景为篮色
endif
15.请设计一个右图所示的表单。表单实现的功能是：单击字体按钮和颜色按钮，“欢迎使用VFP ！”的字体和颜色会随之改变。表单（Form1）包括的控件有：两个命令按钮组（Commandgroup1、Commandgroup2）、一个标签（Label1）。请写出相应控件的事件代码。
请写出：
（1）命令按钮组Commandgroup1的Click 事件代码。
（2）命令按钮组Commandgroup2的Click 事件代码。
命令按钮组Commandgroup1的Click 事件代码
do case
case this.value=1
case this.value=3
case this.value=4
endcase
命令按钮组Commandgroup2的Click 事件代码
do case
case this.value=1
case this.value=2
表单设计界面
表单运行界面
case this.value=3 case this.value=4 endcase