VisualFoxPro 60参考答案
第一章VisualFoxPro6.0基础知识习题精练一参考答案：一、单项选择题1.A2.C3.C4.A5.D6.B7.B8.B9.A10.D11.B12.B13.C14.D15.A16.A17.B18.D19.C20.A21.B22.C23.B24.C25.A26.C27.A28.D29.B30.B31.B32.D33.A34.B35.C36.B37.C38.A39.C40.B41.A42.D43.C44.B45.A46.B47.C48.A49.B50.B51.D52.B53.D54.A55.C56.A57.D58.A59.D60.C61.A62.D63.C64.C65.B66.C67.C68.B69.A70.C71.A72.B73.A74.D75.B76.B77.A78.D79.D80.A81.A二、填空题1.通用型G42.备注型 43..FPT4.变量数组对象5.数值型逻辑型货币型6.严格的YMD7.$￥48.字段变量和内存变量9.利用赋值号“=”赋值利用STORE命令赋值10.?<表达式>??<表达式>11.私有数组全局数组局部数组12.16500013.不小写大写14.函数名函数返回值函数名参数函数返回值15..PRG.DBC.DBF习题精练二参考答案一、选择题1.B2.C3.A4.C5.C6.D7.C8.D9.D10.A11.C12.D13.D14.C15.A16.D17.D18.C19.D20.B21.C22.A23.C24.B25.A26.D27.C28.B29.D30.B31.B32.C33.D34.C35.C36.D37.B38.B39.B40.B41.C42.A43.D44.B45.D46.C47.C48.C49.C50.B51.B52.A53.C54.D55.A56.B57.B58.B59.A60.D61.D62.D63.A64.C65.B66.C67.A68.D69.A70.A71.C72.B73.D74.C75.C76.B77.B78.D79.B80.B81.A82.A83.B84.B85.D86.A87.B88.B89.D90.D91.B92.D93.D94.B95.A96.A97.C98.A99.C二、填空题1.人工管理、文件管理、数据库系统管理2.一对一、一对多、多对多3.元组,属性4.候选关键字5.外部关键字6.数据结构、数据操作、数据的完整性约束条件。7.层次模型、网状模型、关系模型。8.投影、选择、连接。9.实体完整性、参照完整性、用户定义的完整性。10.实体完整性11.信息的载体,记录信息,依靠数据,数据具体含义12.数据库管理系统、面向对象13.事物之间的联系14.插入,修改,删除,查询15.字段、表16.关系模型17.属性、元组18.投影19.关键字20.选择、投影、联接21.关系22.标题栏、菜单栏、工具栏、工作区、状态栏、命令窗口23.菜单方式、命令方式24.向导、设计器、生成器25.隐藏、关闭、命令窗口、关闭26.文件位置27.10亿、255、25528.128、10、254、2029.64K、819230..Mem、RestoreFromMM31.逻辑型、.F.32..T.33.SetDefaultToA:34.-26.00、235.SetCenturyOn36.N、C、N、C、5、123.458、247、32、-246.9237.Substr、Right、Left、!38.208520.4539..F.40.041.M.或者M->42.145.343.6.79n44.t=Ctod(m+"/"+D+"/"+y)45.个人电子计算机46.XY347.67948.101.00、Z=X^2、100.00三、判断题1.T2.F3.T4.F5.T6.F7.F8.T9.T10.F11.F12.F13.T14.F15.F16.T17.F18.F19.F20.F21.F22.T23.F24.F第二章数据库、表的基本操作习题精练一参考答案：一、单项选择题1.B2.A3.D4.B5.C6.D7.A8.B9.B10.C11.C12.D13.D14.C15.C16.D17.B18.C19.D20.D21.D22.B23.C24.D25.A26.D27.C28.B29.A30.D31.C32.C33.A34.A35.D36.A37.A38.A39.B40.B41.C42.A43.C44.B45.D46.B47.D48.B49.C50.C51.B52.A53.C54.C55.C56.A57.C58.A59.D60.D61.C62.A63.A64.C65.C66.A67.C68.A69.D70.D71.C72.B73.A74.A75.B76.B77.A78.D79.C80.A81.A82.D83.A84.C85.C86.A87.D88.B89.A90.D91.A92.C93.B94.C95.D96.D97.C98.B99.C100.C101.D102.C103.B104.A105.C106.D107.B108.D109.A110.C111.C112.D113.C114.C115.B116.A117.A118.A119.A120.A121.C122.A123.B124.D125.C126.B127.C128.D129.D130.C131.A132.D133.C134.D135.C136.D137.D138.C139.A二、填空1.APPEND2.113..T.4..dbf5..CDX结构化复合索引6.1多个多个7.逻辑物理8.索引关键字9.GO10DELETENEXT510.SORTTOPLON总分/D,英语FOR性别＝“男”11.COUNTFOR性别＝“女”.AND.数学>80TOFS12.表|删除记录13.MODIFYSTRUCTURE14.主索引候选索引惟一索引15.规则16.BROWSE17.一多18.EOF()19.DELETE20.ZAP21.COUNTTOFSMANFOR性别=“男”AND政治分数>9022.REPLACEALL总分WITH总分+20FOR学生干部23.REPLACEALL总分WITH024.COPYTONEWFOR性别="男"AND外语>=8525.COPYTOCOPYSTRUCTURETO26.LOCATEJOIN27.逻辑28.删除标记29.INSERTBEFORE30.831.物理删除32.appendblank33.modifystructure34.replaceALL英语WITH英语+1035.表结构36.独立复合37.文件末尾38.字段名称类型宽度39.浏览编辑40.普通41.1GOBOTTOM42.LOCATEFOR43.1144.LISTNEXT445.LISTFORYEAR(进馆日期)>=1990n46.REPLACE出生日期WITH{^1978-10-28}47.DELETEPACK48.DELETEFORLEFT(分类号,1)=“A”49.LOCATEFOR CONTINUE50.REPLACEALL年龄WITH年龄+1年龄字段应为整型51.黑色彻底删除52.ALLNEXTRESTRECORD53.物理逻辑54..IDX.CDX55..CDX打开56.升序ASCENDDESCEND57.UNIQUE习题精练二参考答案一、选择题1.D2.C3.D4.B5.B6.A7.C8.A9.B10.D11.D12.D13.C14.C15.C16.C17.A18.C19.C20.B21.A22.C23.B24.B25.D26.B27.B28.A29.B30.D31.C32.B33.B34.A35.B36.C37.D38.D39.C40.A41.D42.C43.C44.D45.C46.A47.C48.B49.C50.B51.D52.C53.C54.A55.C56.C57.D58.C59.B60.D61.A62.B63.C64.B65.D66.D67.C68.B69.A70.C71.B72.C73.A74.B75.C二、填空题1.数据库表,自由表2.其他数据库3.显示8～12号记录内容4.插入对象5.Replace6.以“独占”方式打开数据表7..F.,.T.,18.将指针定位于满足条件的第一条记录上,逻辑9.DeleteAllForSubstr(分类号,1,1)=“J”或DeleteAllForLeft(分类号,1)=“J”DeleteAllForYear(出版日期)<1960,Pack10..cdx11.主索引,候选索引,普通索引,主索引12.主索引或候选索引,普通索引13.永久关系,关联14.临时15.更新,插入,删除16.父表,子表17.实体18.逻辑型19.将索引标识为bh的索引设置为主控索引20.GoTop21.先显示女生记录,再显示男生记录22.别名->字段名或别名.字段名23.bjbh+Str(cj,3)+Dtoc(csrq)24.254,20,8,1,425.ListFor职称="教授"Or职称="副教授"或者ListFor"教授"$职称26.UsegzIndexgz1,gz227.AverageYear(Date())-Year(csrq)Forxw="博士"Toage28.CountForxb="女"Andzc="教授"三、判断题1.T2.F3.T4.F5.T6.F7.F8.T9.T10.F11.F12.F13.F14.F15.F16.T17.F18.T19.F20.F21.T22.F23.T24.F25.T26.F27.F28.F29.F30.F31.F32.F33.T34.T35.F36.F37.T38.F39.F40.T第三章查询与视图习题精练一参考答案：一、单项选择题1.D2.D3.D4.C5.D6.A7.B8.D9.D10.B11.D12.D13.D14.A15.B16.C17.D18.D19.D20.C21.C22.D23.B24.Dn25.B26.A27.D28.D29.C30.A31.D32.D33.C二、填空1.可用字段2.不能3.查询条件4.本地视图5).修改6.联接7.联接8.查询文件,数据库文件9.DO查询.QPR10.USE视图名NODATA11.表视图习题精练二参考答案一、选择题1.B2.D3.A4.A5.D6.B7.C8.C9.C10.D11.A12.B13.D14.C15.A16.B17.A18.C二、填空题1.查询条件2.设置输出字段,选定符合条件的记录,使记录按照指定的字段进行排序3.满足指定条件4.SQLSelect,qpr5.虚表6.自由表,视图7.本地视图,远程视图8.连接9.OpenDatabasejsgl/Usecx_js/Browse10.更新三、判断题1.F2.T3.F4.F5.F6.T7.T8.T9.T10.T11.F12.T第四章关系数据库标准语言SQL习题精练一参考答案：一、单项选择题1.B2.A3.A4.D5.A6.A7.B8.D9.B10.A11.C12.B13.A14.B15.C16.D17.B18.D19.C20.D21.B22.A23.B24.A25.B26.A27.B28.C29.A30.D31.C32.A二、填空1.CREATETABLE借阅(借书证号C(4),总编号C(6),借书日期D(8))或CREATABL借阅(借书证号C(4),总编号C(6),借书日期D(8))2.COUNT(DISTINCT总编号)或COUN(DISTINCT总编号)或COUNT(DIST总编号)或COUN(DIST总编号)3.单价<=20(出版单位="清华大学出版社"OR出版单位="电子工业出版社")或(出版单位="电子工业出版社"OR出版单位="清华大学出版社")单价<=204.AVG(单价)与COUNT(*) 或COUNT(出版单位)COUN(出版单位)与GROUPBY5.单价BETWEEN15AND25或单价>=15and单价<=25与分类号ASC或分类号6.IN与借书证号与COUNT(*)=1或COUN(*)=17.SETCHECK单价>=0ERROR"单价应该大于等于0!"或SETCHEC单价>=0ERRO"单价应该大于等于0!"8.总编号+借书证号或借书证号+总编号9.IN(SELECT总编号FROM借阅)或IN(SELE总编号FROM借阅)10.OR出版单位="电子工业出版社"ORDERBY出版单位DESC11.INTOcursor或INTOcursorcursorname12.INSERTINTOR(NO,NAME,CLASS)VALUES(30,"郑和","95031")或INSEINTOR(NO,NAME,CLASS)VALUES(30,"郑和","95031")13.UNIONn14.DELETEFROMRWHERENO=20或DELEFROMRWHERENO=20或DELEFROMRWHERNO=20或DELETEFROMRWHERNO=2015.GROUPBY16.UPDATERSETNAME="王华"WHERENO=10或UPDARSETNAME="王华"WHERENO=10或UPDARSETNAME="王华"WHERNO=1017.SUMAVG18.NULL19.结构化查询语言20.INTOVALUES21.UPDATEWHERE22.学生.学号=选课.学号23.UPDATE24.COUNT(学号)25.VALUES26.SET27.ORDERBY28.BETWEEN29.LIKE30.INTOARRAY31.WHERE习题精练二参考答案一、单项选择题1.D2.B3.A4.B5.D6.B7.A8.A9.D10.D11.A12.D13.B14.C15.B16.A17.D18.B19.A20.D21.C22.D23.B24.C25.C26.B27.D28.B29.B30.A31.D32.D33.A34.D35.A36.B37.D38.D39.A40.D41.C42.A43.A44.D45.C46.C47.D48.B49.A50.C51.C52.A二、填空题1.Union2.数据查询3.Sum(工资)4.InsertInto5.Alter,Alter,Check6.And,In7.As,项目8.Top,OrderBy9.Add,Check10.On11.Update,Set三、写出实现下列功能的SQL命令1.Selectxm,csrqFromjsqkWherehf2.SelectxmFromjsqk,xbWherejsqk.xbbh=xb.xbbhAnd(xbmc="会计系";Orxbmc="经济系")3.SelectAvg(jcgz)Fromgz,jsqkWheregz.jsbh=jsqk.jsbhAndxb="女"4.Selectxm,xlFromjsqkWherexb="男"5.SelectAvg(jcgz)Fromgz,jsqkWheregz.jsbh=jsqk.jsbhAnd“教授”$zc6.SelectxmFromgz,jsqkWheregz.jsbh=jsqk.jsbhAndjcgz<15007.Selectxbmc,Count(*)Fromjsqk,xbWherejsqk.xbbh=xb.xbbhGroupByxbmc8.Selectxbmc,Count(jsbh)教授人数Fromxb,jsqkWherejsqk.xbbh=xb.xbbh;Andzc="教授"GroupByxbmcOrderBy教授人数9.SelectxmFromjsqkWherejsbhIn(SelectjsbhFromkyqk)10.SelectxbmcFromxbWherexbbhNotIn(SelectxbbhFromjsqk,kyqk;Wherejsqk.jsbh=kyqk.jsbh)11.SelectSum(jcgz+zwbt+zjjt)Fromgz12.Selectxbmc,Count(*)Fromxb,jsqk,gzWherejsqk.xbbh=xb.xbbhAnd;gz.jsbh=jsqk.jsbhAndjcgz>=2000GroupByxbmc13.SelectTop1xbbh,Count(*)ttFromjsqk,kyqkWherejsqk.jsbh=kyqk.jsbh;GroupByxbbhOrderByttDesc14.InsertIntojsqk(jsbh,xm,xb,xl,xw,zc)Values;("199009","和红","女","研究生","博士","助教")15.DeleteFromjsqkWherexm="和红"n16.UpdategzSetzwbt=zwbt+200Wherejcgz+zwbt<200017.UpdategzSetzwbt=zwbt*1.1WherejsbhIn(SelectjsbhFromjsqk;Wherezc="教授")第五章VisualFoxPro程序设计基础习题精练一参考答案：参考答案：一、选择题1.B2.C3.A4.C5.D6.C7.A8.C9.B10.B11.A12.D13.B14.D15.B16.D17.D18.B19.B20.C21.C22.D23.D24.A25.D26.C27.B28.C29.B30.D31.C32.D33.C34.B35.C36.D37.D38.C39.A40.A41.B42.B43.A44.C45.C46.C47.C48.B49.D50.B51.B52.B53.A54.D55.C56.D57.B58.A59.B60.B61.B62.B二、填空题1.全局变量2.运算符3.n
0[2]J=I+1[3]STR(N)7.[1]RETURN.F.[2](-B+SQR(DELTA))/(2*A)8.DO SUB WITH2,AREA9.[1]GET PHN [2]CONTINUE10.1)[1]NOT.EOF()[2]I<=10[3]ENDCASE[4]S-PMAX-PMIN[5]SELEPW[6]SKIP2)SORTON最后得分/D，歌手编号TOGSPX3)AVER最后得分TOPJ4)[1]SUBS(选送地区，1，4)=“北京”[2]AT(“北京”，选送地区)11.[1].NOT.EOF()[2]数量>10.AND.数量<=50[3]SKIP12.[1]SEEK或LOCATEFOR书号=BNO[2]单价WITHXDJ[3]LOOP[4]EXIT13.[1]INPUTTORNO[2]READ[3]GATHERFROMBUFFER14.[1]INDEXON学号[2]学号INTOA[3]成绩+5[4]A->民族<>"汉"[5]A->姓名15.[1]OFF[2]ON三、程序设计题1.源程序如下：?"1994是个偶数,它的各位数字之和为23,请打印出比1994小的所有这样的数"?"按任一键开始…"wait""i=1j=1a=0dimearry(20)dowhilea<=1nb=5dowhileb<=9c=5dowhilec<=9d=6dowhiled<=9store(a*1000+b*100+c*10+d)toxifx<1994.and.a+b+c+d=23arry(i)=xi=i+1endifd=d+2enddoc=c+1enddob=b+1enddoa=a+1enddoj=i-1i=1dowhilei<=j?arry(i)i=i+1enddo?"共有数字："+STR(J,2)+"个"wait"按任一键退出…"clearreturn2.源程序如下：settalkoffclearstore1tox1,y1stor18tox2stor79toy2j=y2/2dowhilej>=0setcolotow+/6@x1,jcleatox2,j+1n@x1,79-jcleatox2,80-jj=j-1enddosetcoloto4/3@2,20cleato8,59@4,21say"用百钱买百鸡,鸡公一值钱五,鸡母一值钱三"@5,21say"鸡雏一值钱三,问公、母、雏各几？"@10,20say"按任一键继续…"wait""setcoloto2/5,1/6,7@9,12cleato16,67nc=0i=1dowhilenc<=20np=int((7*nc)/4)if4*np<>7*ncnc=nc+1elseifnp<=25nh=25-npch=75-nc+np@10,35say"答案"@i+10,12sayi@i+10,27say"鸡公"+str(nc,2)@i+10,41say"鸡母"+str(nh,2)@i+10,55say"鸡雏"+str(ch,2)i=i+1endifnc=nc+1endifenddosetcolotoreturn3.源程序如下：settalkoffclearwait"按任一键继续…"cleastore0toa,b,cn@3,2say"请输入除以3所得的余数："getapicture"9"valida>0.and.a<3@5,2say"请输入除以5所得的余数："getbpicture"9"validb>0.and.b<5@7,2say"请输入除以7所得的余数："getcpicture"9"validc>0.and.c<7ready=0dowhile.t.ifmod(y,3)=a.and.mod(y,5)=b.and.mod(y,7)=c@14,16say"结果为"+str(y)exitendify=y+1enddowait"按任一键退出…"clearreturn4.源程序如下：settalkoffx=0isdo=.t.dowhileisdoclear@4,2say"本程序求阶乘N!末尾零的个数"@6,5say"请输入N："getxvalidx>0readn=1m=0dowhile5**n<=xm=m+int(x/(5**n))n=n+1enddo@11,10sayltrim(str(x))+"的阶乘的末尾零的个数是："+ltrim(str(m))l="Y"@18,3say"是否做下一个数？[Y/N]"getlreadifupper(l)="N"isdo=.f.endifenddoclearnretu5.源程序如下：settalkoffsetcolotocleartext本程序求出100之内所有勾股数。endtextwait"按任一键继续…"cleacreatetablefox16(aan(4),bbn(4),ccn(4))setsafetyoffsetconfirmoffusefox16zapx=1y=2dowhilex*x+y*y<100dowhilex*x+y*y<100a=y*y-x*xb=2*x*yc=x*x+y*yappeblanreplaawitha,bbwithb,ccwithcy=y+1enddox=x+1y=y+1enddosorttofox16soncc/ausefox16swait"按任意键显示"dispallusedelefilefox16.dbfdelefilefox16s.dbfsetsafetyonsetconfirmonwait""nclearretu6.源程序如下：settalkoffclearsetbelloffsetconfirmon@7,4say"请输入魔方阶数N(1～15的奇数)："getNpicture"99"default3;validN>0.and.N<=15.and.int(N/2)<>N/2readdimea(N,N)a=0i=1j=(N+1)/2a(i,j)=1k=2dowhilek<=N*Ni=i-1j=j+1docasecasei=0.and.j=N+1i=i+2j=j-1casei=0i=Ncasej=N+1j=1endcaseifa(i,j)=0a(i,j)=kelsei=i+2j=j-1a(i,j)=kendifk=k+1enddoclearn@5,4sayltrim(str(N))+"阶魔方阵排列如下："i=1dowhilei<=Nj=1dowhilej<=N@5+i,5*jsaystr(a(i,j),4)j=j+1enddoi=i+1enddoreturn7.源程序如下：settalkoffsetcoloroffclearn=2m=1dowhilen>=2.and.n<=500@20,6say"请稍候…"i=1j=1w=0dowhilei=13dowhile(var(n-1)+j)0ZS=INT(ZS/10)ZSW=ZSW+1ENDDOXSW=0DOWHILEINT(X)#XX=X*10XSW=XSW+1ENDDOFJW=IIF(X<0，1，0)+IIF(XSW=0，0，1)?“整数位数为：”+STR(ZSW，5)+“，小数位数为：”+STR(XSW，5)n?“该数的实际输出位数为：”+STR(FJW+ZSW+XSW，5)SETTALKON12从键盘输入20个数，去掉20个数中的最大值和最小值，然后求平均值。【解题思路】：（1）引进变量S、N、MAX和MIN。S用来保存累加的结果，初值为0；N作为开展循环条件是否成立的变量，初值为1；MAX和MIN用来求最大值和最小值，初值为0，在循环过程中不断被比较和变化。（2）重复输入数据，每输一个数据B，执行命令S=S+B和N=N+1，并不断把MAX和MIN同数据B作比较，如果B>MAX，则把B的值赋给MAX；如果BBMIN=BENDIFN=N+1ENDDO?“AVERAGE=”+STR((S-MAX-MIN)/18，19，2)SETTALKON此题也可用数组来完成，程序代码如下：SETTALKOFFCLEARDIMENSIONA(20)S=0N=1STORE0TOMAX，MINFORI=1TO20INPUT‘A(’+STR(I，2)+‘)'’TOA(I)nS=S+A(I)IFMAXA(I)MIN=A(I)ENDIFENDFOR?“AVERAGE=”+STR((S-MAX-MIN)/18，19，2)SETTALKON此题还可用数组函数ASORT()来实现，ASORT()函数的功能是按升序或降序对数组中的元素排序，这样在求和时就可以把第一个和最后一个数组元素去掉，直接把其余18个元素分别求和后再求平均值。程序代码：SETTALKOFFCLEARDIMENSIONA(20)S=0FORI=1TO20INPUT‘A(’+STR(I，2)+‘)’TOA(I)ENDFOR=ASORT(A)FORN=2TO19S=S+A(I)ENDFOR?“AVERAGE=”+STR(S/18，19，2)SETTALKON13编程输出下列图形：12223333344444445555555554444444333332221【解题思路】这是一道典型的图案输出显示的问题，通过二重循环的控制来完成。具体步骤：（1）外循环除了用于控制图案组成元素外，还要控制输出的行数。从题目要求可知，输出显示的行数与给定的图案半高N（5）有关，可以换算出来。所以外循环的循环变量初值为1，终值为2N-1（11）。（2）内循环除用于控制图案组成元素外，还要控制输出的列数。从题目要求可知，每行输出的列数都不相同，但有规律可循，即每行输出的列数刚好与当前的行数I有关，同样可换算出来。对于给出的图案，可以将它分解为两个三角形，上面一个三角形每行中的列是逐行递增的（第一行输出2*I-1即1列，第5行输出2*I-1即9列），而下面一个三角形每行中的列是逐行递减的，所以内循环分为两个分别处理两个三角形。（3n）内循环控制的所有列输出在同一行中，且每列之间有一空格，但是外循环控制的所有行应换行输出在不同的行中。【程序代码】：SETTALKOFFCLEARN=5P=2*N-1FORI=1TOPIFI<=N?SPAC(N-I+1)FORJ=1TO2*I-1??STR(I，1)ENDFORELSE?SPAC(I-N+1)FORK=1TO2*(2*N-I)-1??STR(2*N-I，1)ENDFORENDIFENDFORSETTALKON14.编写一个自定义函数，实现将任意一个日期型表达式转换为中文大写形式。（如{12/15/1999}转换为中文大写形式为：一九九九年十二月十五日）【解题思路】：本题综合了对字符串的拆合、对字符串内容的转换以及对数值数据中数码的拆取等多种处理方法。具体处理时，运用函数将年、月、日分别从日期型表达式中换算出来，以数值型数据为处理对象，进行逐位拆取数码，然后根据拆取的数码在预设的中文大写数字串中截取对应的字符。最后将截得的字符拼合在一起。但要注意：（1）在将月转换为对应的中文大写月表示时，要分两种情况：1位或2位数值，主要考虑10转换后应为十，而不是一O或一十O；同样12转换后应为十二，而不是一二或一十二。（2）在将日转换为对应中文大写日表示时，分三种情况：1~9、10~19和20以上，主要考虑19转换后应为十九，而不是一九或一十九；同样20转换后应为二十，而不是二O或二十O。【程序代码】：FUNCTIONTRANSFERPARAXY=YEAR(X)M=MONTH(X)D=DAY(X)nC=“０一二三四五六七八九十”S=“”FORI=1TO4P=MOD(Y，10)S=SUBSTR(C，2*P+1，2)+SY=INT(Y/10)ENDFORS=S+“年”IFM<=10S=S+SUBSTR(C，2*M+1，2)ELSES=S+“十”+SUBSTR(C，2*MOD(M，10)+1，2)ENDIFS=S+“月”DOCASECASED<10S=S+SUBSTR(C，2*D+1，2)CASED<=19S=S+“十”+IIF(MOD(D，10)=0，“”，SUBSTR(C，2*MOD(D，10)+1，2))OTHERWISES=S+SUBSTR(C，2*INT(D/10)+1，2)+“+”+IIF(MOD(D，10)=0，“”，SUBSTR(C，2*MOD(D，10)+1，2))ENDCASES=S+“日”RETURNS15.编写一个模糊查询程序，实现对用户指定表文件中的指定字段，查询指定内容（可能是不完整的，要求是字符型）。如果用户指定的表文件不存在，自动显示提示信息。并可查询不同表文件，按Esc键退出查询。【解题思路】所谓模糊查询是指对表文件中字符型字段的不完全匹配查找。这种查找方式运用很广泛而且很实用。具体解题分析步骤为：（1）要对表中的信息进行查询，必须先打开相应的表文件，但现在要由用户指定表文件，则必须运用相应的输入语句来接收表文件。（2）判断输入的表文件是否存在，如存在则接着进行步骤3、4、5，否则输出提示信息，说明指定的表文件不存在，直接进行步骤6。（3）打开指定的表文件。（4）运用相应的输入语句来接收用户指定的查询字段及查询内容。（5）构造查询条件表达式，并显示满足条件的记录。（6n）在指定表文件存在的情况下，加入循环控制，以实现对同一个表中的多个字段的查询。同时为实现对不同表文件的查询功能，又加入一个永真循环，退出条件为用户是否按了Esc键。（7）结束对表中信息的操作，关闭相应的表文件。【程序代码】：SETTALKOFFSETESCAPEOFFCLEAR?“*****按Esc键结束操作*****”DOWHILE.T.CLEARACCEPT“请输入数据表名：”TOSJBMSJBM=ALLTRIM(SJBM)IFFILE(“&SJBM..DBF”)USE(SJBM)DOWHILE.T.ACCEPT“请输入字段名：”TOZDMACCEPT“请输入查询内容：”TOCXNRZDM=ALLTRIM(ZDM)CXNR=ALLTRIM(CXNR)BROWSEFORAT(CXNR，&ZDM)>0&&或用LISTFORCXNR$&ZDMWAIT“是否还要查询其他字段内容?Y/N”TOYNIFUPPER(YN)!=“Y”EXITENDIFENDDOELSE?“指定的表文件不存在!”ENDIFIFINKEY(0)=27EXITENDIFENDDOUSESETTALKONSETESCAPEON习题精练二参考答案参考答案：一、单项选择题1.B 2.B 3.C 4.C 5.C 6.A7.A8.B9.C10.B 11.A12.A13.C14.B15.A 16.An17.C18.A19.D20.A 21.A22.D23.D24.D25.D二、阅读题1.S=782.S=533.1223434564.301010 301010 305找不到变量“N”5.101231056.过程中：a,b,c,d=2642返回主程序：a,b,c,d=263找不到变量‘D’7.28.0000,9.0000,58.122.00339.同学们你们好！600同学们,200,30010.al,bl,cl=2167x,y,z=27710a2,b2,c2=2163211.X1=2,X2=6X1=4,X2=412.45.F..F..F.713.161116212631364146515614.12.F.4.F.2.F.三、程序填空题1.①.Not.Eof(),②Skip2.姓名=XM3.Loop4.(编号,8)=15.NUM6.①<>0,②J=J+1,③Str(N)7.“STD&m”n8.①!Eof(),②Skip9.①SetRelationTo总编号IntoBAddi②借书证号,A.姓名,A.单位,B.书名,B.单价,借阅日期10.①!Eof(),②zhcj>=90,③zhcj>=75,④zhcj>=60,⑤dj=“不及格”,⑥Withdj,⑦Skip11.①I<=10,②X>MAX,③X“汉”,⑤A.姓名14.①K(3),②Go2,③FromK15.①DimeN(10),L(10),②J=I+1,③C=N(I),④N(I)=N(J),⑤N(J)=C,⑥?I,N(I),L(I)16.①DimeX(10),②StoreX(1)ToMax,Min,S,③Min>X(I),④(s-max-min)/8,⑤Str(avg,4,2),⑥Str(max,4,2),⑦Str(min,4,2)四.程序设计题1.**主程序MAIN.PRG?2ForM=3To100Step2N=Int(Sqrt(M))DoSubEndforSetTalkOnReturn**子程序Sub.PrgForI=3ToNStep2IfMod(M,I)=0ReturnEndifEndfor??MReturn2.**SGN.PRGFunctionGnsParametersXDoCaseCaseX>0Y=1CaseX=0Y=0nOtherwiseY=-1EndcaseReturnY3.**ABC.PrgDimensionA1(3),A2(3)UseABCGo4ScatterToA1Skip2ScatterToA2GatherFromA1Skip-2GatherFromA2UseReturn4.**KCCX.PrgClearSele1UsestuSele2UsekcSele3UseskJoinWithBTokccx1For课程号=B.课程号Usekccx1JoinWithATokccxFor学号=A.学号UsekccxAccept“请输入要查询的课程名：”TokcmScanFor课程名=KcmDisp学号,姓名,成绩EndscanCloseAllReturn5.**PROG.P.RGSetSafetyOffSelect1UseGzCopystruToggznSelect2UseggzSelect1X=1001DoWhileX<1006LocateForLeft(职工号,4)=Str(X,4)IfFound()M=实发工资GoTopDoWhile!Eof()IfLeft(职工号,4)=Str(X,4).And.实发工资>MM=实发工资EndifSkipEnddoLocateForLeft(职工号,4)=Str(X,4).And.实发工资=MSelect2AppendBlankReplace姓名WithA->姓名,职工号WithA->职工号,；基本工资WithA->基本工资,奖金WithA->奖金,；津贴WithA->津贴,房租WithA->房租,；水电费WithA->水电费,实发工资WithA->实发工资Select1EndifX=X+1EnddoSelect2GoTopM=实发工资DoWhile!Eof()If实发工资>MM=实发工资EndifSkipEnddoAppendBlankReplace实发工资WithMCloseAllSetSafetyOnnReturn6.**PROG.prgSelect1UsezzSelect2UsedjIndexOn书号ToIntoShsySelectzzSetRelationTo书号IntoDjAccept‘请输入作者姓名：’ToNamename=Trim(name)S=.F.ScanIf作者名=NameS=.T.Display书名,出版日期,Dj.单价,Dj.数量EndifEndscanIf!S?“表中没有”+name+“作者的书”EndifCloseDataReturn7.**Prog.prgUseksReplaceAll结业否With.T.For笔试成绩>=60.And.上机成绩>=60UsejyAppendFromksFor结业否ListUseReturn8.**prog.prgSelectBUsefile2SelectAUsefile1DoWhile!Eof()ScatterTor_arraySelectBnAppendBlankGatherFromr_arraySelectASkipEnddoCloseDatabasesReturn9.**prog.prgClearClearAllUse日销售文件Input"请输入营业员代码"ToXDoWhileX<>0LocateFor营业员代码=XIfFound()SelectSum(数量*单价)From日销售文件Where营业员代码=XIntoArrayyy?Str(X,4)+"号营业员目前的营业额为：",yy(1),"元"Else?"错误代码"EndifInput"请输入营业员代码"ToXEnddoSelect营业员代码,Sum(数量*单价)As日营业额From日销售文件;GroupBy营业员代码IntoTable日统计表OrderBy日营业额DescBrowUseReturn10.方法一usescorescans=0if物理>=60s=s+2endifif高数>=60s=s+3endifif英语>=60s=s+4nendifreplace学分withsendscanselect*fromscoreintotablexforderby学分,学号descusereturn方法二：updatescoreset学分=iif(物理>=60,2,0)+iif(高数>=60,3,0)+iif(英语>=60,4,0);select*fromscoreintotablexforderby学分,学号desc第六章表单设计习题精练一参考答案：一、选择题1.A2.C3.A4.A5.D6.C7.A8.C9.B10.D11.C二、填空题1.数据环境属性窗口表单控件工具栏布局工具栏表单生成器自动格式2.表视图表间3.前景色背景色4.LeftTop5.表单设计器表单控件左键八个小黑方块6.交互方式列表7.ClickThisform..Release8.工具调试器9.刷新表单10.ShowWindow三、编程题1.答：(1)在“项目管理器”的“文档”选项卡中,选择“表单”,然后单击“新建”按钮,在弹出的“新建表单”对话框中单击“表单向导”。(2)选择“表单向导”,然后单击“确定”按钮,弹出“表单向导”对话框的第一步字段选取。(3)单击“下一步”,进入表单向导的第二步选择表单样式。(4)单击“下一步”,进入表单向导的第三步排序记录。(5)单击“下一步”,进入表单向导的第四步完成。2.答：(1)新建一个表单界面,添加三个标签控件label1、label2和label3,三个文本框控件text1、text2和text3,两个命令按钮command1、command2。(2)表单的caption属性设为：求连续整数的和。标签控件的caption属性分别设为：请输入第一个数a:、请输入结尾的数b：和a+(a+1)+(a+2)+....+b=。命令按钮的caption属性分别设为：计算和关闭。(3)command1的click事件：s=0a=val(allt(thisform.text1.value))b=val(allt(thisform.text2.value))fori=atobs=s+iendfornthisform.text3.value=scommand2的click事件：thisform.release3.答：(1)新建一个表单界面,添加三个标签控件label1、label2和label3,三个文本框控件text1、text2和text3,两个命令按钮command1、command2。(2)表单中标签控件的caption属性分别设为：请输入第一个数a:、请输入结尾的数b：和a!+(a+1)!+(a+2)!....+b!=。命令按钮的caption属性分别设为：计算和退出。(3)command1的click事件：s=0a=val(allt(thisform.text1.value))b=val(allt(thisform.text2.value))t=1fork=atobt=t*ks=s+tendforthisform.text3.value=scommand2的click事件：thisform.release4.答：(1)新建一个表单界面,添加三个标签控件label1、label2和label3,三个文本框控件text1、text2和text3,两个命令按钮command1和command2。(2)表单的caption属性设：计算某门课程的学分数。标签控件的caption属性分别设为：请输入你的成绩、请输入该课的学时数、该课程的学分数为：。命令按钮的caption属性分别设为：计算和退出。(3)command1的click事件：a=val(allt(thisform.text1.value))b=val(allt(thisform.text2.value))/20ifa<60thisform.text3.value=0elseifa<70thisform.text3.value=belseifa<80thisform.text3.value=2*belseifa<90thisform.text3.value=3*belseifa<=100thisform.text3.value=4*bnendifendifendifendifendifcommand2的click事件：thisform.release5.答：(1)新建一个表单界面,添加四个标签控件label1、label2、label3和label4,两个文本框控件text1、text2,两个命令按钮command1和command2。(2)表单的caption属性设：判断鸡兔的只数。标签控件的caption属性分别设为：鸡兔总的只数是、鸡兔总的腿数是、‘’和‘’。命令按钮的caption属性分别设为：判断鸡兔各几只和结束。(3)command1的click事件：a=val(allt(thisform.text1.value))b=val(allt(thisform.text2.value))fori=1toa-1j=a-iifi*2+j*4=bthisform.label3.caption=‘鸡的只数是：'+str(i)thisform.label4.caption=‘兔的只数是：'+str(j)endifendforcommand2的click事件：thisform.release6.答：(1)新建一个表单界面,添加两个标签控件label1、label2,两个文本框控件text1、text2,一个编辑框控件edit1,三个命令按钮command1、command2、command3。(2)表单的caption属性设：求闰年。标签控件的caption属性分别设为：请输入开始的年份、请输入结束的年份、前一个字母是。命令按钮的caption属性分别设为：判断闰年、重来一次和退出。(3)command1的click事件：a=val(allt(thisform.text1.value))b=val(allt(thisform.text2.value))fori=atobif(i%4=0andi%100<>0)ori%400=0thisform.edit1.value=allt(thisform.edit1.value)+''+allt(str(i))endifendforcommand2的click事件：thisform.edit1.value=''thisform.text1.value=''thisform.text2.value=''thisform.text1.setfocusncommand3的click事件：thisform.release习题精练二参考答案一、选择题1.B2.B3.D4.C5.D6.C7.A8.C9.D10.A11.D12.B13.A14.A15.A二、填空题1.编辑框命令按钮组列表框表格2.可见的不可见的3.右对齐居中对齐自动对齐4.椭圆矩形圆角正方形5.选项按钮组命令按钮文本框6.下拉组合框下拉列表框0下拉组合框2下拉列表框7.GridlineWidth8.Thisform.OptionGroup1.Option1.Caption='浏览'9.Text1Text110.左上右下三、编程题1.答：(1)新建一个表单,在表单设计器中添加一个标签控件Label1,一个文本控件text1和两个命令按钮Command1和Command2。(2)表单的标题属性为：用户登录界面,标签控件的caption属性是：请您输入登录口令,命令按钮的caption属性分别是：进入和退出。(3)Command1的Click事件：ifthisform.text1.value="123456"doformzjmelse=messagebox("对不起,输入的密码错误,请重新输入！",64,"提示")thisform.text1.value=''thisform.text1.setfocus()endifCommand2的Click事件：thisform.release2.答：(1)新建一个表单,在表单设计器中添加四个标签控件Label1、Label2、Label3、Label4,四个文本控件text1、text2、text3、text4,和两个命令按钮Command1和Command2。(2)表单的标题属性为：密码修改,标签控件的caption属性是：姓名、旧密码、新密码和确认新密码,命令按钮Command1和Command2的caption属性分别是：取消和确认,text2、text3、text4的passwordchar属性是*。(3)Command1的Click事件：thisform.releaseCommand2的Click事件：setexactonif!empty(thisform.text1.text);and!empty(thisform.text2.text);and!empty(thisform.text3.text);and!empty(thisform.text4.text)locatefor姓名=alltrim(thisform.text1.text)iffound()nif密码=alltrim(thisform.text2.text)ifalltrim(thisform.text3.text)=alltrim(thisform.text4.text)replace密码withalltrim(thisform.text3.text)messagebox("新密码已确认",64,"提示")relethisformelsemessagebox("两新密码不相同",64,"提示")thisform.text3.value=""thisform.text4.value=""thisform.text3.setfocusendifelsemessagebox("密码错误",64,"提示")thisform.text2.value=""thisform.text2.setfocusendifelsemessagebox("没有此记录",64,"提示")endifelsemessagebox("请填写所有项目",64,"提示")endifform1的load事件：closetablesalluse"operator.dbf"form1的Unload事件：closetablesall另外,在表单的数据环境中添加operator.dbf表。其表结构如：编号,N,6、姓名,C,8、密码,C,8。记录：1、li、123456。3.答：(1)新建一个表单,添加一个表格控件grid1和命令按钮command1。(2)表单的Caption和命令按钮的Caption属性分别设置为：“计算”和“退出”。(3)在表单的数据环境中添加jsgzl数据库中的酬金表,并且指定grid1的recordsource的属性是酬金表(3)command1的click事件：Thisform.release4.答：(1)新建一个表单,添加一个标签控件label1。(2)表单的Caption属性为“五一劳动节”,label1的Caption属性为“劳动最光荣！”；FontName设置为"楷体_GB2312";FontSize=48；Height=84；Width=312；。n5.答：(1)新建一个表单,添加三个文本框控件text1、text2、text3和一个命令按钮command1。(2)表单的caption属性为：显示对齐文本,command1的caption属性为：查看对齐方式。(3)command1的click事件为：thisform.text2.value=thisform.text1.valuethisform.text3.value=thisform.text1.valuethisform.text2.alignment=0thisform.text3.alignment=16.答：(1)新建一个表单,添加一个命令按钮command1。(2)表单的caption属性为：画图实例,command1的caption属性为：开始画圆。(3)command1的click事件为：Pi=3.1415926Thisform.drawwidth=4Thisform.fillstyle=0Thisform.fillcolor=rgb(0,255,0)Thisform.circle(100,100,100)Thisform.fillcolor=rgb(255,255,0)Thisform.circle(50,100,50)Thisform.circle(50,100,150)Thisform.fillstyle=0Thisform.fillcolor=rgb(0,0,0)Thisform.circle(10,100,50)Thisform.circle(10,100,150)7.答：(1)新建一个表单,添加一个命令按钮command1。(2)表单的caption属性为：画图实例,command1的caption属性为：开始画图。(3)command1的click事件为：Thisform.drawwidth=4Fori=1to7Thisform.fillstyle=iThisform.box(20*i,20*i,30*i,25*i)Thisform.refreshendfor8.答：(1)新建一个表单,添加一个标签控件,一个文本框控件,和三个命令按钮command1、command2、command3。(2)命令按钮的Caption的属性分别设置为：“转换成大写字母”、“转换成小写字母”和“恢复原状”,标签的Caption属性为：请输入字母。(3)text1的interactivechange事件：thisform.tag=this.valuecommand1的click事件：thisform.text1.value=upper(thisform.text1.value)ncommand2的click事件：thisform.text1.value=lower(thisform.text1.value)command3的click事件：thisform.text1.value=thisform.tag9.答：(1)新建一个表单界面,添加3个标签控件Label1～Label3,一个选项按钮计控件optiongroup1和1个命令按钮command1。(2)设置对象属性：表单的Caption属性为“选择题”,标签的Caption属性分别为：“2*3=”、“请做答：”、“”；command1的Caption属性为“结束”。(3)command1Timer1的click事件：thisform.releaseoptiongroup1的interactivechange事件：ifthis.value=4thisform.label3.caption="恭喜你,答对了！"elsethisform.label3.caption="sorry,再来！"endif10.答：(1)新建一个表单,添加三个命令按钮command1、command2、command3。(2)它们的Caption的属性分别设置为：“隐藏第二个按钮”、“隐藏第一个按钮”和“显示按钮”。(3)command1的click事件：thisform.command2.visible=.f.；command2的click事件：thisform.command1.visible=.f.；command3的click事件：thisform.command1.visible=.t.；thisform.command1.visible=.t.。习题精练三参考答案：一、单项选择题1.B2.A3.D4.C5.C6.A7.A8.C9.C10.B11.B12.C13.B14.D15.D16.D17.B18.B19.B20.B21.C22.C23.A24.C25.D26.B27.C28.B29.C30.D31.A32.D33.D34.C35.D36.B37.B38.D39.B40.C41.B42.D43.C44.B45.D46.A47.B48.D49.D50.A51.D52.B53.C54.C55.A二、填空题1.实例2.容器类,控件类3.基类4.对象5.Init,Destroy,DblClick6.Release7.类8.属性,方法9.事件10.Myform.show11.该属性只读12.This.Value=Date()13.单表表单,一对多表单14.列15.Enabled16.空字符串17.表单备注,.scx,.sct18.Enabled,Visible19.对象,数据源,关系,数据表,自由表,视图20.程序代码21.Command1.Click,Command2.Click22.多段,单段23.Caption,Autosize24.字段名25.当前对象,当前表单,当前对象的父对象26.Shift27.RowSourceType,RowSource28.This.Text1.Value=Date(),Thisform.Text1.Value="",Thisform.Release,第四个空：Thisform.Label1.Caption="当前系统日期"This.Value=Date()第五个空：RightClick第六个空：Thisform.Label1.Caption="当前系统时间"nThis.Value=Time()三、设计题(参考答案)1.设计步骤如下：⑴打开窗体设计器。⑵添加两个标签,两个文本框和两个命令按钮,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑶分别设置两个标签的Caption属性分别为“请输入一个整数：”、“此整数的阶乘为：”,两个命令按钮的Caption属性分别为“计算”、“退出”,并将两个文本框的Value属性设置为0。⑷编写计算按钮Command1的Click事件的代码如下：s=1n=Thisform.Text1.ValueIfn>0Fori=1Tons=s*iEndforThisForm.Text2.Value=sElseMessageBox("输入非法数据,退出程序运行。")Thisform.ReleaseEndif⑸编写退出按钮Command2的Click事件的代码如下：Thisform.Release2.设计步骤如下：⑴打开窗体设计器。⑵添加两个标签,一个文本框,一个命令按钮和一个选项按钮组,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑶分别设置两个标签的Caption属性为“请输入显示内容：”、“请选择字体：”,命令按钮的Caption属性为“关闭”。⑷利用选项按钮组生成器将其布局设为横向,个数设为4个,每个选项按钮设置其Caption属性分别为：“黑体”、“宋体”、“隶书”、“楷体”。⑸编写选项按钮组OptionGroup1的Click事件的代码如下：DoCaseCaseThis.Value=1Thisform.Text1.FontName="黑体"CaseThis.Value=2Thisform.Text1.FontName="宋体"CaseThis.Value=3Thisform.Text1.FontName="隶书"nCaseThis.Value=4Thisform.Text1.FontName="楷体"Endcase⑹编写关闭按钮Command2的Click事件的代码如下：ThisForm.Release3.设计步骤如下：⑴打开窗体设计器。⑵添加三个标签,三个文本框,一个命令按钮组,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑶分别设置三个标签的Caption属性为“初值：”、“终值：”、“结果：”。⑷利用命令按钮组生成器将其布局设为横向,个数设为3个,每个命令按钮分别设置其Caption属性为“计算”、“清除”、“退出”。⑸编写Form1的Init事件的代码如下：This.Text1.Value=0This.Text2.Value=0This.Text3.Value=0This.Text3.Enabled=.F.⑹编写命令按钮组CommamdGroup1的Click事件的代码如下：DoCaseCaseThis.Value=1i=0Forj=Thisform.Text1.ValueToThisform.Text2.Valuei=i+jEndforThisform.Text3.Enabled=.T.Thisform.Text3.Value=iCaseThis.Value=2Thisform.Text1.Value=0Thisform.Text2.Value=0Thisform.Text3.Value=0Thisform.Text3.Enabled=.F.CaseThis.Value=3Thisform.ReleaseEndcase4.设计步骤如下：⑴打开窗体设计器。⑵打开数据环境设计器,将jsgl数据库中的jsqk.dbf添加到其中。⑶使用表单菜单中的快速表单命令,打开表单生成器,将该数据表中的所有字段全部添加到选定字段中,关闭生成器,选定字段绑定的相关控件出现在表单中,调整其位置。n⑷添加一个命令按钮组,利用命令按钮组生成器将其布局设为纵向,个数设为3个,每个命令按钮设置其Caption属性为“上一条”、“下一条”、“退出”。⑸各对象的Name属性取系统默认值不变。⑹编写命令按钮组CommandGroup1的Click事件的代码如下：DoCaseCaseThis.Value=1IfBof()GoBottEndifSkip-1Thisform.RefreshCaseThis.Value=2IfEof()GoTopEndifSkip1Thisform.RefreshCaseThis.Value=3Thisform.ReleaseEndcase5.设计步骤如下：⑴打开窗体设计器。⑵打开数据环境设计器,将student.dbf添加到其中。⑶添加一个命令按钮组,一个选项按钮组,两个文本框,一个命令按钮,一个表格,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑷利用命令按钮组生成器将其布局设为纵向,个数设为2个,各个按钮设置其Caption属性为“平均分”、“优秀人数”。⑸利用选项按钮组生成器将其布局设为横向,个数设为3个,各个选项按钮设置其Caption属性为“语文”、“数学”、“英语”。命令按钮的Caption属性设置为“退出”。⑹表格中各控件对象的属性设置如下表所示：第5题控件对象属性表控件名称属性名设置值控件名称属性名设置值Header1Caption学号Column1ControlSourcestudent.xhHeader1Caption姓名Column2ControlSourcestudent.xmHeader1Caption语文Column3ControlSourcestudent.ywHeader1Caption数学Column4ControlSourcestudent.sxHeader1Caption英语Column5ControlSourcestudent.yy⑺编写Form1的Load事件代码如下：Publicxnx="语文"⑻编写选项按钮组OptionGroup1的Click事件的代码如下：DoCaseCaseThis.Value=1x="语文"CaseThis.Value=2x="数学"CaseThis.Value=3x="英语"Endcase⑼编写命令按钮组CommandGroup1的Click事件的代码如下：DoCaseCaseThis.Value=1Average&xTopjThisform.Text1.Value=pjCaseThis.Value=2CountFor&x>=85ToyouThisform.Text2.Value=youEndcase⑽编写命令按钮Command1的Click事件的代码如下：Thisform.Release6.设计步骤如下：⑴打开窗体设计器。⑵打开数据环境设计器,将student.dbf添加到其中。⑶添加一个命令按钮组,五个标签,四个文本框,一个组合框,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑷设置五个标签的Caption属性为“请选择学生学号：”、“姓名：”、“语文：”、“数学：”、“英语：”。组合框Combo1的RowSourceType设置为6-字段,RowSource设置为“student.xh”。⑸利用命令按钮组生成器将其布局设为横向,个数设为2个,各个命令按钮设置其Caption属性为“查询”、“退出”。⑹编写命令按钮组CommandGroup1的Click事件的代码如下：DocaseCaseThis.Value=1LocateForxh=Thisform.Combo1.ValueThisform.Text1.Value=xmThisform.Text2.Value=ywThisform.Text3.Value=sxThisform.Text4.Value=yynCaseThis.Value=2Thisform.ReleaseEndcase7.设计步骤如下：⑴打开窗体设计器。⑵添加两个标签,一个计时器,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑶设置标签Label1的Caption属性为“教师信息管理系统”,FontSize设为25。标签Label2的Caption属性为“欢迎使用本系统”。计时器Timer1的Interval属性设为50。⑷编写计时器Timer1的Timer事件的代码如下：Thisform.Label2.Left=Thisform.Label2.Left+2IfThisform.Label2.Left>=Thisform.WidthThisform.Label2.Left=0Endif8.设计步骤如下：⑴打开窗体设计器。⑵添加一个标签,一个文本框,一个命令按钮,四个复选框,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑶设置标签Label1的Caption属性为“教师总数：”。命令按钮的Caption属性为“统计人数”。四个复选框的Caption属性分别设置为：“经济系”、“会计系”、“财税系”、“计算机系”。⑷编写命令按钮Command1的Click事件的代码如下：s1=0s2=0s3=0s4=0sum=0IfThisform.Check1.Value=0AndThisform.Check2.Value=0;AndThisform.Check3.Value=0AndThisform.Check4.Value=0MessageBox("未选择任何系部,不能进行任何人数统计。")ElseIfThisform.Check1.Value=1SelectxbbhFromxbWherexbmc=Thisform.Check1.Caption;IntoArrayaaCountForxbbh=aa(1)Tos1EndifIfThisform.Check2.Value=1SelectxbbhFromxbWherexbmc=Thisform.Check2.Caption;IntoArraybbCountForxbbh=bb(1)Tos2nEndifIfThisform.Check3.Value=1SelectxbbhFromxbWherexbmc=Thisform.Check3.Caption;IntoArrayccCountForxbbh=cc(1)Tos3EndifIfThisform.Check4.Value=1SelectxbbhFromxbWherexbmc=Thisform.Check4.Caption;IntoArrayddCountForxbbh=dd(1)Tos4EndifEndifsum=s1+s2+s3+s4Thisform.Text1.Value=sum9.设计步骤如下：⑴打开窗体设计器。⑵添加一个标签,一个组合框,和一个表格,并调整其大小和位置。各对象的Name属性取系统默认值不变。⑶设置标签Label1的Caption属性为“选择一个表名：”。表格Grid1的RecordSourceType设置为1-别名。组合框Combo1的RowSourceType设置为1-值,RowSource设置为“教师情况表,工资表,科研情况表,系部表”。⑷编写组合框Combo1的Click事件代码如下：Thisform.Grid1.ColumnCount=-1Thisform.Grid1.RecordSource=This.Value10.设计步骤如下：⑴打开窗体设计器。⑵打开数据环境设计器,将jsqk.dbf和kyqk.dbf添加到其中。⑶添加一个页框,其中包含两个页面对象。使页框处于编辑状态,将页面Page1作为当前页面,在其中加入一个标签、一个组合框和一个表格,如设计题10图a；将页面Page2作为当前页面,在其中加入四个标签、三个文本框、一个组合框和两个命令按钮,如设计题10图b。调整各控件的大小和位置。各对象的Name属性取系统默认值不变。⑷各控件对象的属性设置如下表所示：第10题控件对象属性表控件名称属性名设置值Frame1Page1Grid1Header1Caption教师编号Header2Caption成果编号Header3Caption成果名称Header4Caption成果类别nLabel1Caption选择姓名Combo1RowSourceType6-字段RowSourcejsqk.xmPage2Label1Caption成果编号：Label2Caption成果名称：Label3Caption成果类别：Label4Caption教师编号：Combo1RowSourceType3-SQL语句RowSourceSeleDistcglbFromkyqkIntoCursorCombo1Command1Caption添加Command2Caption退出⑸编写Page1中组合框Combo1的Click事件代码如下：Thisform.Pageframe1.Page1.Grid1.RecordSource="Selejsqk.jsbh,cgbh,cgmc,cglb；Fromjsqk,kyqkWherejsqk.jsbh=kyqk.jsbhAndxm=This.Value；IntoCursorGrid1"⑹编写Page2中命令按钮Command1的Click事件代码如下：IfMessageBox("确定要保存当前数据吗？",1+48)=1SelectkyqkAppendBlankReplacecgbhWithThis.Parent.Text1.Value,cgmcWithThis.Parent.Text2.Value,;JsbhWithThis.Parent.Text3.Value,cglbWithThis.Parent.Combo1.ValueEndifThis.Parent.Combo1.Value=''This.Parent.Text1.Value=''This.Parent.Text2.Value=''This.Parent.Text3.Value=''⑺编写Page2中命令按钮Command2的Click事件代码如下：Thisform.Release第七章报表设计习题精练一参考答案：一、选择题1.D2.B3.A4.D5.A6.B7.B8.D9.B10.B11.D12.B13.C14.C15.A16.B17.D18.B19.D20.D21.C22.C23.D24.Bn二、填空题1.数据源2.页面设置或列数3.标签4.205.REPORTFORM6.MODIFY7.排序8.标签9.组标头10.细节11.组标头与组注脚12.数据源与布局13.行报表、列报表14.页标头、页注脚15.页标头、组标头16.报表控件17.列数18.预览窗口19.带区三、判断题1.×2.√3.√4.×5.√6.√7.√8.√9.√10.√习题精练二参考答案一、单项选择题：1.D2.B3.A4.A5.C6.C7.D8.A9.C10.D11.C12.B13.D14.D15.C16.C二、填空题1.报表数据源报表布局2.图片通用型字段3.列数4.报表向导报表设计器快速报表5.报表一对多报表6.报表设计器7.报表设计器快速报表8.打印位置9.每一页报表开始10.标签11.MODIFYREPORT12.域控件图片/ActiveX绑定控件13.分组表达式14.域15.排序16.REPORTFORM17.报表三、设计题1.设计步骤：⑴在报表向导选择中选择“一对多报表向导”。⑵进入报表向导后共有6个步骤,按顺序选择操作：步骤1-父表字段选取：选择jsqk.dbf表中的jsbh和xm字段作为选定字段。步骤2-字表字段选取：选择gz.dbf表中的除jsbh字段之外的所有字段作为选定字段。步骤3-建立数据表间关系：将两个表以jsbh字段建立关系。步骤4-排序记录和步骤5-定义报表类型,使用系统默认选项不变。步骤6-完成:在“报表标题”中输入标题“教师工资报表”,选择“保存报表并在报表设计器中修改”,单击“完成”按钮。⑶在报表设计器中,将“教师工资报表”标签控件移动到报表标题带区中间,选定文本内容,打开“格式”菜单中的“字体”菜单项,将字体设为隶书,字号为一号。⑷在页标头带区“扣水电费”标签之后添加一个标签控件,设其显示文本为“工资总和”,类似上一步骤,将字体设为加粗且带下划线,其余不变。⑸在细节带区添加一个域控件,在弹出的“报表表达式”对话框中,利用表达式生成器,在“表达式”后的文本框中输入：gz.jcgz+gz.zwbt+gz.zjjt-gz.ksdf,关闭对话框。⑹单击“文件”菜单中的“打印预览”,可以查看打印效果。2.设计步骤：⑴打开报表设计器。⑵打开数据环境设计器,将jsqk.dbf和xb.dbf两个表加入到报表的数据环境中。将jsqk.dbf的xbbh字段拖放到xb.dbf的xbbh字段上,系统自动为xb.dbf表按xbbh字段建立索引,从而建立两表之间的关系。⑶确定jsqk.dbf表中已经依据xbbh字段建立了索引,并将该索引设为该表的主控索引。可以在数据环境设计器中右键单击jsqk.dbf表,在出现的快捷菜单中选择“属性”,在属性对话框中定位Order属性,将其设置为依据xbbh字段建立的索引名,n即可将其设为主控索引。⑷选择“报表”菜单中的“数据分组”菜单项,在“数据分组”对话框中指定分组表达式为：jsqk.xbbh。报表设计器中出现组标头和组注脚带区。⑸在页标头带区中加入一个标签控件,其显示文本为“系部教师信息一览”,字体设为隶书,字号为小二；加入两个线条控件,横贯报表于标签下方；同时加入一个域控件,在弹出的“报表表达式”对话框中,输入表达式：Date()。如题解上图所示。⑹将数据环境中xbmc、jsbh、xm、xb、csrq、zc、xl共7个字段拖放到组标头带区,系统自动产生相应控件显示字段名和字段值。将显示jsbh、xm、xb、csrq、zc、xl六个字段值的六个域控件移动到细节带区中。调整各控件大小和位置,如题解上图所示。⑺在页注脚带区中添加一个域控件,在弹出的“报表表达式”对话框中,输入表达式："Page"+Alltrim(Str(_Pageno)),用以显示页号。如题解图8.1所示。⑻保存并预览报表。第八章菜单(选单)和工具栏设计习题精练一参考答案：一、单项选择题1.A2.D3.D4.A5.C6.A7.B8.A9.A10.D11.C12.A13.A14.B15.A16.A17.B18.C19.A20.B21.B22.D23.B24.D25.D26.A27.C28.A29.C30.C31.B32.C33.A二、填空题1.菜单菜单项菜单标题2.禁用3.修改菜单4.命令子菜单过程5.常规选项菜单选项6.插入删除7.键盘8.文件(0(2)Y=0 (3)Y=-1六、程序分析题53.P=3054.37.90高等教育出版社七、程序设计题55.先打开编程窗口,用指定名称存于指定文件夹下,程序内容如下：useorder_detailrepl单价with单价*0.9for "CPU"$器件名repl单价with单价*0.9for "声卡"$器件名repl单价with单价*0.85for "闪存"$器件名repl单价with单价*1.1for "显示卡"$器件名repl单价with单价*1.15for "内存"$器件名《VisualFoxPro程序设计》考试试卷(第2套)答案一、单项选择题1.C 2.A 3.B 4.C 5.C 6.A 7.B 8.D 9.B 10.A 11.C 12.A 13.C 14.B15.B 16.D 17.B 18.B 19.C 20.D 21.D 22.C 23.C 24.A 25.B二、多项选择题26.ABC 27.AC 28.BCD 29.AD 30.ABC三、判断题31.错 32.对 33.错 34.错 35.错 36.对 37.错 38.对 39.对 40.错四、填空题41.94.6642.LISTRECORD12或LISTFORRECNO()=1243.EDIT44.结构45.复合索引(CDX)文件46.实体47.永久关系48.索引49.2050.学院五、程序填空题51.(1)p(n)(2)parax(3)returnss52.(1)k<10(2)m=p1(k)(3)publicm六、程序分析题53.13054.120020303王小平七、程序设计题n55.先打开编程窗口,用指定名称存于指定文件夹下,程序内容如下：sele1usecjdowhilenoteof()sele2usedjkslocafor考号=a.考号iffound()repl笔试成绩witha.笔试成绩,上机成绩witha.上机成绩repl平均成绩with(笔试成绩+上机成绩)/2endifsele1skipenddosele2copytobjgfor平均成绩<60《VisualFoxPro程序设计》考试试卷(第3套)答案一、单项选择题1.C 2.C 3.B 4.D 5.D 6.A 7.D 8.A 9.C 10.D 11.D 12.B 13.B 14.B15.A 16.D 17.C 18.D 19.D 20.A 21.C 22.A 23.D 24.C 25.C二、多项选择题26.BCD 27.BCD 28.BC 29.BCD 30.BC三、判断题31.错 32.错 33.对 34.错 35.错 36.错 37.错 38.错 39.错 40.错四、填空题41.连接 42.项目 43.461245.678 44..F. 45.5 46.1 47.别名 48..F. 49.INSERT 50.EXIT五、程序填空题51.(1)N<>0 (2)SUBSTR(Y,A+1,1)+X (3)B52.(1)A1=A2 (2)A2=A1+2*A2 (3)N六、程序分析题53.5 30 20 54T=12七、程序设计题55.先打开编程窗口,用指定名称存于指定文件夹下,程序内容如下：S=0T=1FORI=1TO20T=T*InS=S+TENDFORS《VisualFoxPro程序设计》考试试卷(第4套)答案一.单项选择题1.C 2.B 3.C 4.D 5.B 6.C 7.B 8.B 9.B 10.B 11.B 12.D 13.D 14.A15.A 16.C 17.D 18.D 19.A 20.D 21.B 22.D 23.D 24.A 25.D二.多项选择题26.BD 27.BCD 28.AD 29.CD 30.ABCD三.判断题31.对 32.对 33.错 34.对 35.错 36.错 37.错 38.对 39.对 40.对四.填空题41..F. 42.WHERE职工.职工号=工资.职工号 43.SETCHECK 44.更新. 45.ACCEPT 46.值 47.条形菜单 48..T. 49.DESC 50.19五.程序填空题51.(1)USE图书(2)EXIT(3)DTOC(出版日期)52.(1)GOBOTTOM(2)STR(3)SKIP-1六.程序分析53.NN34 54.253七、程序设计题55.先打开编程窗口,用指定名称存于指定文件夹下,程序内容如下：S=0FORI=3TO1000FORJ=2TOI-1IFMOD(I,J)=0EXITENDIFENDFORIFJ>I-1S=S+IENDIFENDFORS《VisualFoxPro程序设计》考试试卷(第5套)答案一.单项选择题1.A 2.B 3.D 4.C 5.B 6.B 7.B 8.D 9.D 10.D 11.D 12.C 13.C 14.B15.C 16.B 17.B 18.D 19.D 20.B 21.A 22.B 23.D 24.B 25.Bn二.多项选择题26.AC 27.BC 28.AD 29.ABD 30.ACD三.判断题31.对 32.错 33.错 34.错 35.错 36.对 37.错 38.错 39.错 40.对四.填空题41.表单设计器 42.unload 43.命令 44.modifyformt1.scx 45.不可用 46.buttoncount47.Rowsource 48.条形菜单 49.弹出式菜单 50.报表格式五.程序填空题51.(1)<>0 (2)M=M+1 (3)K=1 52.(1)IFXK+NIFMOD(S,101)=0EXITENDIFENDIFK=K+1ENDDOI,S《VisualFoxPro程序设计》考试试卷(第6套)答案一.单项选择题1.B 2.B 3.C 4.C 5.D 6.C 7.B 8.C 9.D 10.C 11.C 12.A 13.D 14.C 15.D 16.D17.C 18.D 19.C 20.B 21.A 22.B 23.D 24.B 25.C二.多项选择题26.ABC 27.ABC 28.ABD 29.ABC 30.AD三.判断题31.对 32.错 33.对 34.对 35.错 36.对 37.对 38.错 39.错 40.对n四.填空题41.setorderto定单号 42.deletetagsph 43.skip 44.6 45.逻辑型 46.参照47.K=RECCOUNT()48.排序 49.32767 50.select五.程序填空题51.(1)性别="男"(2)政治面目="群众"(3)delete52.(1)USE供应商(2)"123"$电话(3)ENDIF六.程序分析题53.15054.39七、程序设计题55.先打开编程窗口,用指定名称存于指定文件夹下,程序内容如下：dimea(30)a(1)=1a(2)=1fori=3to30a(i)=a(i-1)+a(i-2)endfora(30)《VisualFoxPro程序设计》考试试卷(第7套)(山西2010年试题)参考答案及评分标准一、单项选择题1、D2、B3、D4、C5、D6、C7、C8、B9、A10、B二、填空题1、网状模型、关系模型、关系2、.DBC,.DBF3、通用型4、本地视图、远程视图5、123.466、.F.三、判断题1、x2、√3、x4、√5、√四、程序题1、(14分)(1)性别=“男“(1分)(2)DELETE(或DELE)(1分)(3)INDEXON出生日期TAGMM(2分)(4)SELECT姓名,性别,基本工资FORM档案ORAERBY基本工资DESE(2分)(5)SELESCT*FORM档案WHERE基本工资>2000AND性别=“女”(2分)(6)SELECTMAX(基本工资),AVG(奖金)FORM档案(2分)(7)SELECT姓名,基本工资,奖金,基本工资+奖金AS实发工资FORM档案(2分)(8)GO3(1分)INSERTBEFOREBLANK(1分)2、(5分)…………………………………………赋初值1分nDowhile<=100…………………………………………循环1分s=s+k……………………………………………………1分k=k+2k……………………………………………………1分enddo?s……………………………………………………1分3、(4分)Input“输入X的值：”tox………………………………………1分………………………………………………2分?y………………………………………………1分4、*主程序(占4分)ClearStore0tos,kForj=1to10……………………………………………1分Dojiechengwithj,s………………………………1分K=k+s………………………………………………1分Endfor?“1到10的阶乘和为：”,k………………………………1分Return*过程文件(占3分)ProcedurejiechengParax,y………………………………………………1分y=1fori=1tox………………………………………………2分Endproe《VisualFoxPro程序设计》考试试卷(第8套)(河南2010年试题)参考答案一、选择题(数据库应用基础-VisualFoxpro6.01-25；每小题2分,共100分)1.C2.C3.D4.C5.A6.B7.A8.A9.B10.D11.A12.A13.B14.B15.An16.D17.B18.A19.A20.D21.A22.A23.C24.C25.A二、判断题(每小题1分,共10分)51.√52.×53.×54.×55.√56.×57.√58.×59.×60.√三、实训题(每小题5分,共10分)61.1～100内的偶数和；(3分)y=2550(2分)62.(1)USE学生LISTFOR性别=“男”(或：DISPLAYFOR性别=“男”)(2分)(2)方法一：LOCATEFOR姓名=“王飒”DELETEPACK或：方法二：DELETEFOR姓名=“王飒”PACK(3分)四、简答题(每小题5分,共20分)63.答：数据库表与自由表的区别：数据库表属于数据库管理下的表,数据库表的打开、关闭、删除和引用等操作均受到数据库的限制；自由表不受数据库管理和制约,可以自由打开、关闭、删除和引用。(2分)联系：数据库表和自由表均是一个二维表格,它们的特性和性质完全相同,具有相同的扩展名；数据库表和自由表之间可以相互转换,数据库表可以退出数据库的管理成为一个自由表,而自由表也可以加入到数据库中,接受数据库管理,成为一个数据库表。(3分)64.答：表达式是指用运算符将常量、变量、函数等数据按一定规则连接起来的一个有意义的式子。(2分)VisualFoxPro6.0中,表达式的类型主要有数值表达式、字符表达式、关系表达式、逻辑表达式和日期表达式。(3分)说明：表达式的类型：每写出２个给１分,全部写出得３分,最多不超过３分。65.答：当输出的数据位于多个表中时,需要进行多表查询。(2分)多表查询的联结方式主要有：内部联结、左联结、右联结、完全联结等。(3分)说明：联结方式：写出１个给１分,最多不超过３分,满分３分。66.答：VisualFoxPro6.0的主界面主要有：①标题栏；(1分)②菜单栏；(1分)③工具栏；(1分)④命令窗口；(1分)⑤状态栏。(1分)五、综合题(10分)67.程序参考答案如下：a=1b=2?a,b(2分)FORi=3TO30(1分)nc=a+b??c,“”(2分)IFMOD(i,3)=0(2分)?(1分)ENDIFa=bb=cENDFOR(2分)《VisualFoxPro程序设计》考试试卷(第9套)(河南2009年试题)河南省2009年对口招生考试计算机类专业课试题参考答案及评分标准一、选择题1.B2.C3.B4.C5.D6.D7.A8.B9.A10.C二、判断题(每小题2分,共20分)24.×25.×26.√27.√28.×29.×30.√31.×32.×33.√三、填空题(每空2分,共20分)34.本地视图 远程视图35.S>=75.AND.S<85 S>=60.AND.S<75 S<6036.ADDTABLE REMOVETABLE37.COPYSTRUCTURETO COPYTO38.SHOWWINDOW四、简答题(每小题8分,共16分)39.答题要点：一个菜单系统由菜单栏、主菜单、菜单、菜单项和子菜单组成(每项1分,共5分)。菜单栏包括菜单系统的各主菜单(1分),一个主菜单对应一个菜单(1分),每个菜单内包含若干个菜单项或子菜单(1分)。40.答题要点：第一步：打开数据表USE奖金(2分)第二步：修改工程师的奖金REPLACE奖金WITH奖金+200FOR职称=“工程师”(3分)第三步：计算奖金总和并输出SUM奖金(或SUM)(2分)第四步：关闭表USE(1分)说明：第40题若没有说明步骤,只要操作命令正确均不扣分。若命令格式错误,酌情扣分。若只给出操作步骤叙述,评分最高不超过4分。五、程序设计题(2小题,共24分)n41.答题要点：(10分)“计算”按钮的Click事件代码为：a=val(thisform.text1.value)(1分)b=val(thisform.text2.value)(1分)ifa>b(1分)t=aa=bb=tendifs=0dowhile.t.ifmod(a,2)=0(2分)s=s+aendifa=a+1(1分)ifa>b(1分)exitendifenddothisform.text3.value=alltrim(str(s))(1分)“退出”按纽的Click事件代码为：thisform.release(2分)42.答题要点：(14分)settalkoffdecla(11)(2分)clear*模拟一个升序排列的数组fori=1to10input"请升序输入10个数据,当前是第"+ltrim(str(i))+"个:"toa(i)endforinput"输入一个被插入的数:"tonum(2分)fori=1to10(2分)??a(i),","endfor?a(11)=num(1分)fori=10to1step-1ifa(i)>a(i+1)(3分)t=a(i)na(i)=a(i+1)a(i+1)=telseexit(2分)endifendforfori=1to11(2分)??a(i),","endforsettalkoff说明：第42题评分要点：1)定义数组；2)输入被插数；3)循环判断移位；4)结果输出。缺项时,应根据评分标准适当扣分。采用其他插入算法,只要结果正确,给满分。数组循环赋值过程没有,不扣分。《VisualFoxPro程序设计》考试试卷(第10套)(河南2008年试题)参考答案及评分标准一、选择题(每小题2分,共20分)1.C2.D3.D4.A5.C6.A7.A8.C9.D10.B二、判断题(每小题2分,共20分)11.×12.×13.√14.×15.√16.√17.×18.×19.√20.√三、填空题(每空2分,共20分)21.数据库表自由表22.菜单文本文件其他文件23.视图设计器视图向导24.数据源布局25.对齐方式说明：以上答案均无顺序要求四、简答题(每小题8分,共16分)26.实现数据共享(2分)实现数据结构化(2分)具有较高的数据独立性(2分)具有统一的数据控制功能(2分)27.利用数据库向导创建数据库(3分)利用数据库设计器创建数据库(2分)使用命令创建数据库(3分)五、程序设计题(2小题,共24分)28.(10分)计算按钮的Click事件代码为:a=val(thisform.text1.value)(2分)s=sqrt(a)(2分)thisform.text2.value=s(2分)清空按钮的Click事件代码为thisform.text1.value=""(1分)thisform.text2.value=""(1分)nthisform.text1.setfocus(1分)退出按钮的Click事件代码为thisform.release(1分)29.(14分)CLEARALLDIMENSIONN(8),L(8)(1分)FORI=1TO8INPUT"姓名"TON(I)INPUT"成绩"TOL(I)NEXTIFORI=1TO7(1分)FORJ=I+1TO8(1分)IFL(I)>l(J)(1分)B=L(I)(1分)(I)=L(J)(1分)L(J)=B(1分)B=N(I)(1分)N(I)=N(J)(1分)N(J)=B(1分)ENDIFNEXTJ(1分)NEXTI(1分)?"名次","姓名","成绩"(1分)FORI=1TO7?I,N(I),L(I)NEXTI(1分)RETURN《VisualFoxPro程序设计》考试试卷(第11套)(河南2007年试题)2007年河南省对口招生考试计算机类专业课试题参考答案及评分标准一、填空题(每空2分,共20分)1.一对一一对多多对多2.备注型通用型3.树形4.数据文档代码5.1234.201说明：1、2、4题答案填写无顺序要求二、选择题(每小题2分,共20分)6.B7.B8.A9.D10.C11.A12.C13.B14.A15.C三、判断题(每小题2分,共20分)16.√17.√18.×19.√20.×21.×22.√23.×24.√25.×四、程序分析题(2小题,共15分)26.(５分)Recallallforxh="05"或者RecallAllForSUBSTR(xh,1,2)="05"27.(１０分)ABCDE(５分)BCDE(５分)n五、简答题(3小题,共15分)28.(4分)答题要点：运行查询文件的主要四种方法是：⑴、在查询设计器中直接运行；(1分)⑵、执行“程序”菜单下的“运行”方式；(1分)⑶、在项目管理其中运行查询；(1分)⑷、用命令方法运行查询文件(1分)29.(5分)答题要点：⑴标题栏：显示目前所使用的系统。(1分)⑵菜单栏：提供数据库操作和应用程序开发的菜单命令。(1分)⑶工具栏：能够快速访问各种常用的命令。(1分)⑷命令窗口：可以输入命令和语句对数据库进行操作和开发。(1分)⑸状态栏：显示当前用户的信息。(1分)30.(6分)答题要点：将创建的KJ.MPR附加到表单上,操作步骤如下：⑴、在“表单设计器”窗口中打开表单文件。(2分)⑵、在属性窗口中单击“方法程序”选项卡,选择“RightClickEvent”属性并双击它,打开“过程编辑器”窗口。(2分)⑶、在“过程编辑器”窗口中键入“DOKJ.MPR”,保存该菜单。(2分)六、程序设计题(10分)31.**RROG.PRGCLEARSETTALKOFFUSE学生档案(1分)STORE0TOM,N,P(1分)DOWHILE.NOT.EOF()(1分)DOCASE(1分)CASE入学成绩>300(1分)M=M+1(1分)CASE入学成绩<=300.and.入学成绩>=200(1分)N=N+1OTHERWISE(1分)P=P+1ENDCASESKIP(1分)ENDDO?"300分以上的人数为：",M?"200～300分之间的人数为：",Nn?"200分以下的人数为：",P(1分)SETTALKOFF
