VFP程序设计典型例题汇总
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
V i s u a l F x o P r o程序设计题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”。
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
endif
if a 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表统计每个学生的平均成绩，并填入新插入的字段中。 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)