实习10程序设计3.docx

1、实习10程序设计3实习十一、实习目的： 1 学会阅读分析程序，并能正确理解程序的特点和功能。2 掌握结构化程序设计的方法和技巧。3 熟悉和掌握过程及过程文件的使用。二、实习内容 ：(一)分析程序阅读下列程序，并回答问题：EndifIf x5 ExitEndifEnddo?xClearX=0Do while .t. X=x+2 If x=int(x/3)*3 ?x else loop(1)程序执行中第一个输出的结果是( ) A)3 B) 0 C) 6 D) 2(2)程序执行中循环体的执行次数为( ) A)2 B) 3 C) 4 D)大于4(3)循环结束后变量X的值是( ) A) 2 B)3 C)

2、 4 D) 6阅读下列程序,回答问题：(1)语句X=1的作用是 ( ) A)给内存变量X赋值 B)给数组X中的每个元素赋值 C)等价于X(1)=1 D)给字段变量赋值(2)子程序运行完毕后，输出结果为( ) A) 1, 6，4 B) 2，6，4 C) .F. ,4, 6 D).F. ,6, 4(3)主程序运行完毕后，输出结果为( ) A)1,6，4 B) 2，6,4 C).F. ,4,6 D).F. ,6,4*子程序 SUB1para x,y,zx=x+1y=y*zz=y-x?x,y,zreturn*主程序MAINcleardime x(3)x=1y=2z=3do sub1 with x(1)

3、,y,z?x(1),y,zreturn3.阅读下面程序： clear open database emplorer use compen scan for recno( )=10 if 姓名=”杜勇”loopendif?姓名，实发工资endscanuseclose database(1) compen是( ) A 自由表 B 数据库表 C 数据库 D 可能是自由表，也可能是数据库表(2)若数据库有50条记录，则程序的功能是( ) A 前10条记录中搜索“杜勇”的记录 B 列出前10条记录，但是不显示“杜勇”的记录 C 每10条记录一屏显示记录，但不显示“杜勇”的记录 D 列出前10条记录(3)

4、循环结束后，指针指向( ) A 第1条 B 最后一条 C 第10条 D 最后1条记录4.阅读下面程序*main.prgclearset proc to abcpublic a1,a2a1=1a2=a1+1a3=right(internet,3)do s1?a1,a2,a3 & do s2 with a1,a2,a3return *过程文件 abc.prgproc s1a1=a1+1returnproc s2para a,b,ca=a+1b=b+1c=c+left(exper,3)?a,b,c & do s3 with a,b,creturnproc s3para x,y,zx=x+1z=z-z

5、?x,y,z & y=y+1return(1)程序运行时第一个“？”(语句处)的屏幕显示结果为( ) A、2 2 net B、2 2 int C、1 2 net D、1 3 exp(2)程序运行第二个“？”(语句处)的屏幕显示为( ) A、3 3 net B、3 3 netexp C、2 3 netrer D、4 3 exp(3)程序运行第三个“？”(语句处)的显示结果为( ) A、2 2 net B、4 3 entexpC、4 3 expnet D、4 3 netexpnetexp 5.现有如下数据表文件，执行SQL查询命令后请选择正确的结果。(1)执行“select * from stoc

6、k into dbf stock order by 单价”，( ) A、会产生一个按“单价”升序的排列文件，将原stock覆盖 B、会产生一个按“单价”降序的排列文件，将原stock覆盖 C、不产生排列文件，只在屏幕上显示“单价”升序排序结果 D、系统会提示出错信息(2)执行“select * from stock where 单价 between 15.00 and 25.00”与该语句等价的是( )A、 select *from stock where 单价=25.00B、 select *from stock where 单价25.00C、 select *from stock wher

7、e 单价15.00 and单价=15.00 and单价=80 s=0 do while not eof() ?姓名 if subs(学号，2,1)=”1” s=s+外语 endif cont enddo?s,recon( )(1) 显示的姓名有( A、张三 李四 王五 刘六 漆七 B、张三 王五 漆七C、李四 王五 刘六 D、张三 李四 王五(2)程序结束时S的值为( ) A、396 B、185 C、241 D、211(3)程序结束时RECNO( )的值为( ) A、.T. B、.F. C、5 D、6 7. 阅读下面的程序X=1Do while x7 Y=1 C=”*” Do while y=

8、xC=c+str(y,1) Y=y+1 Enddo If x=5 ?c endif x=x+1enddo?xreturn(1)执行以上程序后，“?x”命令显示变量x的结果为( ) A、$6 B、7 C、6 D、$7(2)执行以上程序后“？C”的结果为( ) A、*54321 B、54321 C、*12345 D、12345(3)在上面的程序中，控制内循环和外循环的变量分别为( ) A、X，Y B、Y，X C、X，C D、Y，C（二）程序填空： 1. 下面程序是对“职工”表中的重复职工号进行物理删除，请补充程序Use 职工Index on 职工号 to zghDo while Zgh=职工号 S

9、kip If Delete Endif Close all 2. 有图书表TS.DBF和订单表DD.DBF，要求计算订单金额。 图书表TS.DBF结构如下：书号 书名 作者 出版社 单价Y001 C语言 王晓 大众出版社 21.50J002 计算机基础 程力 科技出版社 26.00J003 计算机导论 舒彦 电子出版社 30.50W004 网页制作 严谨 科技出版社 28.3 订单表DD.DBF结构如下订单号 书号 数量 金额001 Y001 150002 J001 200003 J003 50004 W004 100阅读下面程序，请补充完整Clear allSelect AUse TSInd

10、ex TO SSSelect bUse DDSet relation to 书号 Replace all 金额 with List 定单号，书号，TS.单价, TS.书名，数量，金额return3. 有“教师”表和“学院”表如下：用SQL查询语言实现：(1) 使用SQL语句完成一条新记录的插入操作： insert 学院(院系代码，院系名称) values(“04”,艺术学院)(2) 求所有“机械制造学院”的职工的工资总和的操作： select (工资) from 教师 where 院系代码 in (selece 院系代码 from 学院 where 院系名称=“机械制造学院”(3) 将所有“讲

11、师”人员的工资提高10%的操作： update 教师 set 工资=工资*1.1 职称=“讲师”(三)编程题第二十六次等级考试二级(数据库)上机考试试卷(第一套)考试盘中已建立项目26test1，在该项目中已有自由表“学生档案.DBF”、“学生成绩.DBF”。下面的程序设计与表单设计都应在项目中完成。、编写程序(文件名：abc1.prg)(50分)项目文件26test1中已有数据表“学生档案.DBF”、“学生成绩.DBF” 编程实现：计算每个学生的总成绩，其中“听力”和“口语”各占总分30%，笔试占总分的40%，填入相关记录。将平均分80分(含80分)以上的学生记录，备份到STBF.DBF库，其中有字段：学号、姓名、平均分，并显示STBF.DBF表文件的内容：记录号 学号 姓名 总成绩1 061100101 王音坤 812 061100102 何畅 913 061130101 吴鑫 874 050210201 陈晓敬 815 040103020 马云飞 85查找“06”级的四川籍学生(其中：学号的前2位为年级号)。按下列要求显示查询结果： 学号 姓名 总成绩 062010101 邹艳 70 061130101 吴鑫 87 060421020 李荣芳 66