VFP程序设计典型例题汇总

1、Pro 程序设计题STUDENT中该日期以后出生的学生VisualF1. 编写程序，从键盘输入一个日期， 信息并显示在浏览窗口中。运行前单击教学管理数据库use stude nt&&input“请输入某日期：” to r输入时无提示，输“987-01-01*输入时有提示，或input to rq browse for 出生日期>rq2. 有一函数：（XV1） （1< X < 10）（X > 10）Xy= 2x-1 Y3X-11编写程序，输入X，输出y的值。clearinpu t "E nter x pl ease!" to xif x

2、<1y=xelseif x<10y=2*x-1elsey=3*x-11en difen dif'x=',x,'y=',y判断它是否闰年。3. 编写程序，从键盘输入一个年份，clearinpu t "E nter year nu mber p lease!" to yif y%4=0 and y%100<>0 or y%400=0y,"is a lea p year!"elsey,"is not lea p year."En dif4 .编写程序，输入一个百分制成绩，要求输出成绩等

3、级“A”、“ B”、“C、“ D、“ E”。90分以上为“ A”，8089分为“ B”，7079分为 “C”，6069分为“D, 60分以下为“ E”。clearinput “请输入一百分制成绩” to cjdo casecase cj>=90” A ”case cj>=80” B ”case cj>=70” C ”case cj>=60” D ”otherwise” E ”endcase5. 编写程序，从键盘输入一个正整数M输出M内(包括M所有偶数。 clearinput to mfor i=0 to m step 2str(i,5)Endfor6. 编写程序，从键盘

4、输入一个正整数M计算M内(包括M所有偶数之和。 clearinput to m s=0for i=2 to m step 2s=s+iEndfors7编写程序，从键盘输入 5 个数，找出其中的最大数和最小数。 clearinput " 请输入第一个数 " to maxmin=maxfor i=2 to 5"请输入第"+str(i,2)+" 个数"input to aif a>maxmax=aendifif a<minmin=aendifendfor'max=',max'min=',min 8

5、利用数组编写程序，从键盘输入 10 个数，再按逆序输出。dime a(10)for i=1 to 10input to a(i)endforfor i=10 to 1 step -1a(i)endfor9.编写程序，逐条显示 STUDEN表中的男生记录(显示一个记录后，由用户按 任意键来显示下一个记录)。use studentscan for 性别 =”男”dispwaitendscanuse10.编写程序，自STUDENT!的最后一个记录开始向前逐个显示(显示一个记 录后，由用户按任意键来显示上一个记录)。use studentgo bottdo while not bof()dispwai

6、tskip -1enddouse11.先在STUDENT!中插入一个新字段：平均成绩(数值型，6,2 )。然后编写 程序，根据GRAD表统计每个学生的平均成绩，并填入新插入的字段中。select 学号 ,avg( 成绩 )as 平均成绩 from grade group by 学号 intotable tuse tindex on 学号 to txhsele 2use studentindex on 学号 to sxhset rela to 学号 into trepl all 平均成绩 with t-> 平均成绩 12写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数 是指

7、一个三位自然数，其各位数字立方和等于该数本身。例如， 153 是水仙花 数，因为 153= 13+53+33。input to zrsgw=zrs%10 sw=int(zrs/10)%10 bw=int(zrs/100)if bw*3+sw*3+gw*3=zrs»I »” yes! ”else”no. ”Endif 13编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回 逻辑真，否则，返回逻辑假。编写主程序，输入一个三位自然数，调用自定义 函数判断该数是否为水仙花数。clearinput to nif sxh(n)”yes”else”no”endiffunct

8、ion sxh para zrsgw=zrs%10 sw=int(zrs/10)%10 bw=int(zrs/100)if bw*3+sw*3+gw*3=zrsreturn .t.elsereturn .f.endifendfu 14编写程序，输入一个自然数，判断该数是否为素数。clearinput to zrssf=.t.for i=2 to sqrt(zrs) if zrs%i=0 sf=.f.exitendifendforif sf=.t.”yes”else”no”Endif15编写一个自定义函数，判断一个自然数是否为素数，返回一个逻辑值。编 写主程序，调用自定义函数求100200间的所

9、有素数。for i=100 to 200if prime(i)iendifendforfunction primepara zrssf=.t.for j=2 to sqrt(zrs) if zrs%j=0 sf=.f.exitendifendforreturn sfendfunc16. 九九乘法表（1）矩形样式ClearFor I=1 to 10 && 外循环 I 控制输出 9 行For J=1 to 9 && 内循环 J 控制第 I 行输出 9项str（l,1）+” X” +str（J,1）+” 二” +str（l*J,2） && 输出 I*J 项»ccEndforEndforReturn17. 阶乘 （1）