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

这是以往的考试题第一套编程题参考答案1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入长方形的长L和宽W的值，计算长方形的面积S并输出，最后按原文件名存盘。program1.prgCLEARINPUT “请输入长方形的长：” TO LINPUT “请输入长方形的宽：” TO WS=L*W?” 长方形的面积S=”,S2. 请打开D盘试题文件夹下的program2.prg文件，编一个计费程序，按托运规定，行李不超过50千克时，运费为每千克0.15元，如超过50千克，其中50千克，运费按每千克0.15元，超过50千克部分的运费为每千克0.22元，输入行李重量，显示托运费。program2.prgClearInput “请输入行李重量” to xIf x=50Y=x*0.15Else Y=50*0.15+(x-50)*0.22Endif? “托运费=”,y3. 请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf表中，统计姓“刘”的人数并输出。最后按原文件名存盘。program3.prgclearuse rcdan=0scan all for left(姓名,2)=“刘”n=n+1endscan?nUse4. 请打开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=不是润年！ endifThisform.text2.value=y 10Thisform.refresh “退出”按钮click事件：thisform.release 第二套编程题参考答案 1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入梯形的上底A、下底B和高H的值，计算梯形的面积S并输出，最后按原文件名存盘。program1.prgCLEARINPUT “请输入梯形的上底：” TO AINPUT “请输入梯形的下底：” TO BINPUT “请输入梯形的高：” TO HS=（A+B）*H/2?” 梯形的面积S=”,S2. 请打开D盘试题文件夹下的program2.prg文件，按下列要求完成以下程序，要求根据某人的收入计算他应交的个人所得税，方法如下：如果收入在1600元以内，则不用计税，显示“未达到交税标准”；如果收入超过1600元，则超过部分应交纳5%的个人所得税，计算并显示应交税额。最后按原文件名存盘。program2.prgClearInput “请输入个人输入” to xIf x=1600 ? “未达到交税标准”Else Y=(x-1600)*0.05 ? “应交税额=”,yEndif3. 请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf表中，统计“出生日期”在1980年以前出生的人数并输出。最后按原文件名存盘。program3.prgclearuse rcdan=0scan all for year(出生日期)=20 Y=N*X*0.85CASE X=10 AND X20 Y=N*X*0.9CASE X2000n=n+1endscan?nUse4. 请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有6的倍数和，并将结果显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。“计算”按钮click事件：N=thisform.text1.value S=0 For I=6 to N step 6S=S+IEndforThisform.text2.value=S Thisform.refresh “退出”按钮click事件：thisform.release 第四套编程题参考答案 1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入圆柱体的半径R和高H，求圆柱体的体积V并输出计算结果，最后按原文件名存盘。program1.prgCLEARINPUT “请输入圆柱体的半径：” TO RINPUT “请输入圆柱体的高：” TO HV=3.14159*R2*H?” 圆柱体的体积V=”,V2. 请打开D盘试题文件夹下的program2.prg文件，按要求编写程序：输入考试成绩x，输出对应的评价等级，等级标准如下：合格： 60x100不合格： 0x=0 AND X=60 AND X1500 r=gz*0.97 else r=gz endifThisform.text2.value=r Thisform.refresh “退出”按钮click事件：thisform.release 第五套编程题参考答案 1. 打开的D盘试题文件夹下的 program1.prg 文件，按以下要求完成程序：从键盘输入任意一个字符串，求出它的长度并输出。(提示：计算字符长度的函数名为len)program1.prgClearAccept “请输入一个字符串” to xY=len(x)? “字符串长度为”,y2. 请打开D盘试题文件夹下的program2.prg文件，按要求编写程序：求分段函数的值。 10 x10 program2.prgCLEARINPUT “请输入X的值” TO XDO CASE CASE X=1 AND X10 Y=2*X+5 ENDCASE? “Y=”,Y3. 请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：计算N以内所有偶数平方的和(S=22+42+62)并输出，其中N为任一正整数。最后按原文件名存盘。program3.prgclearinput “请输入n的值：” to ns=0for i=2 to n step 2s=s+i2endfor?s4.请打开D盘试题文件夹下的表单文件program5.scx，按要求完成以下题目：当在Text1文本框中输入编号时，如果该记录存在，单击查询按钮时，表单显示的记录信息会相应的更新，如果该记录不存在，单击查询按钮时，用Messsagebox函数提示“查无此人”；单击退出按钮时，退出表单。请给查询按钮和退出按钮添加相应的命令代码。“查询”按钮click事件：a=alltrim(ThisForm.Text1.value) locate all for 编号=a if eof() messagebox(查无此人) endifthisform.refresh “退出”按钮click事件：thisform.release 第六套编程题参考答案 1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：要求提示输入变量X的值，然后计算函数Y=5X4+4X3+2X-10的值并输出。program1.prgClearInput “请输入X的值” to xY=5*X4+4*X3+2*X-10? “y=”,y2. 请打开D盘试题文件夹下的 program2.prg 文件，编写一个程序，要求：从键盘输入任意三个数，让它们代表三条线段的长度，如果任意二条线段之和大于第三线段则显示“可以构成一个三角形”；否则显示“不能构成一个三角形”。最后按原文件名存盘。program2.prgClearInput “请输入第一条边长” to aInput “请输入第二条边长” to bInput “请输入第三条边长” to cIf a+bc and b+ca and a+cb ? “可以构成一个三角形”Else ? “不能构成一个三角形”Endif3. 请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：计算N以内所有奇数平方的和(S=12+32+52)并输出，其中N为任一正整数。最后按原文件名存盘。program3.prgclearinput “请输入n的值：” to ns=0for i=1 to n step 2s=s+i2endfor?s4.打开D盘试题文件夹下的表单文件program5.scx，要求在文本框Text1中输入邮件重量，单击“计算”命令按钮则计算邮件的邮资费，并将邮件的邮资费显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。（“A类邮件”计费规定：当邮件重量小于等于100克时，邮资费为每克1元；当邮件重量超过100克时，其中100克，按每克1元计费，超过100克的重量，按每克2元计费）。“计算”按钮click事件：zh=thisform.text1.value if zh100 yf=100*1+(zh-100)*2 else yf=zh*1 endifThisform.text2.value=yf Thisform.refresh “退出”按钮click事件：thisform.release 第七套1、输入三角形的三边，求三角形的面积clearinput 请输入三角形的边长a= to ainput 请输入三角形的边长b= to binput 请输入三角形的边长c= to cl=(a+b+c)/2s=sqrt(l*(l-a)*(l-b)*(l-c)? 三角形的面积为S=,s2、查找准考证号为30130101的记录，如果找到，把记录的“数学”字段减5分，否则用messagebox函数输出“查无此人”的信息。clearuse ks.dbf exclloca all for 准考证号=30130101if .not. eof()repl 数学 with 数学-5dispelsemessagebox(查无此人！)endifuse3、（此题没题目，只有答案，大家看答案猜题目）添加6个控件对象并分别设置属性“开始计算”按钮click事件：N=thisform.text1.value S=0 For I=1 to N S=S+1/(i*i) EndforThisform.text2.value=S “退出”按钮click事件：thisform.release 第八套1、输入字符串，求字符串长度