VFP程序设计典型例题汇总
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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=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