vfp编程题练习及参考答案-一定要看..docVIP

这是以往的考试题 第一套 编程题参考答案 1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入长方形的长L和宽W的值，计算长方形的面积S并输出，最后按原文件名存盘。 program1.prg CLEAR INPUT “请输入长方形的长：” TO L INPUT “请输入长方形的宽：” TO W S=L*W ?” 长方形的面积S=”,S 2. 请打开D盘试题文件夹下的program2.prg文件，编一个计费程序，按托运规定，行李不超过50千克时，运费为每千克0.15元，如超过50千克，其中50千克，运费按每千克0.15元，超过50千克部分的运费为每千克0.22元，输入行李重量，显示托运费。 program2.prg Clear Input “请输入行李重量” to x If x=50 Y=x*0.15 Else Y=50*0.15+(x-50)*0.22 Endif ? “托运费=”,y 3. 请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf表中，统计姓“刘”的人数并输出。最后按原文件名存盘。 program3.prg clear use rcda n=0 scan all for left(姓名,2)=“刘” n=n+1 endscan ?n use 4. 请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入某一年份，单击“计算”命令按钮则判断该年是否闰年，如果是闰年，则在文本框Text2中显示“是闰年！”，如果不是闰年，则在文本框Text2中显示“不是闰年！”；单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。判断某一年份是否闰年的方法如下：(1)年份能被4整除，但不能被100整除；(2)年份能被400整除；符合上述二个条件之一者即为闰年，如1996年是闰年。 “计算”按钮click事件： nf=thisform.text1.value if mod(nf,4)=0.and.mod(nf,100)0.or.mod(nf,400)=0 y=是润年！ else y=不是润年！ endif Thisform.text2.value=y Thisform.refresh  “退出”按钮click事件： thisform.release 第二套 编程题参考答案  1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入梯形的上底A、下底B和高H的值，计算梯形的面积S并输出，最后按原文件名存盘。 program1.prg CLEAR INPUT “请输入梯形的上底：” TO A INPUT “请输入梯形的下底：” TO B INPUT “请输入梯形的高：” TO H S=（A+B）*H/2 ?” 梯形的面积S=”,S 2. 请打开D盘试题文件夹下的program2.prg文件，按下列要求完成以下程序，要求根据某人的收入计算他应交的个人所得税，方法如下：如果收入在1600元以内，则不用计税，显示“未达到交税标准”；如果收入超过1600元，则超过部分应交纳5%的个人所得税，计算并显示应交税额。最后按原文件名存盘。 program2.prg Clear Input “请输入个人输入” to x If x=1600 ? “未达到交税标准” Else Y=(x-1600)*0.05 ? “应交税额=”,y endif 3. 请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf表中，统计“出生日期”在1980年以前出生的人数并输出。最后按原文件名存盘。 program3.prg clear use rcda n=0 scan all for year(出生日期)1980 n=n+1 endscan ?n use 4. 请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有奇