VFP程序设计典型例题汇总

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=xelseifx<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分为“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=0fori=2tomstep2s=s+iEndfor?selse?”no”endiffunctionsxhparazrsgw=zrs%10sw=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”Endif15．编写一个自定义函数，判断一个自然数是否为素数，返回一个逻辑值。编写主程序，调用自定义函数求100～200间的所有素数。fori=100to200ifprime(i)??iendifendforfunctionprimeparazrssf=.t.forj=2tosqrt(zrs)ifzrs%j=0sf=.f.exitendifendforreturnsfendfunc16.九九乘法表（1）矩形样式ClearForI=1to10&&外循环I控制输出9行?ForJ=1to9&&内循环J控制第I行输出9项??str(I,1)+”×”+str(J,1)+”=”+str(I*J,2)&&输出I*J项??”“EndforEndforReturn17.阶乘（1）求单个数阶乘（以5为例）ClearJ=1I=1Dowhilei<=5J=j*i