2022年2022年VFP考试题型答案

1、精选学习资料 - - - 欢迎下载vfp程序考试题型一.表单操作1按要求在考生文件夹下完成以下操作：1）按下图设计一表单文件formcalc1 ；设置表单 名称为 form1 标题为 “人民币兑换美元 ”；2）表单中添加两个标签,设置第一个标签label1标题为 “输入人民币 ”、其次个标签 label2标题为“兑换为美元 ”；3）添加两个文本框 名称分别为 text1 和text2,显示美元的文本框 （ text2 ）设为只读；精品学习资料精选学习资料 - - - 欢迎下载4）表单中添加一个命令按钮,其 名称为 command1的标题为“兑换”,编写精品学习资料精选学习资料 - - - 欢迎

2、下载“兑换”命令按钮的代码 、 要求运行表单时 、 在文本框（ text1 ）中输入人民币后,单击“兑换”命令按钮、 算出兑换的的美元（人民币兑换成美元的比 例为： 1美元=7元人民币）,在 文本框（ text2 ）中显示结果；操作完成后将操作结果储存在考生文件夹下；command1的click代码 : thisform.text2.value=valthisform.text1.value/82按要求在考生文件夹下完成以下操作：1）按下图设计一表单文件formdbca12；设置表单 名称为 form1 标题为 “人数统计”；2）在数据环境中添加 ygb.dbf ；3）表单中添加两个文本框,

3、名称分别为 text1 和text2,显示人数的文本框设为“只读”；精品学习资料精选学习资料 - - - 欢迎下载4）表单中添加一个命令按钮 名称为command1的标题为“统计人数” ,编写精品学习资料精选学习资料 - - - 欢迎下载此命令按钮的代码 、 要求运行表单时 、 在在文本框（ text1 ）中输入性别“男”（或“女”）,统计文本框（ text1 ）指定性别的人数 . 将结果显示在文本框（text2 ）中；操作完成后将操作结果储存在考生文件夹下；精品学习资料精选学习资料 - - - 欢迎下载代码:count for性别=alltthisform.text1.value to x

4、thisform.text2.value=x学问点： vfp部分/ 表单设计3. 按要求在考生文件夹下完成以下操作：1）按下图设计一表单文件formdbca19 ；设置表单 名称为 form1 标题为“人数统计”；2）在数据环境中添加 student.dbf；3）表单中添加一个列表框 名称为 list1,列表框中有 4个选项：“2005会计一” 、 “2005会计二 ”、“2005会计三 ”、“2005会计四 ”；在表单中添加一个标签 名称为 label1、标题为 ”挑选班级名称 ”；表单中添加一个文本框 名称为text1,此文本框设为只读；精品学习资料精选学习资料 - - - 欢迎下载4）表

5、单中添加一个命令按钮 名称为command1的标题为“统计人数” ,编写精品学习资料精选学习资料 - - - 欢迎下载此命令按钮的代码 、 要求运行表单时 、在列表框挑选班级,按列表框指定班级统计人数,将结果显示在文本框（text1 ）中；操作完成后将操作结果储存在考生文件夹下；代码: count for班级= thisform.list1.value to x thisform.text2.value=x 3按要求在考生文件夹下完成以下操作：1）按下图设计一表单文件formdbca20；设置表单 名称为 form1 标题为 “按班级统计同学平均分 ”；2）在数据环境中添加 student.d

6、bf；3）表单中添加一个组合框 名称为 combo1,组合框中有 4个选项：“2005会计一” 、 “2005会计二 ”、“2005会计三 ”、“2005会计四 ”； 在表单中添加一个标签 名称为 label1、标题为 ”挑选班级 ”；在表单中添加一个文本框 名称为 text1,此文本框设为只读；精品学习资料精选学习资料 - - - 欢迎下载4）表单中添加一个命令按钮 名称为command1的标题为“统计平均分” ,编精品学习资料精选学习资料 - - - 欢迎下载写此命令按钮的代码 、 要求运行表单时 、在组合框挑选班级,按组合框指定班级统计平均分,将结果显示在文本框（text1 ）中；精品学

7、习资料精选学习资料 - - - 欢迎下载操作完成后将操作结果储存在考生文件夹下；代码:set talk offaver成果 for班级= bo1.value to x thisform.text2.value=x4.按要求在考生文件夹下完成以下操作：1）按下图设计一表单文件formdbup37；设置表单 名称为 form1 标题为“修改员工信息 ”；2） 在 数 据 环 境 中 添 加 ygb.dbf ；3）表单中添加三个标签和三个文本框,分别用于显示当前记录的员工编号.姓名和联系电话,且将显示员工编号的文本框设为只读；精品学习资料精选学习资料 - - - 欢迎下载4）表单中添加二个命令按钮、

8、 第一个命令按钮 名称为 command1的标题为“上精品学习资料精选学习资料 - - - 欢迎下载一条”,其次个命令按钮 名称为 command1的标题为“下一条” ；编写这两个精品学习资料精选学习资料 - - - 欢迎下载命令按钮的代码 、 要求运行表单时 、 单击“上一条”命令按钮 command1时,记录指针移动到上一条记录,单击“下一条”命令按钮 command1时,记录指针移动到下一条记录； 然后在三个文本框 text1.text2 和text3中分别显示当前记录的学号.姓名和地址；操作完成后将操作结果储存在考生文件夹下；command1代码:skip-1thisform.refr

9、eshcommand1代码:skipthisform.refresh5按要求在考生文件夹下完成以下操作：1）按下图设计一表单文件formlogin41；设置表单 名称为 form1 标题为 “系统登陆”；2）设置“工资治理系统 ”标签label1字号设为 20,字的颜色为红色；3）要求在运行表单时,向输入密码的文本框（text2 ）中输入字符,回显字符显示的为“ * ”；4）编写“退出”命令按钮（command）2 的代码 、 要求运行表单时 、 单击“退精品学习资料精选学习资料 - - - 欢迎下载出”命令按钮时 、 关闭表单；操作完成后将操作结果储存在考生文件夹下；command代2 码:

10、thisform.release6. 在考生文件夹下完成如下操作：设计名为 formfont102的表单（控件名为 form1 ,文件名为 formfont102 ）；表单的标题设为 " 设置字体格式 " ；表单中有一个标签（名称为label1、 标题 为“挑选字体 ”）、 一个组合框（名称为 combo）1.一个文本框（名称为 text1 ）和两个命令按钮 " 设置" （名称为 command）1 和" 退出" （名称为 command）2； 文本框的字体大小设为 16运行表单时,组合框中有三个条目" 宋体" .

11、" 黑体" ." 隶书" 可供挑选,在组合框中挑选字体后,假如单击" 设置" 命令按钮,按组合框选定的字体设置文本框中内容的字体；单击" 退出" 按钮关闭表单；操作完成后将操作结果储存在考生文件夹下；command1代码:thisform.text1.fontname=bo1.valuecommand2 代 码 :thisform.release 7在考生文件夹下完成如下操作：1）设计名为 formfont105 的表单（控件名为 form1 ,文件名为 formfont105 ）；精品学习资料精选学习资料 - -

12、 - 欢迎下载表单的标题设为 " 设置字体格式 " ；2）表单中添加一个列表框 （名称为 listbox1）.列表框中有三个条目 " 宋体" ." 黑体" ." 隶书" 可供挑选；3）表单中添加一个标签 （名称为 label1 ）,标题为“湖南财经高等专科学校” , 同时设置此标签字号为 20,字的颜色为红色；4）表单中添加两个命令按钮" 设置" （名称为 command）1 和" 退出" （名称为 command）2；编写其代码,要求运行表单时,在列表框中挑选字体后,如 果

13、单击 " 设置" 命令按钮, 按列表框选定的字体设置标签中内容的字体；单击" 退出" 按钮关闭表单；操作完成后将操作结果储存在考生文件夹下；command1代码:thisform.label1.fontname=thisform.list1.valuecommand2代码:thisform.release二.程序填空1.程序功能：求 150 全部整数的立方和；set talk offclear（1）x= 1do while x<=30 s= s+ x3x=（ 2）enddo. s return答案：（ 1） s=0（ 2） x+1学问点：求和2.运

14、算分段函数的值：当x>5 时, y=x-5 ；当 x<=5 时, y=x2+19 set talk offinput“请输入 x 的值: ”toxif x>3精品学习资料精选学习资料 - - - 欢迎下载y=1 else y=x*x+192.y return答案：（1） x-5（ 2） endif学问点：双分支结构3.运算分段函数的值：当x>0 时, y=15；当 x<=0 时, y= -5 ；当 x=0 时, y=0 set talk offinput“请输入 x 的值: ”toxdo casecase x>0y=1 case x<0y= -5oth

15、erwise y=0endcase.”y=”,return答案： （1） 15（2） y学问点：多分支结构4.设 eee.dbf为职工数据表,姓名为一个字段名,查找名为“王林”的职工,如找到显示该员工信息,否就显示“查无此人”信息；set talk off（ 1）locate for姓名=”王林”if（2）disp else？”查无此人 ”endif useset talk on答案： （1） use eee（2） found（）学问点：记录查找,双分支5.下面程序将 “春光明媚 ”先纵向显示出来然后再横向显示“明媚春光 ”请 填空完成该程序：精品学习资料精选学习资料 - - - 欢迎下载se

16、t talk off clearstore“春光明媚 ” toxyn=1do while n<8n=n+2enddo. substr2.substrxy、1、4return.substr1答案：（ 1） xy、n、2（ 2） xy、5、4学问点：单循环结构6.输入一个三位整数,将其反向输出；如输入123,输出 321； set talk offinput" 请输入一个三位数 " to（1）（ 2） =100*moda、10+10*modinta/10、10+modinta/100、10.b return答案： 1 a2 b学问点：次序结构7. 子程序调用主程序： t1

17、.prgset talk off store nhto k1、k2 do t2.k1+k2屏幕上显示的结果为1return子程序： t2.prg private k1k1=k2+100.k1屏幕上显示的结果为2 return答案： 1 nhnh2 nh100学问点：子程序调用7.子程序调用主程序： z.prg精品学习资料精选学习资料 - - - 欢迎下载set talk off store 4 to y1、 y2、 y3 y1=y1+1. y1+y2+y3&&屏幕上显示的结果为1do z1. y1+y2+y3&&屏幕上显示的结果为2return子程序： z1.p

18、rg y2=y2+1do z2 y1=y1+1 return子程序： z2.prg y3=y3+1return to master答案： 1 132 15学问点：子程序调用8.下面的程序实现了多次在“aaa.dbf ”表中查找记录的操作；请在建立了aaa.dbf表的基础上,任意输入一位员工的“编号”,如查找到相应的记录就显示,否就给出提示“无此人！”；依据提示输入“n”或“n”就终止程序的运行；set talk off clearuseaaa.dbfdo while .t. clearaccept "请输入员工编号 :" to zhgnolocate for编号= zhgn

19、oif（1）display 编号、 姓名、 部门代号 、 职称、 基本工资else精品学习资料精选学习资料 - - - 欢迎下载." 无此人！ " endifwait " 连续查询？ y/n:" to p if upperp<>"（2） "use exitendifenddoset talk on return答案： 1 not eof2 y学问点：表的操作9.下面程序输出如下列图的图形,请将程序补充完整；*set talk off clearfor n=4 to 1 step -1.（1）3-n for m=1 to 2

20、*n-1.（ 2）endfor endforset talk on return答案： 1 space2 "*"学问点：双循环结构三.编程题（要求从三大类型的程序中各选其一,即不能选两个同类型的程序题）（一）求和类型的程序1.编程运算 s=1+1/3+1/5+1/49 ；参考答案： clears=0for i=1 to 49 step 2 s=s+1/iendf.s retu精品学习资料精选学习资料 - - - 欢迎下载2.编程运算 100 到 1000 之间能被 4 除余 1 的全部数之和；参考答案：clear s=0for i=100 to 1000 if i%4=1s

21、=s+i endi endf.s retu3.运算 100 到 500 中全部素数的和；（所谓素数为指除了1 和它本身外, 没有任何因子被该数整除）参考答案：clea s=0for i=100 to 500for j=2 to i-1 if i%j=0 exitendif endfif j>=is=s+i endi endf.s retu编程运算 1/4 ！+1/8 ！+1/10 ！ clea&&主程序.1/fac4+1/fac8+1/fac10 retufunc fac&&fac创建一个求阶乘的函数para n s=1for i=1 to ns=s*i

22、endfor return s4.求全部五位数中,千位数字等于个位数字的数之和； clear精品学习资料精选学习资料 - - - 欢迎下载s=0for i=10000 to 99999 if i%10=inti/10000s=s+iendif endf.s retu（二）统计个数的类型1.统计 100 到 1000 中能被 5 或 9 整除的全部数的个数；clea s=0for i=100 to 1000if i%5=0 or i%9=0 s=s+1endif endfor.s retu答案:2362.求四位数中全部“回文数”的个数； （所谓“回文数” ,为指该数从左往右念与从右往左念相同,例

23、如：1221,3223 等）clea s=0for i=1000 to 9000 a=inti/1000 b=inti%1000/100 c=inti%100/10 d=i%10if a=d and b=c s=s+1endif endfor.s retu答案:803.统计全部五位数中万位数字大于等于个位数字的数的个数； cleas=0for i=10000 to 99999 a=inti/10000 b=i%10if a>=b精品学习资料精选学习资料 - - - 欢迎下载s=s+1 endif endfor.s retu（三）其他类型1.已知数列的前三个数分别为1,1,2,以后每个数为前三个数之和,求第20项的值及前 20 项之和cleadime a20 a1=1a2=1a3=2 s=a1+a2+a3for i=4 to 20ai=ai-1+ai-2+ai-3 s=s+aiendfor.a20、sreturn2.已知 s=1*2*3*n ,当 s 超过 300000 时的