VFP程序设计典型例题汇总.docx

1、Visual FxoPro程序设计题1编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。use student &运行前单击教学管理数据库input “请输入某日期:” to rq*输入时有提示，或input to rq输入时无提示，输1987-01-01browse for 出生日期rq2有一函数： x （x1) y= 2x-1 （1x10) 3x-11 （x10）编写程序，输入x，输出y的值。clearinput Enter x please! to xif x1 y=xelse if x10 y=2*x-1 else y=3*x-11 end

2、ifendif? x=,x,y=,y3编写程序，从键盘输入一个年份，判断它是否闰年。clearinput Enter year number please! to yif y%4=0 and y%1000 or y%400=0? y,is a leap year!else? y,is not leap year.Endif4编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，8089分为“B”，7079分为“C”，6069分为“D”，60分以下为“E”。clearinput “请输入一百分制成绩” to cjdo case case cj=

3、90 ?” A”case cj=80 ?” B”case cj=70 ?” C” case cj=60 ?” D”otherwise ?” E”endcase5编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。clear input to mfor i=0 to m step 2 ?str(i,5)Endfor6编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。clear input to ms=0for i=2 to m step 2 s=s+iEndfor? s7编写程序，从键盘输入5个数，找出其中的最大数和最小数。clearinput 请输入第一个数 to m

4、axmin=maxfor i=2 to 5? 请输入第+str(i,2)+个数input to aif amax max=aendifif a平均成绩12写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为15313+53+33。input to zrsgw=zrs%10sw=int(zrs/10)%10bw=int(zrs/100)if bw*3+sw*3+gw*3=zrs ?”yes!”else ?”no.”Endif13编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回逻辑真，否则，返

5、回逻辑假。编写主程序，输入一个三位自然数，调用自定义函数判断该数是否为水仙花数。clearinput to nif sxh(n) ?”yes”else ?”no”endiffunction sxhpara zrsgw=zrs%10sw=int(zrs/10)%10bw=int(zrs/100)if bw*3+sw*3+gw*3=zrs return .t.else return .f.endifendfu14编写程序，输入一个自然数，判断该数是否为素数。clearinput to zrssf=.t.for i=2 to sqrt(zrs) if zrs%i=0 sf=.f.exit endif

6、endforif sf=.t. ?”yes”else ?”no”Endif15编写一个自定义函数，判断一个自然数是否为素数，返回一个逻辑值。编写主程序，调用自定义函数求100200间的所有素数。for i=100 to 200 if prime(i) ?iendif endforfunction primepara zrssf=.t.for j=2 to sqrt(zrs) if zrs%j=0 sf=.f.exit endifendforreturn sfendfunc16.九九乘法表（1）矩形样式ClearFor I=1 to 10 &外循环I控制输出9行 ?For J=1 to 9 &内循环J控制第I行输出9项 ?str(I,1)+”+str(J,1)+”=”+str(I*J,2) &输出I*J项?” “EndforEndforReturn17.阶乘（1）求单个数阶乘（以5为例）ClearJ=1I=1Do while i=5J=j*iI=i+1Enddo?jReturn（2）求阶乘和（求1到5阶乘的和）ClearS=0I=1J=1Do while i=5J=j*iS=s+jI=i+1Enddo?sReturn