VFP程序设计题

VisualFxoPro程序设计题1．编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。usestudent&&运行前单击教学管理数据库input“请输入某日期:”torq*输入时有提示，或inputtorq输入时无提示，输入{^1987-01-01}browsefor出生日期rq2．有一函数：x（x1)y=2x-1（1≤x＜10)3x-11（x≥10）编写程序，输入x，输出y的值。clearinputEnterxplease!toxifx1y=xelseifx10y=2*x-1elsey=3*x-11endifendif?'x=',x,'y=',y3．编写程序，从键盘输入一个年份，判断它是否闰年。clearinputEnteryearnumberplease!toyify%4=0andy%1000ory%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)next6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。clearinputtoms=0fori=2tomstep2s=s+inext?s7．编写程序，从键盘输入5个数，找出其中的最大数和最小数。clearinput请输入第一个数tomaxmin=maxfori=2to5?请输入第+str(i,2)+个数inputtoaifamaxmax=aendififaminmin=aendifendfor?'max=',max?'min=',min8．利用数组编写程序，从键盘输入10个数，再按逆序输出。dimea(10)fori=1to10inputtoa(i)endforfori=10to1step-1?a(i)endfor9．编写程序，逐条显示STUDENT表中的男生记录（显示一个记录后，由用户按任意键来显示下一个记录）。usestudentscanfor性别=”男”dispwaitendscanuse10．编写程序，自STUDENT表的最后一个记录开始向前逐个显示（显示一个记录后，由用户按任意键来显示上一个记录）。usestudentgobottdowhilenotbof()dispwaitskip-1enddouse11．先在STUDENT表中插入一个新字段：平均成绩（数值型,6,2）。然后编写程序，根据GRADE表统计每个学生的平均成绩，并填入新插入的字段中。select学号,avg(成绩)as平均成绩fromgradegroupby学号intotabletusetindexon学号totxhsele2usestudentindexon学号tosxhsetrelato学号intotreplall平均成绩witht-平均成绩12．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153＝13+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=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．编写程序，输出如图5-12所示的图形。clearfori=1to5?space(6-i)+repl(‘*’,2*i-1)endffori=1to4?space(i+1)+repl(‘+’,9-2*i)endf17.九九乘法表（1）矩形样式ClearForI=1to10&&外循环I控制输出9行?ForJ=1to9&&内循环J控制第I行输出9项??str(I,1)+”×”+str(J,1)+”=”+str(I*J,2)&&输出I*J项??”“EndforEndforReturn（2）斜向下样式FORn=1TO9s=ALLT(STR(n-1))i=ALLT(STR(n))THISFORM.LIST1.ADDLISTITEM(*,1,1)THISFORM.LIST1.ADDLISTITEM(i,n+1,1)图5-12实验题16的输出图形*************************++++++++++++++++FORt=nTO9i=ALLT(STR(n))THISFORM.LIST1.ADDLISTITEM(i,1,n+1)s=ALLT(STR(t*n))THISFORM.LIST1.ADDLISTITEM(ALLT(STR(t))+*+ALLT(STR(n))+=+s,t+1,n+1)ENDFORENDFOR18.阶乘（1）求单个数阶乘（以5为例）ClearJ=1I=1Dowhilei=5J=j*iI=i+1Enddo?jReturn（2）求阶乘和（求1到5阶乘的和）ClearS=0I=1J=1Dowhilei=5J=j*iS=s+jI=i+1Enddo?sReturn另外方法：settalkoffclearnFact=1ForlnCnt=1To5nFact=nFact*lnCntEndFor?nFact