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

1这是以往的考试题第一套编程题参考答案1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入长方形的长L和宽W的值，计算长方形的面积S并输出，最后按原文件名存盘。program1.prgCLEARINPUT“请输入长方形的长：”TOLINPUT“请输入长方形的宽：”TOWS=L*W?”长方形的面积S=”,S2.请打开D盘试题文件夹下的program2.prg文件，编一个计费程序，按托运规定，行李不超过50千克时，运费为每千克0.15元，如超过50千克，其中50千克，运费按每千克0.15元，超过50千克部分的运费为每千克0.22元，输入行李重量，显示托运费。program2.prgClearInput“请输入行李重量”toxIfx=50Y=x*0.15ElseY=50*0.15+(x-50)*0.22Endif?“托运费=”,y3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在rcda.dbf表中，统计姓“刘”的人数并输出。最后按原文件名存盘。program3.prgclearusercdan=0scanallforleft(姓名,2)=“刘”n=n+1endscan?nuse24.请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入某一年份，单击“计算”命令按钮则判断该年是否闰年，如果是闰年，则在文本框Text2中显示“是闰年！”，如果不是闰年，则在文本框Text2中显示“不是闰年！”；单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。判断某一年份是否闰年的方法如下：(1)年份能被4整除，但不能被100整除；(2)年份能被400整除；符合上述二个条件之一者即为闰年，如1996年是闰年。“计算”按钮click事件：nf=thisform.text1.valueifmod(nf,4)=0.and.mod(nf,100)0.or.mod(nf,400)=0y=是润年！elsey=不是润年！endifThisform.text2.value=yThisform.refresh“退出”按钮click事件：thisform.release第二套编程题参考答案1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入梯形的上底A、下底B和高H的值，计算梯形的面积S并输出，最后按原文件名存盘。program1.prgCLEARINPUT“请输入梯形的上底：”TOAINPUT“请输入梯形的下底：”TOBINPUT“请输入梯形的高：”TOHS=（A+B）*H/2?”梯形的面积S=”,S2.请打开D盘试题文件夹下的program2.prg文件，按下列要求完成以下程序，要求根据某人的收入计算他应交的个人所得税，方法如下：如果收入在1600元以内，则不用计税，显示“未达到交税标准”；如果收入超过1600元，则超过部分应交纳5%的个人所得税，计算并显示应交税额。最后按原文件名存盘。program2.prgClear3Input“请输入个人输入”toxIfx=1600?“未达到交税标准”ElseY=(x-1600)*0.05?“应交税额=”,yendif3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在rcda.dbf表中，统计“出生日期”在1980年以前出生的人数并输出。最后按原文件名存盘。program3.prgclearusercdan=0scanallforyear(出生日期)1980n=n+1endscan?nuse4.请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有奇数的乘积，并将结果显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。“计算”按钮click事件：N=thisform.text1.valueS=1ForI=1toNstep2S=S*IEndforThisform.text2.value=S“退出”按钮click事件：thisform.release第三套编程题参考答案1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入长方体长L、宽W、高H，求长方体的表面积S并输出计算结果，最后按原文件名存盘。4program1.prgCLEARINPUT“请输入长方体的长：”TOLINPUT“请输入长方体的宽：”TOWINPUT“请输入长方体的高：”TOHS=2*（L*W+L*H+W*H）?长方体的表面积S=”,S2.请打开D盘试题文件夹下的program2.prg文件，按要求完成以下程序：某航空公司规定，如果订票数大于或等于20张，则票价优惠15%；如果订票数大于或等于10张，则票价优惠10%，不足10张没有优惠。编写程序，输入票价及订票数后，计算并显示出所需金额。最后按原文件名存盘。program2.prgCLEARINPUT“请输入票价”TONINPUT“请输入订票数”TOXDOCASECASEX=20Y=N*X*0.85CASEX=10ANDX20Y=N*X*0.9CASEX10Y=N*XENDCASE?“金额Y=”,Y3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在rcda.dbf表中，统计性别为“女”且工资现状在2000元以上的人数并输出。最后按原文件名存盘。program3.prgclearusercdan=0scanallfor性别=“女”and工资现状2000n=n+1endscan?n5use4.请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有6的倍数和，并将结果显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。“计算”按钮click事件：N=thisform.text1.valueS=0ForI=6toNstep6S=S+IEndforThisform.text2.value=SThisform.refresh“退出”按钮click事件：thisform.release第四套编程题参考答案1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入圆柱体的半径R和高H，求圆柱体的体积V并输出计算结果，最后按原文件名存盘。program1.prgCLEARINPUT“请输入圆柱体的半径：”TORINPUT“请输入圆柱体的高：”TOHV=3.14159*R^2*H?”圆柱体的体积V=”,V2.请打开D盘试题文件夹下的program2.prg文件，按要求编写程序：输入考试成绩x，输出对应的评价等级，等级标准如下：合格：60≤x≤100不合格：0≤x60输入有误：其他字符。program2.prgCLEARINPUT“请输入的考试成绩“TOX6DOCASECASEX=0ANDX60?“不合格”CASEX=60ANDX=100?“合格”OTHERWISE?“输入有误！”ENDCASE3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在xs.dbf表中，统计专业为“计算机”且性别为“男”的人数并输出。最后按原文件名存盘。program3.prgclearusexsn=0scanallfor专业=“计算机”and性别=“男”n=n+1endscan?nuse4.请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入某一职工的工资，单击“计算”命令按钮则计算该职工的实际收入，并将收入显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。（职工实际收入的方法如下：职工收入=职工工资-个人所得税。当职工收入在1500元或以下时，不用交个人所得税；超过1500元的，按工资总额的3%的比例交纳个人所得交税）。“计算”按钮click事件：gz=thisform.text1.valueifgz1500r=gz*0.97elser=gzendifThisform.text2.value=rThisform.refresh“退出”按钮click事件：thisform.release第五套7编程题参考答案1.打开的D盘试题文件夹下的program1.prg文件，按以下要求完成程序：从键盘输入任意一个字符串，求出它的长度并输出。(提示：计算字符长度的函数名为len)program1.prgClearAccept“请输入一个字符串”toxY=len(x)?“字符串长度为”,y2.请打开D盘试题文件夹下的program2.prg文件，按要求编写程序：求分段函数的值。10x1y=x2+11≤x≤102x+5x10program2.prgCLEARINPUT“请输入X的值”TOXDOCASECASEX1Y=10CASEX=1ANDX=10Y=x^2+1CASEX10Y=2*X+5ENDCASE?“Y=”,Y3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：计算N以内所有偶数平方的和(S=22+42+62…)并输出，其中N为任一正整数。最后按原文件名存盘。program3.prgclearinput“请输入n的值：”tons=0fori=2tonstep2s=s+i^2endfor?s84.请打开D盘试题文件夹下的表单文件program5.scx，按要求完成以下题目：当在Text1文本框中输入编号时，如果该记录存在，单击查询按钮时，表单显示的记录信息会相应的更新，如果该记录不存在，单击查询按钮时，用Messsagebox函数提示“查无此人”；单击退出按钮时，退出表单。请给查询按钮和退出按钮添加相应的命令代码。“查询”按钮click事件：a=alltrim(ThisForm.Text1.value)locateallfor编号=aifeof()messagebox(查无此人)endifthisform.refresh“退出”按钮click事件：thisform.release第六套编程题参考答案1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：要求提示输入变量X的值，然后计算函数Y=5X4+4X3+2X-10的值并输出。program1.prgClearInput“请输入X的值”toxY=5*X^4+4*X^3+2*X-10?“y=”,y2.请打开D盘试题文件夹下的program2.prg文件，编写一个程序，要求：从键盘输入任意三个数，让它们代表三条线段的长度，如果任意二条线段之和大于第三线段则显示“可以构成一个三角形”；否则显示“不能构成一个三角形”。最后按原文件名存盘。program2.prgClearInput“请输入第一条边长”toaInput“请输入第二条边长”tobInput“请输入第三条边长”tocIfa+bcandb+caanda+cb9?“可以构成一个三角形”Else?“不能构成一个三角形”endif3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：计算N以内所有奇数平方的和(S=12+32+52…)并输出，其中N为任一正整数。最后按原文件名存盘。program3.prgclearinput“请输入n的值：”tons=0fori=1tonstep2s=s+i^2endfor?s4.打开D盘试题文件夹下的表单文件program5.scx，要求在文本框Text1中输入邮件重量，单击“计算”命令按钮则计算邮件的邮资费，并将邮件的邮资费显示在文本框Text2中，单击“退出”命令按钮，则关闭表