VFP程序设计典型例题汇总

Visual FxoPro程序设计题
1．编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。

use student &&运行前单击教学管理数据库
input “请输入某日期:” to r q
*输入时有提示，或input to rq输入时无提示，输{^1987-01-01}
browse for 出生日期>rq
2．有一函数：
x （x<1)
y= 2x-1 （1≤x＜10)
3x-11 （x≥10）
编写程序，输入x，输出y的值。

clear
input "Enter x please!" to x
if x<1
y=x
else
if x<10
y=2*x-1
else
y=3*x-11
endif
endif
? 'x=',x,'y=',y
3．编写程序，从键盘输入一个年份，判断它是否闰年。

clear
input "Enter year number please!" to y
if y%4=0 and y%100<>0 or y%400=0
? y,"is a leap year!"
else
? y,"is not leap year."
Endif
4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。

90分以上为“A”，80～89分为“B”，70～79分为
“C”，60～69分为“D”，60分以下为“E”。

clear
input “请输入一百分制成绩” to cj
do case
case cj>=90
?” A”
case cj>=80
?” B”
case cj>=70
?” C”
case cj>=60
?” D”
otherwise
?” E”
endcase
5．编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。

clear
input to m
for i=0 to m step 2
??str(i,5)
Endfor
6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。

clear
input to m
s=0
for i=2 to m step 2
s=s+i
Endfor
? s
7．编写程序，从键盘输入5个数，找出其中的最大数和最小数。

clear
input "请输入第一个数" to max
min=max
for i=2 to 5
? "请输入第"+str(i,2)+"个数"
input to a
if a>max
max=a
endif
if a<min
min=a
endif
endfor
? 'max=',max
? 'min=',min
8．利用数组编写程序，从键盘输入10个数，再按逆序输出。

dime a(10)
for i=1 to 10
input to a(i)
endfor
for i=10 to 1 step -1
? a(i)
endfor
9．编写程序，逐条显示STUDENT表中的男生记录（显示一个记录后，由用户按任意键来显示下一个记录）。

use student
scan for 性别=”男”
disp
wait
endscan
use
10．编写程序，自STUDENT表的最后一个记录开始向前逐个显示（显示一个记录后，由用户按任意键来显示上一个记录）。

use student
go bott
do while not bof()
disp
wait
skip -1
enddo
use
11．先在STUDENT表中插入一个新字段：平均成绩（数值型,6,2）。

然后编写
程序，根据GRADE表统计每个学生的平均成绩，并填入新插入的字段中。

select 学号,avg(成绩)as 平均成绩 from grade group by 学号 into table t
use t
index on 学号 to txh
sele 2
use student
index on 学号 to sxh
set rela to 学号 into t
repl all 平均成绩 with t->平均成绩
12．写程序，输入一个三位自然数，判断该数是否为水仙花数。

所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。

例如，153是水仙花数，因为153＝13+53+33。

input to zrs
gw=zrs%10
sw=int(zrs/10)%10
bw=int(zrs/100)
if bw**3+sw**3+gw**3=zrs
?”yes!”
else
?”no.”
Endif
13．编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回逻辑真，否则，返回逻辑假。

编写主程序，输入一个三位自然数，调用自定义函数判断该数是否为水仙花数。

clear
input to n
if sxh(n)
?”yes”
else
?”no”
endif
function sxh
para zrs
gw=zrs%10
sw=int(zrs/10)%10
bw=int(zrs/100)
if bw**3+sw**3+gw**3=zrs
return .t.
else
return .f.
endif
endfu
14．编写程序，输入一个自然数，判断该数是否为素数。

clear
input to zrs
sf=.t.
for i=2 to sqrt(zrs)
if zrs%i=0
sf=.f.
exit
endif
endfor
if sf=.t.
?”yes”
else
?”no”
Endif
15．编写一个自定义函数，判断一个自然数是否为素数，返回一个逻辑值。

编写主程序，调用自定义函数求100～200间的所有素数。

for i=100 to 200
if prime(i)
??i
endif
endfor
function prime
para zrs
sf=.t.
for j=2 to sqrt(zrs)
if zrs%j=0
sf=.f.
exit
endif
endfor
return sf
endfunc
16.九九乘法表
（1）矩形样式
Clear
For I=1 to 10 &&外循环I控制输出9行
?
For J=1 to 9 &&内循环J控制第I行输出9项
??str(I,1)+”×”+str(J,1)+”=”+str(I*J,2) &&输出I*J项??”“
Endfor
Endfor
Return
17.阶乘
（1）求单个数阶乘（以5为例）
Clear
J=1
I=1
Do while i<=5
J=j*i
I=i+1
Enddo
?j
Return
（2）求阶乘和（求1到5阶乘的和）
Clear
S=0
I=1
J=1
Do while i<=5
J=j*i
S=s+j
I=i+1
Enddo
?s Return。