vfp程序设计典型例题汇总

《vfp程序设计典型例题汇总》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VisualFxoPro程序设计题1．编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。usestudent&&运行前单击教学管理数据库input“请输入某日期:”torq*输入时有提示，或inputtorq输入时无提示，输{^1987-01-01}browsefor出生日期>rq2．有一函数：x（x<1)y=2x-1（1≤x＜10)3x-11（x≥10）编写程序，输入x，输出y的值。clearinput"Enterxplease!"toxifx<1y=xelse

2、ifx<10y=2*x-1elsey=3*x-11endifendif?'x=',x,'y=',y3．编写程序，从键盘输入一个年份，判断它是否闰年。clearinput"Enteryearnumberplease!"toyify%4=0andy%100<>0ory%400=0?y,"isaleapyear!"else?y,"isnotleapyear."Endif4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，80～89分为“B”，70～79分为“

3、C”，60～69分为“D”，60分以下为“E”。clearinput“请输入一百分制成绩”tocjdocasecasecj>=90?”A”casecj>=80?”B”casecj>=70?”C”casecj>=60?”D”otherwise?”E”endcase5．编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。clearinputtomfori=0tomstep2??str(i,5)Endfor6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。clearinputtoms=

4、0fori=2tomstep2s=s+iEndfor?s7．编写程序，从键盘输入5个数，找出其中的最大数和最小数。clearinput"请输入第一个数"tomaxmin=maxfori=2to5?"请输入第"+str(i,2)+"个数"inputtoaifa>maxmax=aendififa

5、10to1step-1?a(i)endfor9．编写程序，逐条显示STUDENT表中的男生记录（显示一个记录后，由用户按任意键来显示下一个记录）。usestudentscanfor性别=”男”dispwaitendscanuse10．编写程序，自STUDENT表的最后一个记录开始向前逐个显示（显示一个记录后，由用户按任意键来显示上一个记录）。usestudentgobottdowhilenotbof()dispwaitskip-1enddouse11．先在STUDENT表中插入一个新字段：平均成绩（数值型,6

6、,2）。然后编写程序，根据GRADE表统计每个学生的平均成绩，并填入新插入的字段中。select学号,avg(成绩)as平均成绩fromgradegroupby学号intotabletusetindexon学号totxhsele2usestudentindexon学号tosxhsetrelato学号intotreplall平均成绩witht->平均成绩12．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153＝13

7、+53+33。inputtozrsgw=zrs%10sw=int(zrs/10)%10bw=int(zrs/100)ifbw**3+sw**3+gw**3=zrs?”yes!”else?”no.”Endif13．编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回逻辑真，否则，返回逻辑假。编写主程序，输入一个三位自然数，调用自定义函数判断该数是否为水仙花数。clearinputtonifsxh(n)?”yes”else?”no”endiffunctionsxhparazrsgw=zrs%10sw=

8、int(zrs/10)%10bw=int(zrs/100)ifbw**3+sw**3+gw**3=zrsreturn.t.elsereturn.f.endifendfu14．编写程序，输入一个自然数，判断该数是否为素数。clearinputtozrssf=.t.fori=2tosqrt(zrs)ifzrs%i=0sf=.f.exitendifendforifsf=.t.?”yes”else?”no”