1、湘潭大学visual foxpro课程考试备考习题1试卷编号：8237所属语言：Visual Foxpro试卷方案：VF_1004261709试卷总分：100分共有题型：8种一、填空 共5题 （共计10分）第1题 （2.0分） 题号:1121报表标题要通过【1】控件定义.答案：=(答案1)=标签第2题 （2.0分） 题号:1245如果一个表单名为FRMA,表单的标题为FORM - A,表单保存为FORMA,则在命令窗口中运行该表单的命令是【1】.答案：=(答案1)=Do Form FORMA第3题 （2.0分） 题号:1571在程序中为了隐藏已显示的Myform1表单对象,应当使用的命令是【1
2、】.答案：=(答案1)=Myform1. hide第4题 （2.0分） 题号:1237内部联接是指只有【1】的记录才包含在查询结果中.答案：=(答案1)=满足联接条件第5题 （2.0分） 题号:1330为了保证分组报表中数据的正确,报表数据源中的数据应该事先按照某种顺序索引或【1】.答案：=(答案1)=排序二、判断 共9题 （共计9分）第1题 （1.0分） 题号:1038通用型不能作为内存变量的类型.答案：Y第2题 （1.0分） 题号:1137在Visual FoxPro中,使用命令delete、pack和zap都可以将记录从数据库中删除.答案：N第3题 （1.0分） 题号:1045要恢复已被
3、DELETE命令删除的数据记录,必须执行PACK命令.答案：N第4题 （1.0分） 题号:1163在VFP中,FOR.ENDFOR循环结构中循环变量的步长只能取正整数.答案：N第5题 （1.0分） 题号:1072在Visual FoxPro中，replace ALL 工资 with 工资+150时,表示数据库中所有记录的工资增加150.答案：Y第6题 （1.0分） 题号:1139在Visual FoxPro中,用locate、find、seek都可实现在数据库中查询到满足条件的记录.答案：Y第7题 （1.0分） 题号:1164在VFP中,SCAN.ENDSCAN结构可适合任何情况下的循环.答案
4、：N第8题 （1.0分） 题号:1146表单在运行过程中,其边框是不可调的.答案：N第9题 （1.0分） 题号:611表达式ALLTRIM(SPACE(15)的返回值是空字符串.答案：Y三、单项选择 共10题 （共计10分）第1题 （1.0分） 题号:3623内存变量文件的扩展名为().A:.MEMB:.DBFC:.QPRD:.CDX答案：A第2题 （1.0分） 题号:3819设当前记录号是10,执行命令SKIP-2后,当前记录号变为().A:7B:8C:9D:12答案：B第3题 （1.0分） 题号:3246设有变量pi=3.1415926,执行命令?ROUND(pi,3)的显示结果为().A
5、:3.141B:3.142C:3.140D:3.000答案：B第4题 （1.0分） 题号: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分） 题号:3142函数LEN(Yangzhou University)的值为().A:18B:19C:20D:21答案：B第6题 （1.0分） 题号:3710在显示下拉菜单中,单击追加方式选项,将在当前表().A:中增加一个空记录B:尾增加一个空记录C:中进入追加
6、状态D:上弹出追加对话框答案：C第7题 （1.0分） 题号:3587当一个复选按钮的Value值为0时,表示其当前状态为().A:被选中B:没被选中C:呈灰色状D:不可见答案：B第8题 （1.0分） 题号:3067Grid的集合属性和计数属性是().A:Columns和ColumnCountB:Forms和FormCountC:Pages和PageCountD:Controls和ControlCount答案：A第9题 （1.0分） 题号:3072OptionGroup、ButtonGroup对象的Value属性值类型只能是().A:NB:CC:DD:L答案：A第10题 （1.0分） 题号:38
7、06利用()命令可以将当前内存变量保存在内存变量文件中.A:restore fromB:sortC:save toD:index答案：C四、多项选择 共5题 （共计10分）第1题 （2.0分） 题号:351在下面关于面向对象数据库的叙述中,正确的是().A:每个对象在系统中都有唯一的对象标识B:事件作用于对象,对象识别事件并作出相应反应C:一个子类能够继承其父类所有的属性和方法D:一个父类包括其所有子类的属性和方法答案：ABC第2题 （2.0分） 题号:254以下表达式中,合法的是().A:8-3=5B:8+310C:AT(ad,xyadvanad)-len(adadad)D:.not. (a
8、=b) .and. a-b0 .or. b=0答案：ACD第3题 （2.0分） 题号:339关于程序(命令)文件,下列说法正确的有().A:程序文件不再是逐条发出和执行,而是批处理方式发出和执行B:程序文件是用户和数据之间的一种软件接口C:依赖程序文件可以保证数据管理的高效率D:程序文件不能相互调用答案：ABC第4题 （2.0分） 题号:253Visual Foxpro中使用了()等几种变量形式.A:字段变量B:数组变量C:系统变量D:内存变量答案：ABCD第5题 （2.0分） 题号:349以下属于结构复合索引文件特点的有().A:在打开表时自动打开B:在同一索引文件中能包含多个排序方案C:在
9、同一索引文件中能包含多索引关键字D:在添加、更改或删除记录时自动维护答案：ABCD五、程序填空 共3题 （共计15分）第1题 （5.0分） 题号:830*- *【程序填空】*-*功能: 输入某年某月某日，判断这一天是这一年的第几天？* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFclearinput 请输入年份： to yearinput 请输入月份： to monthinput 请输入日： to daydo case case month=1*SPACE* sum=【?】 case month=2 sum=31 case month=3 sum=59 case mont
10、h=4 sum=90 case month=5 sum=120 case month=6 sum=151 case month=7 sum=181 case month=8 sum=212 case month=9 sum=243 case month=10 sum=273 case month=11 sum=304 case month=12 sum=334 otherwise ? 数据输入错误 endcase*SPACE*sum=sum+【?】if year%400=0 .or. year%4=0 .and.year%100!=0 n=1else n=0endifif n=1 .and.
11、month2*SPACE* sum= 【?】endif? 这是这一年的第+str(sum,4)+天。set talk onRETURN答案：=(答案1)=0=(答案2)=day=(答案3)=sum+1=或=1+sum第2题 （5.0分） 题号:846*- *【程序填空】*-*功能: 下面程序的功能是输出1到100之间每位数的乘积大于每位* 数的和的数。例如数字26，数位上数字的乘积12大于数字* 之和8。* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFclear*SPACE*for n=1 to 【?】 k=1 s=0 m=n do while m0 k=k*(m%10)
12、*SPACE* s=s+【?】*SPACE* m=【?】(m/10) endd*SPACE* if k【?】 ? n=,n endifendfset talk oncanc答案：=(答案1)=100=(答案2)=m%10=(答案3)=int=(答案4)=s第3题 （5.0分） 题号:826*- *【程序填空】*-*功能: 现有结构相同的两个数据库，计算机二级库JSJ.DBF和英语* 四级库YY.DBF,含如下字段内容：学号(C,4),姓名(C,8),* 性别(C,2),专业(C,16)。要求编一程序，将两个数据库中* 关键字段学号相同的记录从YY.DBF中删除掉，并将其存放* 到结构相同的ER
13、.DBF库文件中，最后显示ER.DBF库中的记* 录内容* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFSET SAFE OFFSELE 1USE JSJ*SPACE*COPY 【?】 TO ERINDE ON 学号 TO ERSELE 2USE YYSET RELA TO 学号 INTO AGO TOPSELE 3USE ERSELE 2DO WHILE .NOT. EOF()*SPACE* IF 学号=【?】 SCAT TO M SELE 3 APPE BLANK*SPACE* 【?】 FROM M SELE 2 DELE ENDIF SKIPENDDPACKSELE
14、 3LISTCLOSE DATASET TALK ONRETURN答案：=(答案1)=STRU=(答案2)=A- 学号=或=A. 学号=或=JSJ. 学号=或=JSJ- 学号=(答案3)=GATHER六、程序改错 共3题 （共计15分）第1题 （5.0分） 题号:786*-*【程序改错】*-*题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等* 级划分如下：计算机成绩大于等于90显示优秀；60到89* （包括 60和89）之间显示及格；60分以下显示补考。* 如显示：张丽娜 90 优秀 。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFUS
15、E XSDBDO WHIL .NOT. EOF()*FOUND* LIST 姓名,计算机 DO CASE CASE 计算机=90 ?优秀 CASE 计算机=60 ?及格 OTHERWISE ?补考 ENDCASE*FOUND* GO NEXTENDDOUSESET TALK ONRETU答案：=(答案1)=?姓名,计算机=或=DISP姓名,计算机=或=DISPLAY姓名,计算机=(答案2)=SKIP第2题 （5.0分） 题号:807*- *【程序改错】*-*题目:首先把b所指字符串中的字符按逆序存放， 然后将a所指字符* 串中的字符和b所指字符串中的字符， 按排列的顺序交叉合* 并到c所指字符
16、串中，过长的剩余字符接在c所指字符串的尾* 部。 * 例如，当a所指字符串中的内容为abcdefg，b所指字符串* 中的内容为1234时，c所指字符串中的内容为a4b3c2d1efg* ； 而当a所指字符串中的内容为1234，b所指字符串* 中的内容为abcdefg时，c所指字符串中的内容该为* 1g2f3e4dcbf。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-set talk offcleara=abcdefgb=1234c=if len(a)len(b) m=len(a) n=len(b) for i=1 to m *FOUND* c=c+subs(a,i,1)+su
17、bs(b,n+i+1,1) endforelse*FOUND* for i=1 to m c=c+subs(a,i,1)+subs(b,n-i+1,1) endfor*FOUND*endf ? cSET TALK ONRETU答案：=(答案1)=c= c + subs(a,i,1) + subs(b, n-i+1 ,1)=(答案2)=for i=1 to n=(答案3)=endif=或=endi第3题 （5.0分） 题号:829*- *【程序改错】*-*题目:已有两个数据库文件ZC.DBF和ZG.DBF。给定程序MODI1.PRG* 的功能是：将ZC.DBF和ZG.DBF两个数据库文件的相应记
18、录连* 在一起存入新数据库文件JJ.DBF中，对该数据库文件按职称* 分类汇总实发工资和奖金，再将汇总后的结果复制到ABC.DBF* 数据库文件中，并使该文件只包含职称、奖金和实发工资三* 个字段。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFSET SAFETY OFFSELECT 1USE ZGSELECT 2USE ZC *FOUND*JOIN WITH A TO JJ USE JJ*FOUND*INDEX ON 职工号 TO ZCHZ TOTAL ON 职称 TO DDD FIELDS 实发工资,奖金USE DDD*FOUND*COPY TO
19、ABC FOR 职称,奖金,实发工资 USE ABCLISTCLOSE DATABASESET TALK ONRETURN答案：=(答案1)=JOIN WITH A TO JJ FOR 职工号=A-职工号=或=JOIN WITH ZG TO JJ FOR 职工号=ZG-职工号=或=JOIN WITH A TO JJ FOR 职工号=A=(答案2)=INDE ON 职称 TO ZCHZ=(答案3)=COPY TO ABC FIEL 职称,奖金,实发工资=或=COPY FIEL 职称,奖金,实发工资 TO ABC七、程序设计 共2题 （共计10分）第1题 （5.0分） 题号:722*-*【程序设计
20、】*-*题目：编程计算并输出给定整数n的所有因子之积* （不包括1与自身）。* 将结果存入变量OUT中。* 请按照题目要求，在下面编写程序代码。 *-SET TALK ONSET LOGERRORS ON? 输入一个整数：n=855 n=855OUT=-1*Program* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF答案：-store 1 to s for i=2 to n-1 if(n%i=0) s=s*i endif endfor ? s=,sout=s-第2题 （5.0分） 题号:672*-*【程序设计】*-*题目：从键盘输入三角形的边长，输入边长满足两边之和大于* 第三边，且为正值。计算并输出三角形的面积S；若不满* 足以上条件，显示输出不能构成三角形。* 其中面积公式请参看(图1)。* 将面积值存入变量AREA中。* 请按照题目要求，在下面编写程序代码。 *-SET TALK OFFSET LOGERRORS ONINPUT TO AINPUT TO BINPUT TO C? 三角形面积为,FUN(A,B,C)YZJ()SET TALK ONRETURNFUNCTION FUN(a,b,c)AREA=-1*Program* End *RET
