湘潭大学visual foxpro课程考试备考习题29Word下载.docx

1、执行?MOD（4,7）后的结果为0.第5题 （1.0分） 题号:1026设表文件中有6条记录,且已打开,当EOF（）为真时,recno（）的返回值为 7 .Y第6题 （1.0分） 题号:1098LIST和DISPLAY命令的功能和在程序中所起到的作用都是一样的.第7题 （1.0分） 题号:1096CONTINUE命令必须与LOCATE命令配合使用才有意义.第8题 （1.0分） 题号:622要取得目前所在环境的帮助,应按F1键.第9题 （1.0分） 题号:972IIF（58,2,3）后的结果为2.三、单项选择 共10题 （共计10分）3395Visual FoxPro中能够进行条件定位的命令是（

2、）.A:SKIPB:GOC:LOCATED:SEEKC3869一数据表中的婚否字段为逻辑型,要显示所有已婚人的信息,应执行命令（）.LIST FOR 婚否LIST FOR 婚否=真已婚LIST 婚否A3082VAL（1E3）的值为（）.1.03.01000.00.03064?CTOD（03/14/08） 的值应为（）.2008年3月14日03/14/0803/14/0808-03-14B3563打开一个建立了结构复合索引的数据表,表记录的顺序将按（）.第一个索引标识最后一个索引标识主索引标识原顺序4015有如下一个程序段,执行后,其显示的结果是（）. DIMENSION ARRAY3,3 ?

3、AELEMENT（ARRAY ,2,3）1356D3118当文本框的BorderStyle属性为固定单线时,其值应为（）.2-13617两个没有公共属性的关系作自然连接等价于它们作（）.并交差乘3770在以下关于索引的说明中,错误的是（）.索引可以提高查询速度索引可能降低更新速度索引和排序具有不同的含义不能更新索引字段第10题 （1.0分） 题号:3599对于学生关系S（S#,SN,AGE,SEX）,写一条规则,把其中的AGE属性限制在15-30之间,则这条规则属于（）.实体完整性规则参照完整性规则用户定义的完整性规则不属于以上任何一种规则四、多项选择 共5题 （共计10分）251Visual

4、 FoxPro关系数据库管理系统能够实现的基本关系运算是（）.排序选择投影联接BCD355在Visual Foxpro中,可通过以下方法建立查询文件（）.利用查询向导创建利用查询设计器在命令窗口用命令方式利用查询分析器ABC354在SQL SELECT语句中,以下用于计算检索的函数有（）.COUNTMAXMINSUMABCD352在学生数据表文件中有姓名字段,要显示所有姓李的学生记录,使用命令（）.LIST FOR SUBSTR（姓名,1,2）=李LIST FOR 姓名=李*LIST FOR STR（姓名,1,2）=AD252Visual Foxpro中的表达式有（）.算术表达式字符表达式关系

5、表达式逻辑表达式五、程序填空 共3题 （共计15分）第1题 （5.0分） 题号:832*- *【程序填空】*-*功能: 从读入的整数数据中，统计大于零的整数个数* 和小于零的整数个数。用输入零来结束输入，* 程序中用变量i统计大于零的整数个数，用变* 量j统计小于零的整数个数。* 请在【】处添上适当的内容，使程序完整。SET TALK OFFclearinput 输入整数：to n*SPACE*store 【?】 to i,jdo while 【?】 if n0 i=i+1 endif if N j=j+1 input to n【? i=,ij=,jset talk onretu=（答案2）=

6、n=或=n!=0n#0=（答案3）=enddoendd第2题 （5.0分） 题号:841 编程求某年第n天的日期。用数组表示月天数dimension a（12）a（1）=31a（2）=28a（3）=31a（4）=30a（5）=31a（6）=30a（7）=31a（8）=31a（9）=30a（10）=31a（11）=30a（12）=31year= to yn=if y%4=0 .and. y%100!=0 .or. y%400=0 f= 【?else f=0endifa（2）=a（2）+ 【?if n365+f输入错误。*SPACE* 【?m=1do while na（m） n=n-【? m=m+

7、1 y=,y,m=,m,d=,ncancfcancel=（答案4）=第3题 （5.0分） 题号:826 现有结构相同的两个数据库，计算机二级库JSJ.DBF和英语* 四级库YY.DBF,含如下字段内容：学号（C,4）,姓名（C,8）,* 性别（C,2）,专业（C,16）。要求编一程序，将两个数据库中* 关键字段学号相同的记录从YY.DBF中删除掉，并将其存放* 到结构相同的ER.DBF库文件中，最后显示ER.DBF库中的记* 录内容SET SAFE OFFSELE 1USE JSJCOPY 【?】 TO ERINDE ON 学号 TO ERSELE 2USE YYSET RELA TO 学号

8、INTO AGO TOPSELE 3USE ERDO WHILE .NOT. EOF（） IF 学号=【? SCAT TO M SELE 3 APPE BLANK】 FROM M SELE 2 DELE ENDIF SKIPENDDPACKLISTCLOSE DATASET TALK ONRETURNSTRUA- 学号A. 学号JSJ. 学号JSJ-GATHER六、程序改错 共3题 （共计15分）770*【程序改错】*题目：从键盘输入一个表“xsda”，打开该表， 查找是* 张三的记录，并显示该记录， 最后输出是张* 三的记录个数。（设被打开的表中有固定字段）*注意：不可以增加或删除程序行，也

9、不可以更改程序的结构。ACCEPT TO AUSE &*FOUND*N=1SCAN FOR 姓名= LIST N=N+1ENDSCAN 记录个数是,NUSERETUN=0Store 0 To NDISPLAYDISP记录个数是,N,str（N） 记录个数是,N 记录个数是,str（N）记录个数是831*题目:现有数据库文件XS.DBF，包括：学号C（6），姓名C（8），计算* 机N（5,1），高等数学N（5,1），英语N（5,1）。数据库文件* JXJ.DBF，结构为：学号C（6），平均分N（5,1），奖学金C（4）* 。编写MODI1.PRG程序，计算每名学生的平均分和奖学金，并* 将计算结

10、果存入JXJ.DBF文件的相应字段中。要求JXJ.DBF文* 件中各记录按学号升序排序。奖学金的计算方法是：超过全* 班平均分10%为一等，超过全班平均分5%为二等，其他为无。SET SAFETY OFFUSE JXJZAPINDEX ON 学号 TO jxjSELE 1 USE XSINDEX ON 学号 TO xsSET RELA TO 学号 INTO b*FOUND*DO WHILE EOF（） APPE SELE 1 REPL b-学号 WITH 学号,b-平均分 WITH （计算机+高等数学+英语）/3 CONT ENDDOAVER 平均分 TO aREPL ALL 奖学金 WITH

11、 FOR 平均分（a*1.1）（a*1.05） .and. 平均分=（a*1.1） FOR 平均分职工号JOIN WITH ZG TO JJ FOR 职工号=ZG-JOIN WITH A TO JJ FOR 职工号=AINDE ON 职称 TO ZCHZCOPY TO ABC FIEL 职称,奖金,实发工资COPY FIEL 职称,奖金,实发工资 TO ABC七、程序设计 共2题 （共计10分）733*【程序设计】编程找出一组数中最大值和最小值，并将最大值和最小值* 之和存入变量OUT中。* 请按照题目要求，在下面编写程序代码。 SET LOGERRORS ONdime array（10）ar

12、ray（1）=10array（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 OFF-store array（1） to max,minfor i=1 to 10if array（i）max max=array（i）if array（i）min min=array（i）endfout=max+min out738编程求P=1-1/（22）+1/（33）-1/（44）+1/（55）。* 将结果存入变量OUT中，要求用Do While语句实现。*