湘潭大学visual foxpro课程考试备考习题5

1、试卷编号：8241所属语言：Visual Foxpro试卷方案：VF_1004261709试卷总分：100分共有题型：8种一、填空 共5题 （共计10分）第1题 （2.0分） 题号:1576在利用菜单设计器设计菜单时,当某菜单项对应的任务需要由多条命令才能完成时,应利用【1】选项添加多条命令.答案：=(答案1)=过程第2题 （2.0分） 题号:1123报表设计器在【1】菜单和快捷菜单中都提供了报表预览功能,使用户可以在屏幕上观察报表的设计效果,具有所见即所得的特点.答案：=(答案1)=显示第3题 （2.0分） 题号:1128表单文件的扩展名为【1】.答案：=(答案1)=scx第4题 （2.0分

2、） 题号:907Visual FoxPro系统尺寸类型有:【1】、公制.答案：=(答案1)=英制第5题 （2.0分） 题号:1152打开"工具"菜单的快捷键是【1】.答案：=(答案1)=Alt +T二、判断 共9题 （共计9分）第1题 （1.0分） 题号:1141在命令窗口中执行EXIT命令可结束Visual FoxPro.答案：N第2题 （1.0分） 题号:1090执行DELETE命令删除数据记录后,这些数据记录并未被真正删除,而只是被标上删除记号以示删除.答案：Y第3题 （1.0分） 题号:1142在命令窗口中执行QUIT命令不能关闭Visual FoxPro.答案：N

3、第4题 （1.0分） 题号:1027设表文件中有8条记录,且已打开,当BOF()为真时,recno()的返回值为 1. 答案：Y第5题 （1.0分） 题号:1082在Visual FoxPro中,一个数组中的所有元素是一个集合体,可用一个变量名命名.答案：Y第6题 （1.0分） 题号:1078在Visual FoxPro中,二维数组可以通过一维方式操作.答案：Y第7题 （1.0分） 题号:584Visual FoxPro的浮点型字段的计算精度比数值型字段高,最长为15位.答案：N第8题 （1.0分） 题号:601MAX函数是日期型函数.答案：N第9题 （1.0分） 题号:613表达式中每一项都

4、必须是同一类型的.答案：N三、单项选择 共10题 （共计10分）第1题 （1.0分） 题号:3938打开"表单设计器"后,系统菜单中增加的菜单项是().A:表单B:菜单C:屏幕D:数据库答案：A第2题 （1.0分） 题号:3616利用向导创建数据表时,应该().A:在工具栏上单击向导按钮B:在命令窗口执行CREATEC:在表设计器中选择D:在新建窗口中单击向导按钮答案：D第3题 （1.0分） 题号:3095Visual FoxPro中,将当前索引文件中的"姓名"设置为当前索引,应输入的命令是().A:SET ORDER 姓名B:SET 姓名C:SET O

5、RDER TO TAG 姓名D:SET INDEX TO 姓名答案：C第4题 （1.0分） 题号:3082VAL(1E3)的值为().A:1.0B:3.0C:1000.0D:0.0答案：C第5题 （1.0分） 题号:3361在Visual Foxpro中,逻辑运算符有().A:.NOT.(逻辑非)B:.AND.(逻辑与)C:.OR.(逻辑或)D:以上答案均正确答案：D第6题 （1.0分） 题号:3983在Visual FoxPro中,菜单文件的扩展名为().A:.MNXB:.MNTC:.IDXD:.PJT答案：A第7题 （1.0分） 题号:3951建立事件循环的命令是().A:Begin Ev

6、entsB:Read EventsC:Clear EventsD:End Events答案：B第8题 （1.0分） 题号:3352与设置命令按钮的位置有关的属性是().A:WidthB:HeightC:TopD:Enabled答案：C第9题 （1.0分） 题号:3996给出以下程序的运行结果: SET TALK OFFX=0Y=0DO WHILE X<10 X=X+1IF INT(X/2)=X/2 LOOPELSEY=Y+XENDIFENDDO?Y=,YRETURN运行结果为().A:Y=5B:Y=15C:Y=20D:Y=25答案：D第10题 （1.0分） 题号:3053"编辑

7、"菜单中"清除"的内部名称为().A:_MED_CLEARB:_MED_CUTC:_MED_SLCTAD:_MED_FIND答案：A四、多项选择 共5题 （共计10分）第1题 （2.0分） 题号:337表的关联关系包括().A:一对一B:一对多C:多对多D:以上都正确答案：ABCD第2题 （2.0分） 题号:343内存变量根据其作用的范围可分为().A:字符变量B:局部变量C:私有变量D:全局变量答案：BCD第3题 （2.0分） 题号:353属于记录查找的命令有().A:TOTALB:LOCATEC:SEEKD:CONTINUE答案：BCD第4题 （2.0分） 题

8、号:253Visual Foxpro中使用了()等几种变量形式.A:字段变量B:数组变量C:系统变量D:内存变量答案：ABCD第5题 （2.0分） 题号:354在SQL SELECT语句中,以下用于计算检索的函数有().A:COUNTB:MAXC:MIND:SUM答案：ABCD五、程序填空 共3题 （共计15分）第1题 （5.0分） 题号:830*- *【程序填空】*-*功能: 输入某年某月某日，判断这一天是这一年的第几天？* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFclearinput "请输入年份：" to yearinput "请输

9、入月份：" 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 m

10、onth=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. month>2*SPACE* sum= 【?】endif? "这是这一年的第"+str(sum,4)+"天。"set talk onRETURN答案：=(答案1)=0=(答案2)=day=(答案3)=sum+1=或=1+sum第2题 （5.0分） 题号:808*

11、- *【程序填空】*-*功能：从键盘输入一个表的文件名，将该表的第一条记录和最* 后一条记录的"姓名"字段内容互换。(设，表中有固定字* 段"姓名")。* 请在【】处添上适当的内容，使程序完整。*- SET TALK OFFACCEPT TO AUSE &AGO 1XM1=姓名GO BOTTOM*SPACE*【?】*SPACE*REPL 姓名 WITH 【?】*SPACE*【?】REPL 姓名 WITH XM2USESET TALK ON RETURN答案：=(答案1)=XM2= 姓名=(答案2)=XM1=(答案3)=GO 1=或=GO TOP=

12、或=1第3题 （5.0分） 题号:826*- *【程序填空】*-*功能: 现有结构相同的两个数据库，计算机二级库JSJ.DBF和英语* 四级库YY.DBF,含如下字段内容：学号(C,4),姓名(C,8),* 性别(C,2),专业(C,16)。要求编一程序，将两个数据库中* 关键字段学号相同的记录从YY.DBF中删除掉，并将其存放* 到结构相同的ER.DBF库文件中，最后显示ER.DBF库中的记* 录内容* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFFSET SAFE OFFSELE 1USE JSJ*SPACE*COPY 【?】 TO ERINDE ON 学号 TO ER

13、SELE 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 3LISTCLOSE DATASET TALK ONRETURN答案：=(答案1)=STRU=(答案2)=A-> 学号=或=A. 学号=或=JSJ. 学号=或=JSJ-> 学号=(答案3)=GATHER六、程序改错 共3题 （共计15分

14、）第1题 （5.0分） 题号:781*-*【程序改错】*-*题目：用循环程序计算XSDB.DBF中法律系学生的计算机平均成绩、* 英语平均成绩和奖学金总额。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFUSE XSDBSTORE 0 TO JSJ,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)=d

15、o 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分） 题号:762*-*【程序改错】*-*题目：表XSDA.DBF结构为：学号（C，6），姓名（C，6），* 性别（C，2），入学成绩（N，6，2）。* 本程序实现按学号查找记录，直到输入"#"为止。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFUSE XSDA*FOUND*ACCE

16、PT "请输入要查找的学号" ON XHDO WHILE XH!= "#"*FOUND* LOCATE FOR 学号="CJ" IF FOUND() ?学号,姓名,入学成绩 ELSE ? "无此学号" ENDIF ACCEPT "请继续输入要查找的学号" TO XH*FOUND*ENDFOR?"谢谢使用本查找系统"USESET TALK ONRETU答案：=(答案1)=ACCEPT "请输入要查找的学号" TO XH=或=ACCEPT '请输入要查

17、找的学号' TO XH=或=ACCEPT 请输入要查找的学号 TO XH=(答案2)=LOCATE FOR 学号= XH=或=LOCA FOR 学号= XH=(答案3)=ENDDO=或=ENDD第3题 （5.0分） 题号:835*- *【程序改错】*-*题目:有学生数据库STD.DBF文件，其中学号字段的前两位是班号。* 请编写程序MODI1.PRG：选择所有少数民族（非汉族）的学* 生参加某项活动，按民族的拼音次序升序排列,同民族的按* 照学号升序排列，并为之生成编号。编号的前两位是班号，* 后两位是统一新编序号。并将学号、编号、姓名、性别和* 民族添加到数据库文件BS中。*-*注意

18、：不可以增加或删除程序行，也不可以更改程序的结构。*-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,姓名

19、with b->姓名,性别 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分） 题号:676*-*【程序设计】*-*题目：在屏幕上纵向输出&q

20、uot;计算机等级考试"。（要求用循环语句实现） * 并将第五行的字符输出到给定变量中* 请按照题目要求，在下面编写程序代码。 *-SET TALK OFFSET LOGERRORS ONY=""*Program* End *DO YZJ5 WITH YSET TALK ONCANCEL答案：-S="计算机等级考试"i=1do while i<14 ?subs(s,i,2) i=i+2 if i=9 Y=subs(s,i,2) endienddo-第2题 （5.0分） 题号:729*-*【程序设计】*-*题目：编程找出一组正整数中的最小的奇数。* 将结果存入变量OUT中。* 请按照题目要求，在下面编写程序代码。 *-SET TALK ONSET LOGERRORS ONdime array(10)array(1)=1array(2)=3array(3)=6array(4)=96array(5)=4array(6)=23array(7)=35array(8)=67array(9)=12array(10)=88OUT=-1*Program* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF答案：-min=array(1)for i=1 to 10