程序设计典型例题汇总

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

2、 if x<10 y=2*x-1 else y=3*x-11 endifendif? 'x=',x,'y=',y3编写程序，从键盘输入一个年份，判断它是否闰年。clearinput "Enter year number please!" to yif y%4=0 and y%100<>0 or y%400=0? y,"is a leap year!"else? y,"is not leap year."Endif4编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“

3、D”、“E”。90分以上为“A”，8089分为“B”，7079分为“C”，6069分为“D”，60分以下为“E”。clearinput “请输入一百分制成绩” to cjdo case case cj>=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

4、内（包括M）所有偶数之和。clear input to ms=0for i=2 to m step 2 s=s+iEndfor? s7编写程序，从键盘输入5个数，找出其中的最大数和最小数。clearinput "请输入第一个数" to maxmin=maxfor i=2 to 5? "请输入第"+str(i,2)+"个数"input to aif a>max max=aendifif a<min min=aendifendfor? 'max=',max? 'min=',min8利用数组编写程

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

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

7、字立方和等于该数本身。例如，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编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回逻辑真，否则，返回逻辑假。编写主程序，输入一个三位自然数，调用自定义函数判断该数是否为水仙花数。clearinput to nif sxh(n) ?”yes”else ?”no”endiffunction sxhpara zrsgw=zrs%10sw=int(z

8、rs/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 endifendforif 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.阶