[应用]VFP程序设计题

[应用]VFP程序设计题 Visual FxoPro程序设计题 1(编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。 use student &&运行前单击教学管理数据库 input “请输入某日期:” to rq *输入时有提示，或input to rq输入时无提示，输入{^1987-01-01} browse for 出生日期>rq 2(有一函数: x (x<1) y= 2x-1 (1?x,10) 3x-11 (x?10) 编写程序，输入x，输出y的值。 clear input "Enter x please!" to x if x<1 y=x else if x<10 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%100<>0 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 a>max max=a endif if a