VFP习题答案

第一章参考答案一、选择题1.B）2.A）3.C)4.A)5.D)6.D）7.B）8.B)9.B)10.D)11.D)12.A)13.C)14.D)15.A)二、填空题1.数据管理2.网状模型3.数据处理4.关键字5.外部关键字6.连接7.记录8.关系模型或关系9.空值第二章参考答案一、选择题1.D）2.D）3.A)4.D)5.B)6.B）7.D）8.B)9.B)10.C)11.D)二、填空题1.设计器2..PJX3.代码4.从项目中移出从磁盘上删除5.向导6.项目管理器连接7.QUIT8.项目第三章参考答案一、选择题1.C)2.A)3.D)4.B)5.D)6.A)7.D)8.B)9.D)10.C)11.C)12.B)13.A)14.C)15.A)16.A)17.C)18.D)19.A)20.C)21.B)22.A)23.D)24.C)25.D)26.A)27.B)28.B)29.C)30.B)31.D)32.C)33.B)34.C)35.A)36.B)37.D)38.C)39.C)40.B)41.C)42.B)43.C)44.B)45.C)46.A)47.D)48.B)49.D)50.A)51.B)52.C)53.A)54.C)55.D)56.A)57.D)58.C)59.B)60.C)61.A)62.B)63.B)64.C)65.B)66.D)67.C)二、填空题1.11.252.字段变量,内存变量3.OXBAS4.FOXBASE5.(年龄60OR年龄30)AND职称=”工程师”6..F.7..F8.189.1110.201011.1512.visualfoxpro数据库管理系统13.==,$14.字符型常量,数值型常量15.x^2+(x+2)/(y-8)16..F.17.15，m(2,5)18.019.逻辑型|L型,.T.20.12345621..T.22.GOODGIRL23..F.24.日期时间型25.8.926.D27.42+2028.abc29.字符型30..T.第四章参考答案一、选择题1.D）2.C）3.D)4.D)5.B)13.C)7.B)8.A)9.A)10.B)11.C)12.A)13.B)14.A)15.B)16.A)17.B)18.A)19.D)20.B)21.A)22.D)23.A)24.B)25.C)26.D)27.B)28.A)29.A)30.C)31.C)32.D)33.B)34.C)35.D)36.C)37.D)38.B)39.D)40C)41C)42.D)43.D)44.C)45.B)46.A)47.D)48.D)49.C)50.D)二、填空题1.62.ZAP3.APPEND4.INSERTBEFORE5..DBF6..表结构第五章参考答案一、1、INDEXON姓名TOXM2、①INDEXON姓名DESCTAGXM②INDEXON性别+STR(入校总分)TAGXBZF③INDEXON学号TAGXHCANDIDATE④INDEXON出生年月DESCTAGRQ3、①SETORDERTORQSEEK{^1982-5-20}②SKIP4、①LOCATEALLFOR姓名=”王小平”②continue二、1．SELECT1USE处方SELECT2USE医生INDEXON职工号TOZGHSELECT3USE药品INDEXON药品号TOYPHSELECT1SETRELATIONTO职工号INTOBSETRELATIONTO药品号INTOCADDITIVE2．LIST药品号,C-药品名称,C-单价,数量,B-姓名,B-职称,B-部门第六章参考答案1.A)2.A)3.D）4．A）5．C)6.B）7.A）8．B)9．A)10.A)11.C)12.B)13.A）14.B）15.B）16.B）17.D）18.D）19.D）20.A）21.C）22.B）第七章参考答案一、选择题1、B2、B．3、B．4、D．5、A6、C．7、C．8、D．9、A．10、A．11、D．12、B．13、D．14、A．15、B．16、A．17、C．18、B．19、B．20、A．21、D．22、A．二、填空题1、○1ISNULL2、○2GROUPBY3、○3DISTINCT4、○4Update。5、○5LIKE。6、○6PrimaryKey7、○7intotable。8、○8.NULL.9、○9column第八章参考答案一、程序阅读题1．1.F.11.T.2．A3、254．A=___10____B=____100______5．1.T.10.F.6．_____55______。7.___10______200____。8、409、410、及格11、612、23434513、11.001114、3691215182115、按记录号的降序逐条显示表中10条记录16、WABCABC连续显示5次二、程序填空题1.（xmax)（xmin)2.(Y=Y+X)3.(RETURNT)4.(noteof())(skip)5(store)(docase)(入学成绩=400and入学成绩=500)6．(skip)(入校总分fs)7.（姓名=xm）8.(loop)三、编程题1、用循环结构计算1到1000之和。S=0Fori=1to1000S=s+iendfor?s2、输入20个数，统计其中正数、负数、零的个数。Stroe0tozs,fs,lingFori=1to20Input“请输入一个数：”toxDocaseCasex0Zs=zs+1Casex0Fs=fs+1Casex=0Ling=ling+1EndcaseEndfor?”正数的个数:”,zs,”负数的个数:”,fs,”零的个数:”,ling3、输入长方体的长、宽和高，求长方体的体积；Input“请输入长方体的长：”tocInput“请输入长方体的宽：”tokInput“请输入长方体的高：”togM=c*k*g?“长方体的体积为:”,m4、某航空公司规定，如果订票数超过20张，则票价优惠15%；如果超过10张，则票价优惠10%，编写程序，输入票价及订票数后，显示出所需金额。Input“请输入票价：”topjInput“请输入票数：”topsDocaseCaseps=20Je=pj*ps*0.85Caseps=10Je=pj*ps*0.9OrthwiseJe=pj*psEndcase?”所需金额为:”，je5、编写程序计算1到100所有5的倍数之和。S=0Fori=1to100Ifmod(I,5)=0S=s+iEndifEndfor?s6、编程序求两个数的最大公约数。（方法是用两个数中较小的去除较大的，然后将除数作为下一次除的被除数，余数作为下一次除的除数，反复进行这样的操作，直到余数为零时为止。则最后一次除的除数，即为所给两个数的最大公约数。）SETTALKOFFINPUT″请输入A，B：″TOA，BIFA〈BT=AA=BB=TENDIFDOWHILEB〈〉0T=MOD（A，B）A=BB=TENDDO？ASETTALKONRETURN7、鸡兔同笼问题。鸡兔同笼，若已经知道鸡兔总头数为h（head），总脚数为f（feet），求鸡兔各有多少只？（假设h=40，f=100）解题过程：设鸡为a只，兔为b只，已知鸡兔的总头数为h=40，则a+b=h①又知鸡有两只脚，兔有4只脚，由题目知道f=100，则2*a+4*b=f②由①、②可得：a=(4*h－f)/2③b=（f－2*h）/2④程序代码如下：settalkoffclearh=40f=100a=(4*h－f)/2b=（f－2*h）/2?鸡为,a,只?兔为,b,只settalkonreturn8、由键盘输入3个不同的数，求出最小的数。程序代码如下：settalkoffclearinput输入数atoainput输入数btobinput输入数ctocifabm=aelsem=bendififcmm=cendif?最小的数为,msettalkonreturn9、求1*2*3*…*n的积小于500的最大的n值。程序代码如下：settalkoffclearn=0s=1dowhiles500n=n+1s=s*nenddo?n-1settalkonreturn10、*********利用双循环打印输出左面的图形。****************CLEARFORK=4TO1STEP-1?SPACE(4-K)??REPLICATE(*,2*K+1)ENDFOR?SPACE(4-K)+*RETURN11、已知ns131211，求S刚好大于8时S与N的值。CLEARN=1S=0DOWHILES=8S=S+1/NN=N+1ENDDO？“N=”，N-1？“S=”，S12、判断3到20的自然数是否为素数。SETTALKOFFCLEARFORX=3TO20DOPDSSENDFORRETURNPROCEDUREPDSSFORI=2TOX-1IFX/I=INT（X/I）？X，“不是素数”RETURNENDIFENDFOR？X，“是素数”RETURN13、编写一密码校验程序（假设密码为ABC）。SETTALKOFFCLEARACCEPT“请输入您的密码：”TOAAAIFAAA=”ABC”CLEAR?”欢迎使用本系统！”ELSE?”密码错误！”WAITQUITENDIFSETTALKON14、假设收入（P）与税率（R）的关系如下表，编程求税金。R=0.05800≤P＜2000R=0.082000≤P＜5000R=0.1P≥5000SETTALKOFFCLEARINPUT“请输入收入：”TOPDOCASECASEP800R=0CASEP2000R=0.05CASEP5000R=0.08OTHERWISER=0.1ENDCASETAX=P*R?”税金为：”,TAXSETTALKONRETURN15、计算—个函数f(x)。0(x-1或x5)f(x)=2x2-x(-1=x1)x(1=x5)的值。SETTALKOFFINPUT“请输入x值：”TOxDOCASECASEx-lf=0CASEX1f=2*x*x-xCASEx5f=xOTHERWISEf＝0ENDCASE?‘f(X)＝’,fSETTALKONRETURN16、编程显示“学生管理”数据库的“学生”表中除“李宁”以外的所有记录。SETTALKOFFCLEAROPENDATABASESTUDENTUSESTUDDOWHILE.NOT.EOF()IF姓名=”李宁”SKIPLOOPENDIFDISPLAYSKIPENDDOCLOSEDATABASESETTALKONRETURN17、用过程文件实现对“学生管理”数据库的“学生”表进行查询、删除和插入操作。主程序如下：*PA12.PRG&&主程序文件名SETTALKOFFCLEAROPENDATABASE学生管理SETPROCEDURETOPROCE&&打开过程文USE学生INDEXON姓名TOXMDOWHILE.T.&&显示菜单CLEAR@2,20SAY“学籍管理系统”@4,20SAY“A:按姓名查询”@6,20SAY“B:按记录号删除”过程文件如下：*PROCE.PRG&&过程文件名PROCEDUREPROCE1&&查询过程CLEARACCEPT”请输入姓名：”TONAMESEEKNAMEIFFOUND()DISPLAYELSE?”查无此人”ENDIFWAITRETURNPROCEDUREPROCE2&&删除记录过程CLEARINPUT”请输入要删除的记录号:”TONGONDELETEWAIT”物理删除吗Y/N:”TOFLAGIFFLAG=”Y”.OR.”y”PACKENDIFRETURNPROCEDUREPROCE3&&插入新的记录过程CLEARAPPENDRETURN18、在数据表文件XS.DBF中查询姓名为刘春林的记录，若其总分大于等于250分，则显示他的学号、姓名、专业和总分。SETTALKOFFUSEXSINDEXON姓