VFP程序设计题-新.doc

Visual FxoPro程序设计题 1．编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。 use student 运行前单击教学管理数据库 input “请输入某日期:” to rq *输入时有提示，或input to rq输入时无提示，输入{^1987-01-01} browse for 出生日期rq 2．有一函数： x （x1) y= 2x-1 （1≤x＜10) 3x-11 （x≥10） 编写程序，输入x，输出y的值。 clear input Enter x please! to x if x1 y=x else if x10 y=2*x-1 else y=3*x-11 endif endif ? x=,x,y=,y 3．编写程序，从键盘输入一个年份，判断它是否闰年。 clear input Enter year number please! to y if y%4=0 and y%1000 or y%400=0 ? y,is a leap year! else ? y,is not leap year. endif 4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。 clear input “请输入一百分制成绩” to cj do case case cj=90 ?” A” case cj=80 ?” B” case cj=70 ?” C” case cj=60 ?” D” otherwise ?” E” endcase 5．编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。 clear input to m for i=0 to m step 2 ??str(i,5) next 6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。 clear input to m s=0 for i=2 to m step 2 s=s+i next ? s 7．编写程序，从键盘输入5个数，找出其中的最大数和最小数。 clear input 请输入第一个数 to max min=max for i=2 to 5 ? 请输入第+str(i,2)+个数 input to a if amax max=a endif if amin min=a endif endfor ? max=,max ? min=,min 8．利用数组编写程序，从键盘输入10个数，再按逆序输出。 dime a(10) for i=1 to 10 input to a(i) endfor for i=10 to 1 step -1 ? a(i) endfor 9．编写程序，逐条显示STUDENT表中的男生记录（显示一个记录后，由用户按任意键来显示下一个记录）。 use student scan for 性别=”男” disp wait endscan use 10．编写程序，自STUDENT表的最后一个记录开始向前逐个显示（显示一个记录后，由用户按任意键来显示上一个记录）。 use student go bott do while not bof() disp wait skip -1 enddo use 11．先在STUDENT表中插入一个新字段：平均成绩（数值型,6,2）。然后编写程序，根据GRADE表统计每个学生的平均成绩，并填入新插入的字段中。 select 学号,avg(成绩)as 平均成绩 from grade group by 学号 into table t use t index on 学号 to txh sele 2 use student index on 学号 to sxh set rela to 学号 into t repl all 平均成绩 with t-平均成绩 12．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153＝13+53+33。 input to zrs gw=zrs%10 sw=int(zrs/10)%10 bw=int(zrs/100) if bw**3+sw**3+gw**3=zrs ?”yes!” else ?