原创力文档- 1、本文档共9页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
VFP程序设计典型例题汇总
4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
clear
input“请输入一百分制成绩”tocj
docase
casecj=90
?”A”
casecj=80
?”B”
casecj=70
?”C”
casecj=60
?”D”
otherwise
?”E”
endcase
5．编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。
clear
inputtom
fori=0tomstep2
??str(i,5)
Endfor
6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。
clear
inputtom
s=0
fori=2tomstep2
s=s+i
Endfor
?s
7．编写程序，从键盘输入5个数，找出其中的最大数和最小数。
clear
input请输入第一个数tomax
min=max
fori=2to5
?请输入第+str(i,2)+个数
inputtoa
ifamax
max=a
endif
ifamin
min=a
endif
endfor
?max=,max
?min=,min
8．利用数组编写程序，从键盘输入10个数，再按逆序输出。
dimea(10)
fori=1to10
inputtoa(i)
endfor
fori=10to1step-1
?a(i)
endfor
9．编写程序，逐条显示STUDENT表中的男生记录（显示一个记录后，由用户按任意键来显示下一个记录）。
usestudent
scanfor性别=”男”
disp
wait
endscan
use
10．编写程序，自STUDENT表的最后一个记录开始向前逐个显示（显示一个记录后，由用户按任意键来显示上一个记录）。
usestudent
gobott
dowhilenotbof()
disp
wait
skip-1
enddo
use
11．先在STUDENT表中插入一个新字段：平均成绩（数值型,6,2）。然后编写程序，根据GRADE表统计每个学生的平均成绩，并填入新插入的字段中。
select学号,avg(成绩)as平均成绩fromgradegroupby学号intotablet
uset
indexon学号totxh
sele2
usestudent
indexon学号tosxh
setrelato学号intot
replall平均成绩witht-平均成绩
12．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153＝13+53+33。
inputtozrs
gw=zrs%10
sw=int(zrs/10)%10
bw=int(zrs/100)
ifbw**3+sw**3+gw**3=zrs
?”yes!”
else
?”no.”
Endif
13．编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回逻辑真，否则，返回逻辑假。编写主程序，输入一个三位自然数，调用自定义函数判断该数是否为水仙花数。
clear
inputton
ifsxh(n)
?”yes”
else
?”no”
endif
functionsxh
parazrs
gw=zrs%10
sw=int(zrs/10)%10
bw=int(zrs/100)
ifbw**3+sw**3+gw**3=zrs
return.t.
else
return.f.
endif
endfu
14．编写程序，输入一个自然数，判断该数是否为素数。
clear
inputtozrs
sf=.t.
fori=2tosqrt(zrs)
ifzrs%i=0
sf=.f.
exit
endif
endfor
ifsf=.t.
?”yes”
else
?”no”
Endif
15．编写一个自定义函数，判断一个自然数是否为素数，返回一个逻辑值。编写主程序，调用自定义函数求100～200间的所有素数。
fori=100to200
ifprime(i)
??i
endif
endfor
functi
文档评论（0）