1、湘潭大学visual foxpro课程考试备考习题27试卷编号：8263所属语言：Visual Foxpro试卷方案：VF_1004261709试卷总分：100分共有题型：8种一、填空 共5题 （共计10分）第1题 （2.0分） 题号:1267设当前打开的数据表中共有10条记录,当前记录号是5,此时执行INSERT BEFORE BLANK 命令后,当前记录号是【1】.答案：=(答案1)=5第2题 （2.0分） 题号:1517在SET SYSMENU命令中,如选定参数【1】,则Visual FoxPro主菜单栏在程序执行期间可见.答案：=(答案1)=AUTOMATIC第3题 （2.0分） 题号
2、:1176对于表单中的对象,系统默认的Tab键顺序是对象添加到表单中的【1】顺序 .答案：=(答案1)=物理第4题 （2.0分） 题号:1178对于数组AA(3,4)若以一维方式操作,aa(3,3)应是第【1】个元素.答案：=(答案1)=11第5题 （2.0分） 题号:1523在SQL中,建立唯一索引要用到保留字【1】.答案：=(答案1)=UNIQUE二、判断 共9题 （共计9分）第1题 （1.0分） 题号:1153您可以使用表向导去修改某一个已有的表的结构.答案：N第2题 （1.0分） 题号:621如果我们根据一个逻辑型字段来创建一个递增次序的索引,则逻辑真值.T.将排列在前,而逻辑非.F.
3、将排列在后.答案：N第3题 （1.0分） 题号:1084在Visual FoxPro中数组的最小下标是0 . 答案：N第4题 （1.0分） 题号:602NULL值其实与空字符串、数值0或逻辑非.F.是相同的.答案：N第5题 （1.0分） 题号:1079在Visual FoxPro中,您可以同时打开多个数据库,而且在同一时间内,可以有多个数据库是当前数据库.答案：N第6题 （1.0分） 题号:617函数EOF的功能为指向表的首记录之前,返回值为逻辑型.答案：N第7题 （1.0分） 题号:1031数据库表可以拥有主索引.答案：Y第8题 （1.0分） 题号:1163在VFP中,FOR.ENDFOR循
4、环结构中循环变量的步长只能取正整数.答案：N第9题 （1.0分） 题号:1032数据库管理技术在文件管理阶段可实现数据的共享.答案：Y三、单项选择 共10题 （共计10分）第1题 （1.0分） 题号:3783自定义函数的出口语句是().A:functionB:endfuncC:enterD:goto答案：B第2题 （1.0分） 题号:3715在Visual FoxPro中,打开一个数据表文件的命令是().A:OPEN DATABASEB:USEC:OPEND:CREATE答案：B第3题 （1.0分） 题号:3246设有变量pi=3.1415926,执行命令?ROUND(pi,3)的显示结果为(
5、).A:3.141B:3.142C:3.140D:3.000答案：B第4题 （1.0分） 题号:3088Visual FoxPro是一种().A:数据库管理系统B:数据库C:文件管理系统D:语言处理程序答案：A第5题 （1.0分） 题号:3104标签文件的扩展名为().A:lbxB:lbtC:prgD:以上都不是答案：A第6题 （1.0分） 题号:3854要清除、释放变量AB、DE可以使用()命令.A:DELE AB,DEB:PACK AB,DEC:ZAP AB,DED:RELE AB,DE答案：D第7题 （1.0分） 题号:3903在使用查询设计器设计查询时,必须要向查询设计器中填加().A
6、:索引文件B:程序文件C:表文件D:表单文件答案：C第8题 （1.0分） 题号:3080SIGN(-0)的函数值为().A:1B:-1C:0D:-0答案：C第9题 （1.0分） 题号:4013有如下FoxPro程序: SET TALK OFFM=0N=100DO WHILE NMM=M+N N=N-10ENDDO ?MRETURN运行此程序显示M的值是().A:0B:10C:100D:99答案：C第10题 （1.0分） 题号:3210若要在一个对象创建之时发生某事件,则该事件的代码应编写在()事件中.A:ClickB:InitC:loadD:keypress答案：B四、多项选择 共5题 （共计
7、10分）第1题 （2.0分） 题号:344如果要在屏幕上直接看到查询结果,查询去向可以选择().A:屏幕B:浏览C:临时表D:视图答案：AB第2题 （2.0分） 题号:352在学生数据表文件中有姓名字段,要显示所有姓李的学生记录,使用命令().A:LIST FOR SUBSTR(姓名,1,2)=李B:LIST FOR 姓名=李*C:LIST FOR STR(姓名,1,2)=李D:LIST FOR 姓名=李答案：AD第3题 （2.0分） 题号:355在Visual Foxpro中,可通过以下方法建立查询文件().A:利用查询向导创建B:利用查询设计器C:在命令窗口用命令方式D:利用查询分析器答案
8、：ABC第4题 （2.0分） 题号:406以下哪些是程序设计的基本结构().A:分支B:选通C:循环D:顺序答案：ACD第5题 （2.0分） 题号:254以下表达式中,合法的是().A:8-3=5B:8+310C:AT(ad,xyadvanad)-len(adadad)D:.not. (a=b) .and. a-b0 .or. b=0答案：ACD五、程序填空 共3题 （共计15分）第1题 （5.0分） 题号:830*- *【程序填空】*-*功能: 输入某年某月某日，判断这一天是这一年的第几天？* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFclearinput 请输入年份
9、： to yearinput 请输入月份： to monthinput 请输入日： to daydo case case month=1*SPACE* sum=【?】 case month=2 sum=31 case month=3 sum=59 case month=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 mo
10、nth=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. month2*SPACE* sum= 【?】endif? 这是这一年的第+str(sum,4)+天。set talk onRETURN答案：=(答案1)=0=(答案2)=day=(答案3)=sum+1=或=1+sum第2题 （5.0分） 题号:838*- *【程序填空】*-*功能: 给定程序MODI1.C中函数fun的功能是：先将在
11、字符串s* 中的字符按正序存放到t串中，然后把s中的字符按逆序* 连接到t串的后面。* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFCLEAR*SPACE*【?】 请输入一个串： TO SST=FOR I=1 TO LEN(SS) T=T+SUBS(SS,I,1)ENDF*SPACE*FOR J= 【?】TO 1 STEP -1*SPACE* T=T+【?】ENDF? 生成的新串为：,TSET TALK ONCANC答案：=(答案1)=ACCEPT=或=INPUT=(答案2)=LEN(SS)=(答案3)=SUBS (SS, J,1)=或=SUBSSTR(SS, J,1)第
12、3题 （5.0分） 题号:799*- *【程序填空】*-*功能:显示输出图形： * * * *请在【】处添上适当的内容，使程序完整。*-SET TALK OFFCLEAI=1DO WHILE I=3 ?SPAC(10-I) J=1 DO WHILE J=2*I-1*SPACE* 【?】*SPACE* 【?】 ENDDO*SPACE* 【?】ENDDOSET TALK ONRETURN答案：=(答案1)=?*=或=?*=或=?*=(答案2)=J= J+1=或=J= 1+J=或=STOR 1+J TO J=或=STOR J+1 TO J=(答案3)=I= I+1=或=I= 1+I=或=STOR I
13、+1 TO I=或=STOR 1+I TO I六、程序改错 共3题 （共计15分）第1题 （5.0分） 题号:752*-*【程序改错】*-*题目：在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFUSE XSDBSTORE 0 TO R,SDO WHILE .T.*FOUND* IF 系别=法律.AND. 系别=中文 STORE S+奖学金 TO S R=R+1 ENDIF SKIP*FOUND* IF .NOT.FOUN() EXIT ENDIFENDDO? S, RUSESET TALK
14、ONRETU答案：=(答案1)=IF 系别=法律 .OR. 系别=中文=或=IF 系别=法律 OR 系别=中文=或=IF 系别=法律 .OR. 系别=中文=或=IF 系别=法律 OR 系别=中文=或=IF 系别=法律 .OR. 系别=中文=或=IF 系别=法律 OR 系别=中文=(答案2)=IF EOF()=或=IF NOT EOF() = .F.=或=IF !EOF() = .F.=或=IF EOF() .F.=或=IF EOF = .T.=或=IF !EOF() .T.=或=IF NOT .T.第2题 （5.0分） 题号:825*- *【程序改错】*-*题目:有计算机等级考试成绩数据库cj
15、.dbf，包括考号、笔试成绩* 和上机成绩等字段，其中考号的前两位是单位编码；还有统* 计数据库tj.dbf，包括单位编码、笔试平均分、上机平均分* 、笔试最高分、上机最高分等字段。 * 请编写程序 MODI1.PRG，其功能是：按单位进行各项统计，* 结果存于统计数据库tj.dbf的相应字段中。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFSET SAFETY OFFCLOSE DATABASECLEARSELE 2USE TJZAPSELE 1USE CJSORT ON 考号 TO CJ1USE CJ1DO WHILE .NOT. EOF() ST
16、ORE 0 TO BS1,SJ1,BSMAX,SJMAX DWCODE=SUBSTR(考号,1,2) N1=0 BSMAX=笔试成绩 SJMAX=上机成绩 DO WHILE 考号=DWCODE*FOUND* IF 上机成绩BSMAX BSMAX=笔试成绩 ENDIF BS1=BS1+笔试成绩 SJ1=SJ1+上机成绩 N1=N1+1*FOUND* go 1 ENDDO SELE 2*FOUND* APPEND REPLACE 单位编码 WITH DWCODE,笔试平均分 WITH BS1/N1,上机平均分 WITH SJ1/N1,笔试最高分 WITH BSMAX, 上机最高分 WITH SJM
17、AX SELE 1ENDDOSELE 2LISTCLOSE DATABASESET TALK ONSET SAFETY ONRETU答案：=(答案1)=IF 上机成绩 SJMAX=(答案2)=SKIP=(答案3)=APPEND BLANK第3题 （5.0分） 题号:835*- *【程序改错】*-*题目:有学生数据库STD.DBF文件，其中学号字段的前两位是班号。* 请编写程序MODI1.PRG：选择所有少数民族（非汉族）的学* 生参加某项活动，按民族的拼音次序升序排列,同民族的按* 照学号升序排列，并为之生成编号。编号的前两位是班号，* 后两位是统一新编序号。并将学号、编号、姓名、性别和* 民
18、族添加到数据库文件BS中。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFSET SAFETY OFFstor 0 to numstor to bianhaosele 2use std*FOUND*index on 民族,学号 to std.idx sele 1use bszapsele 2do while .not. eof()*FOUND* if 民族=汉 num=num+1*FOUND* bianhao=学号 +NUM SELE 1 APPE BLAN repl 学号 with b-学号,编号 with bianhao,姓名 with b-姓名,性
19、别 with b-性别,民族 with b-民族 endif sele 2 skipenddoCLOSE DATABASESET TALK ONRETURN答案：=(答案1)=index on 民族 + 学号 to std.idx=或=inde on 民族 + 学号 to std.idx=(答案2)=(答案3)=subs(学号,1,2) + STR(NUM,1)=或=left(学号,2) + STR(NUM,1)七、程序设计 共2题 （共计10分）第1题 （5.0分） 题号:689*-*【程序设计】*-*题目：判断整数是否为质数 (只能被1和本身整除的数) 。* 是质数则函数返回1，否则函数返
20、回0* 请按照题目要求，在下面编写程序代码。 *-SET TALK OFFSET LOGERRORS ONOUT=1?FUN(77)YZJ()SET TALK ONRETURNFUNCTION FUN(N)*Program* End *RETURN OUTFUNCTIO YZJ()USE INLOCA FOR TIHAO=21IF FOUND() OUT=FUN(N2) DO YZJ21 WITH 1ELSE ?试题输入文件已损坏，请重新配置考试环境ENDIFRETURN答案：-j=2do while jn if mod(n,j)0 j=j+1 loop else OUT=0 exit endifenddo-第2题 （5.0分） 题号:701*-*【程序设计】*-
