1、湘潭大学visual foxpro课程考试备考习题26试卷编号：8262所属语言：Visual Foxpro试卷方案：VF_1004261709试卷总分：100分共有题型：8种一、填空 共5题 （共计10分）第1题 （2.0分） 题号:1307数据表文件ST.DBF中有字段:姓名/C、出生年月/D、总分/N等,要创建姓名、总分、出生年月的组合索引,其索引关键字表达式是【1】.答案：=(答案1)=姓名 +STR (总分) + DTOC( 出生年月)第2题 （2.0分） 题号:1599子表单【1】移出父表单.答案：=(答案1)=不能第3题 （2.0分） 题号:1513在ORDER BY子句的选择项
2、中,DESC代表【1】 输出.答案：=(答案1)=降序第4题 （2.0分） 题号:1578在浏览窗口中要追加新记录,可以使用【1】快捷键.答案：=(答案1)=Ctrl +Y第5题 （2.0分） 题号:1225利用查询设计器进行修改查询的命令是【1】.答案：=(答案1)=MODIFY QUERY二、判断 共9题 （共计9分）第1题 （1.0分） 题号:987VF可以打开多个表,新打开的表自动成为当前表.答案：Y第2题 （1.0分） 题号:1134使用SEEK命令必须对表建立索引.答案：Y第3题 （1.0分） 题号:1142在命令窗口中执行QUIT命令不能关闭Visual FoxPro.答案：N第
3、4题 （1.0分） 题号:1038通用型不能作为内存变量的类型.答案：Y第5题 （1.0分） 题号:1145表单文件保存着表单的各项规则和定义. 答案：Y第6题 （1.0分） 题号:582Visual FoxPro表达式CTOD(99/10/20)+10,结果为99/10/30.答案：Y第7题 （1.0分） 题号:612表达式chr(65)-str(mod(1,7),2)的结果是A1,串长=2.答案：N第8题 （1.0分） 题号:1153您可以使用表向导去修改某一个已有的表的结构.答案：N第9题 （1.0分） 题号:1044新建数据库的命令为CREAT DATA.答案：Y三、单项选择 共10题
4、 （共计10分）第1题 （1.0分） 题号:3784自定义函数的入口语句是().A:functionB:endfuncC:enterD:goto答案：A第2题 （1.0分） 题号:3814如果需要给当前表增加一个字段,应使用的命令是().A:APPENDB:MODIFY STRUCTUREC:INSERTD:EDIT答案：B第3题 （1.0分） 题号:3095Visual FoxPro中,将当前索引文件中的姓名设置为当前索引,应输入的命令是().A:SET ORDER 姓名B:SET 姓名C:SET ORDER TO TAG 姓名D:SET INDEX TO 姓名答案：C第4题 （1.0分）
5、题号:3241设已用命令DIMENSION M(10)定义了一个数组,若要对其中的每一个元素赋初值为0,则可以使用的命令是().A:M(10)=0B:M(1)=0C:STORE 0 TO MD:STORE 0 TO M(10)答案：C第5题 （1.0分） 题号:3330要存储员工上下班打卡的日期和时间,应采用哪种数据类型的字段().A:字符类型B:日期类型C:日期时间类型D:备注类型答案：C第6题 （1.0分） 题号:3597定义一个报表后,会产生的文件有().A:报表文件(.frx)B:报表备注文件(.frt)C:报表文件(.frx)和报表备注文件(.frt)D:看情况而定答案：C第7题 （
6、1.0分） 题号:3633使用index命令创建候选索引时应选参数().A:ASCENDINGB:DESCENDINGC:CANDIDATED:UNIQUE答案：C第8题 （1.0分） 题号:3110表达式VAL(SUBS(本年第2期,7,1)*LEN(他!我)的结果是().A:0B:2C:8D:10答案：D第9题 （1.0分） 题号:3347由普通的日期格式改设为严格日期格式的命令为().A:set strictdate to 0B:set strictdate to 1C:set strictdate onD:set strictdate off答案：B第10题 （1.0分） 题号:330
7、8下列命题中错误的是().A:关系中每一个属性对应一个值域B:关系中不同的属性可对应同一值域C:对应于同一值域的属性为不同的属性D:DOM(A)表示属性A的取值范围答案：C四、多项选择 共5题 （共计10分）第1题 （2.0分） 题号:347下面关于Visual FoxPro数组的叙述中,正确的是().A:用DIMENSION和DECLARE都可以定义数组B:Visual FoxPro只支持一维数组和二维数组C:一个数组中各个数组元素必须是同一种数据类型D:新定义数组的各个数组元素初值为.F.答案：ABD第2题 （2.0分） 题号:349以下属于结构复合索引文件特点的有().A:在打开表时自动
8、打开B:在同一索引文件中能包含多个排序方案C:在同一索引文件中能包含多索引关键字D:在添加、更改或删除记录时自动维护答案：ABCD第3题 （2.0分） 题号:350在Visual Foxpro系统中,能移动记录指针的命令有().A:LISTB:CONTC:GOD:SKIP答案：ABCD第4题 （2.0分） 题号:344如果要在屏幕上直接看到查询结果,查询去向可以选择().A:屏幕B:浏览C:临时表D:视图答案：AB第5题 （2.0分） 题号:252Visual Foxpro中的表达式有().A:算术表达式B:字符表达式C:关系表达式D:逻辑表达式答案：ABCD五、程序填空 共3题 （共计15分
9、）第1题 （5.0分） 题号:795*- *【程序填空】*-*功能:查找XSDB表中计算机成绩最高分的学生，将其姓名和计算* 机字段的内容显示出来,如：王迪 98。请在【】处添上适* 当的内容，使程序完整。*-SET TALK OFFUSE XSDBMAX=计算机*SPACE*【?】do while .NOT.EOF() IF MAX计算机 MAX=计算机*SPACE* 【?】 ENDIF*SPACE* 【?】enddo?XM,MAXUSESET TALK ONRETURN答案：=(答案1)=XM= 姓名=(答案2)=XM= 姓名=(答案3)=SKIP=或=SKIP 1第2题 （5.0分） 题
10、号:813*- *【程序填空】*-* 功能:显示输出图形： * * * * 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFCLEAI=1*SPACE*DO WHILE 【?】 J=1 DO WHILE J=7-2*I*SPACE* 【?】 j=j+1 ENDDO*SPACE* 【?】 ?ENDDOSET TALK ONRETURN答案：=(答案1)=II=或=I =I=(答案2)=?*=或=?*=或=?*=(答案3)=I= I+1=或=I= 1+I=或=STOR I + 1 TO I第3题 （5.0分） 题号:855*- *【程序填空】*-*功能: 一个10磅重的板碎成4块
11、，每块正好是一个整数磅，且用这* 4块当砝码能称出110磅的整数重量的物体。编程求这4块* 的各自重量。* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFCLEARFOR I=1 TO 7*SPACE* FOR J=I TO 【?】-I*SPACE* FOR 【?】=J TO 8-I-J*SPACE* L=【?】 -I-J-K FOR P=1 TO 9 T1=-1 DO WHILE T12 T2=-1 DO WHILE T22 t3=-1 do while t32 t4=-1 do while t42 if i*t1+j*t2+k*t3+l*t4=10*SPACE* 【?】
12、 i,j,k,l endif t4=t4+1 ENDD T3=T3+1 ENDD T2=T2+1 ENDD t1=T1+1 ENDD ENDF ENDF ENDF ENDFset talk onreturn答案：=(答案1)=7=(答案2)=K=(答案3)=10=(答案4)=?六、程序改错 共3题 （共计15分）第1题 （5.0分） 题号:781*-*【程序改错】*-*题目：用循环程序计算XSDB.DBF中法律系学生的计算机平均成绩、* 英语平均成绩和奖学金总额。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFUSE XSDBSTORE 0 TO JSJ
13、,YY,JXJ,RSLOCA FOR 系别=法律*FOUND*DO WHILE FIND() JSJ=JSJ+计算机 YY=YY+英语 JXJ=JXJ+奖学金 RS=RS+1 CONTENDDO*FOUND*?JSJ,YY,JXJUSESET TALK ONRETU答案：=(答案1)=do while FOUN()=或=do while .NOT.EOF()=或=do while !EOF()=或=do while NOT EOF()=或=do while FOUND()=(答案2)=?JSJ/RS, YY/RS,JXJ第2题 （5.0分） 题号:817*- *【程序改错】*-*题目:一个偶数
14、总能表示为两个素数之和。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-set talk offcleara=72b=3do while b=a/2 c=2 do while csqrt(b) d=a-b else exit endif m=2 do while msqrt(d) ? str(a,3)+=+str(b,3)+str(d,3) endif b=b+2*FOUND*endif SET TALK ONretu答案：=(答案1)=exit=(答案2)=m=m+1=或=m=1+m=(答案3)=endd=或=enddo第3题 （5.0分） 题号:841*- *【程序改错】*
15、-*题目:有如下数据库文件：* ZY.DBF：职员号N(3,0)，姓名C(6)，性别C(2)，职务C(10)；* DD.DBF：订单号N(3,0)，客户号N(3,0)，职员号N(3,0)，* 签订日期D(8)，金额N(6,2)。* 给定程序MODI1.PRG的功能是：根据客户号查询该客户的有关* 订单信息，结果按订单金额降序排序，并显示这些定单的总金额。* 修改并调试该程序，使之正确运行。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFSET SAFETY OFFSELECT 1USE zyINDEX ON 职员号 TO zyiSELECT 2USE d
16、dINDEX ON -金额 TO ddi*FOUND*SET RELATION ON -金额 TO ADO WHILE .T. CLEAR KH=202 ? 请输入客户号： , kh ? LOCATE FOR 客户号=kh*FOUND* IF .NOT.EOF() ? 没有该客户! ELSE ? 订单号+ 职 员+SPACE(5)+签订日期+ 金 额 ? s=0 DO WHILE !EOF() ? STR(订单号,3)+SPACE(5)+A-姓名+SPACE(5)+DTOC(签订日期)+ +STR(金额,6,2)*FOUND* s=金额 CONTINUE ENDDO ? ? 总金额为:+STR
17、(s,8,2) ENDIF ? WAIT 继续查询吗(Y/N)? TO p IF !UPPER(p)=Y EXIT ENDIFENDDOCLOSE DATASET SAFETY ONSET TALK ONRETU答案：=(答案1)=SET RELA TO 职员号 INTO A=或=SET RELA TO 职员号 INTO zy=(答案2)=IF EOF()=或=IF .NOT .FOUND()=或=IF .NOT .FOUN()=(答案3)=s= s+金额=或=s=金额 +s=或=STOR s+金额 TO s=或=STOR 金额+s TO s七、程序设计 共2题 （共计10分）第1题 （5.0
18、分） 题号:711*-*【程序设计】*-*题目：编程求一组数中大于平均值的数的个数。* 例如：给定的一组数为1,1,1,1,1,2,2,2,2,2* 时，结果值为5。* 将结果存入变量OUT中。* 请按照题目要求，在下面编写程序代码。 *-SET TALK ONSET LOGERRORS ONdime array(10)array(1)=1array(2)=3array(3)=6array(4)=9array(5)=4array(6)=23array(7)=35array(8)=67array(9)=12array(10)=88OUT=-1*Program* End *DO YZJ WITH
19、OUTSET LOGERRORS OFFSET TALK OFF答案：-s=0for i=1 to 10s=s+array(i)endfs=s/10n=0for j=1 to 10if array(j)sn=n+1endifendfout=n? out-第2题 （5.0分） 题号:718*-*【程序设计】*-*题目：编程将一个由四个数字组成的字符串转换为每两个数字间* 有一个空格的形式输出。例如输入4567，应输出* 4567(表示空格)，将结果存入变量OUT中，要求* 用For循环语句实现。* 请按照题目要求，在下面编写程序代码。 *-SET TALK ONSET LOGERRORS ONstr=4567OUT=*Program* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF答案：-spc=space(1)s=for i=1 to len(str)-1s=s+subs(str,i,1)+spcendfs=s+subs(str,i,1)out=s? out,len(out)-
