二级培训资料2.doc

补充：历年二级试题18次等级考试(2003.4)二、读程序（每空3分，共45分）1、CLEARM=0 FOR X=1 TO 10 IF MOD(X,3)=0 M=M+X ENDIF ENDFOR ? M RETURN（1）该程序的功能是：求1到10之间（C）A. 能被3整除数的个数 B. 能被3整除数的和 C. 不能被3整除数的个数 D. 不能被3整除数的和（2）该程序执行的结果是：（B ）A. 3 B. 10 C. 18 D. 372、&MAIN.PRG &P1.PRG X1=1 PARA W1,W2 X2=2 PRIVATE W1 DO P1 WITH X1,X2 W1=W1*3 ?X1=+STR(X1,1) W2=W2*4 ?X2=+STR(X2,1) RETURN X1=1 X2=2 DO P1 WITH X1,X1+X2 ?X1=+STR(X1,1) ?X2=+STR(X2,1) RETURN（1）第一次显示X1，X2的值是（ ）A. 1 , 8 B. 3 , 8 C. 1 , 1 D. 8 , 8（2）第二次显示X1，X2的值是（ ）A. 1 , 2 B. 3 , 1 C. 3 , 2 D. 1 , 33、数据表JY.DBF的内容如下：Record # 借书证号 借书日期 1 0010 02/01/99 2 0007 05/04/99 3 0006 02/03/99 4 0010 05/17/99数据表JYR.DBF 的内容如下：Record # 借书证号 姓名 职称 1 0006 孟小梅 教授 2 0010 郑财勇 讲师 3 0007 王志军 助教且：JYR库以借书证号为关键字建立了索引，索引文件为JYR.IDX程序如下：SELECT 1USE JYR INDEX JYRSELECT 2USE JYSET DEVICE TO PRINTH=1DO WHILE .NOT. EOF() TS=DATE()-借书日期IF TS80 SELECT 1 SEEK B.借书证号 IF TS100 .OR. 职称教授 H,4 SAY 姓名+同志，您借的书已过期，请归还 H=H+1ENDIF SELECT 2ENDIF SKIPENDDOSET DEVICE TO SCREENRETURN（1）设当前系统日期为06/15/99，程序将打印（ ）还书的信息A孟小梅、郑财勇各一行 B孟小梅一行、郑财勇两行C 孟、郑、王各一行 D孟、郑、王三人共五行（2）高级职称和其它职称借书的最多天数分别是（ ）A81天,101天 B100天,80天 C80天,100天 D101天,81天（3）本程序的功能是：（ ）A查询接书证号 B查询借书日期C书未还书者 D查询并打印超期未还书者4、CLEAR DO WHILE I=19DIME A（20） J=I+1P=1 DO WHILE J=20DO WHILE P=20 IF A(I)=A(J) A(P)=INT(RAND()*100+1) T=A(I) P=P+1 A(I)=A(J)ENDDO A(J)=TI=1 ENDIF（接右边） J=J+1 ENDDO ?A(I) I=I+1 ENDDO ?A(I) 最后一句 RETURN（1）程序完成的功能是将20个数组元素值（ ）A排序后按从大到小的顺序输出B排序后按从小到大的顺序输出C倒序输出 D. 按自然顺序输出（2）将DIME A（20）改成 DIME A（10）后，（ ）A出现“数组重复定义”的错误B出现“数组下标越界”的错误C程序功能不变，只是输出10个数组元素值D程序功能不变，仍然输出20个数组元素值（3）程序段 DO WHILE P=20 A(P)=INT(RAND()*100+1) P=P+1 ENDDO的功能是：A产生20个0到101之间的随机整数，且存入数组变量A中B产生20个1到101之间的随机整数，且存入数组变量A中C产生20个1到100之间的随机整数，且存入数组变量A中D产生20个0到100之间的随机整数，且存入数组变量A中5、阅读下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()=10 IF 姓名=李强 LOOPENDIF?姓名，实发工资 ENDSCAN USE CLOSE DATABASE（1）compen是：（ ）A自由表 B数据库表数据库 可能是自由表，也可能是数据库表（2）若数据库有50条记录，则程序的功能是：（ ）A前10条记录中搜索“李强”的记录 B列出前10条记录每10条记录一屏显示记录，但不显示“李强”的记录列出前条记录，但是不显示“李强”的记录（3）循环结束后，指针指向（ ）A. 第1条 B.最后一条 C.第10条 D.最后1条记录加16、CLEAR N=0 FOR J=1 TO 3?STR(J,2)+)?SPACE(6*J)FOR K=1 TO 3-J+1 ? STR(J*K,6) N=N+2ENDFOR ?ENDFORRETURN（1）输出的图形为：（ ）A. 1 ) 1 B. 1 ) 1 2 3 C. 1 ) 1 2 3 D. 1 ) 1 2 3 2 ) 2 4 2 ) 2 4 2 ) 2 4 2 ) 4 6 8 3 ) 3 6 9 3 ) 3 3 ) 3 3 ) 9 12 15（2）程序结束时，N的值是：（ ）A. 12 B. 9 C . 10 D . 15三、程序填空 （每空2分，共30分）1、有如下程序段，其功能是显示汉字“2008年北京申奥成功！”从屏幕的顶部移至底部，请填空补充该程序 CLEAR CH= 2008年北京申奥成功！ R=1 DO WHILE R=23R,26 SAY SPACE(60)_ , 26 SAY CHT=INKEY(0.2)_ ENDDO RETURN2、数据表，图书表TS.DBF 和定单表 DD.DBF，要求计算订单金额。图书表TS.DBF的结构如下：书号 书名 作者 出版社 单价Y001 C语言 王晓 大众出版社 21.50J002 计算机基础 程力 科技出版社 26.00 J003 计算机导论 舒彦 电子出版社 30.50W004 网页制作 严谨 科技出版社 28.30订单表DD.DBF结构如下:订单号 书号 数量 金额001 Y001 150 002 J001 200 003 J003 50 004 W004 100阅读下面程序,请将程序补充完整.CLEAR ALLSELECT AUSE TSINDEX _ TO TSSSELECT BUSE DDSET RELATION TO 书号 _REPLACE ALL 金额 WITH _LIST 定单号,书号,TS.书名,TS.单价,数量,金额RETURN3、程序功能是为数据表SB-1.DBF编制的一个输入程序，要求可以连续添加记录。USE SB-1DO WHILE .T.CLEAR 2,5 SAY “请添加记录：” _ 4,5 SAY “编号” GET编号 6,5 SAY “名称” GET名称 8,5 SAY “启用日期” GET启用日期 10,5 SAY “价格” GET 价格 12,5 SAY “部门” GET 部门 14,5 SAY “主要设备” GET 主要设备 _ 18,5 SAY “是否输入商标内容?(Y/N)” GET SHB DAFAULT SPACE(1)READ IF UPPER(SHB)=YMODIFY GENERAL 商标 ENDIF 20,5 SAY “是否继续添加？（Y/N）” GET JX DEFAULT SPACE（1） READ IF LOWER(JX)=N _ ENDIFENDDORETURN4、如下图所示，用标签、文本、命令按钮构成一个表单。在标签中显示以下文字“当前时间”，运行表单时，单击“显示”按钮将显示系统时间；单击“清除”按钮，文本框中的内容将被清楚，单击“退出”按钮，将退出表单运行。 为完成上述要求：（1）“清除按钮”的Click事件代码是_（2）“退出按钮”的Click事件代码是_（3）“显示按钮”的Click事件代码是_（4）应该设置表单的_属性为_-5、数据表 STUD.DBF有字段： 学号,姓名,性别,年龄,民族,专业,成绩等字段.下面按要求写出SQL命令,请补充完成(1)在表中插入一学生的记录: (2)列出所有男生的姓名、性别和年龄(200211001,李晚,女,18) SELECT 姓名,性别,年龄;SQL语句： FROM STUD;INSERT ; _ 性别=男_ STUD(学号,姓名,性别,年龄)Values(200211001、李晚、女、18)19次等级考试（2003.10）二、读程序题（每个选择3分，共45分）1、阅读下面程序： CLEAR ALL STORE 1 TO J，K DO WHILE K=1 DISPLAY SKIP -1 WAIT N=N-1 ENDDOUSERETURN （1）程序的功能是（28）28（A）显示所有记录 （B）分别显示前3个记录 （C）显示第3个记录 （D）分别显示后三个记录 （2）退出循环后，N的值是（29） 29（A）0 （B）1 （C）3 （D）43、阅读下面程序USE SBSORT TO RQX ON 启用日期/D FIELDS 编号，名称，启用日期 FOR NOT 主要设备USE RQXLIST USE SB SORT TO BMX ON 部门/D，价格 FOR 主要设备USE BMXLIST USE SBINDEX ON VAL（部门），-价格/1000000 TAG bmjgl CANDIDATELISTRETURN （1）程序执行到第一个LIST命令时，输出结果是（30）30 （A）将主要设备按编号，名称，启用日期分别升序排序。（B）将主要设备按编号，名称，启用日期分别降序排序。 （C）将非主要设备按启用日期降序排序。（D）将非主要设备按启用日期升序排序。（2）程序执行到第二个LIST命令时，输出结果是（31）31（A）将主要设备按部门升序排序，当部门相同时，按价格降序排序。（B）将主要设备按部门降序排序，当部门相同时，按价格升序排序。（C）将主要设备按部门降序排序，当部门相同时，按价格降序排序。（D）将主要设备按部门升序排序，当部门相同时，按价格降序排序。 （3）程序执行到第三个LIST命令时，输出结果是（32）32 （A）以部门升序排列。部门相同时，以价格降序排列，索引标识为唯一索引。（B）以部门升序排列。部门相同时，以价格降序排列，索引标识为候选索引。（C）以部门升序排列。部门相同时，以价格升序排列，索引标识为候选索引。（D）以部门升序排列。部门相同时，以价格升序排列，索引标识为唯一索引。4阅读下面程序： clear store 1 to i store 2 to j,k do a1?”i=”+str(i,2)+” j=”+str(j,2)+” k=”+str(k,2) do a2?”i=”+str(i,2)+” j=”+str(j,2)+” k=”+str(k,2)returnproc a1i=3*i+2private ii=2*j+k?”i=”+str(i,2)+” j=”+str(j,2)+” k=”+str(k,2)retuproc a2j=i*2+kprivate jj=k*2+i?”i=”+str(i,2)+” j=”+str(j,2)+” k=”+str(k,2)do a3 with i,i+j,(k) retuproc a3para x,y,zx=y+zy=x+zz=x+yk=x+y+zretu主程序中“do a1”后的显示语句显示结果为：（33）33 （A）i=6 j=7 k=2 （B） i=5 j=7 k=2（C）i=5 j=2 k=2 （D） i=6 j=8 k=2(2) 过程a1中的显示语句将显示：（34）34 （A）i=6 j=7 k=2 （B） i=5 j=7 k=2（C）i=5 j=8 k=2 （D） i=6 j=2 k=2（3）过程a2中的显示语句将显示：（35）35 （A）i=6 j=9 k=2 （B） i=5 j=9 k=2（C）i=5 j=12 k=2 （D） i=6 j=12 k=2（3） 主程序中“do a2”后的显示语句显示结果为：（36）36 （A）i=16 j=12 k=68 （B） i=16 j=9 k=68（C）i=18 j=10 k=76 （D） i=18 j=14 k=765阅读下面程序： 有图书数据表TS和订书单表DSD如下：TS：（书号：C3， 单价：N6.2 书名C10） 书号 单价 书名 001 12.0 计算机应用 002 10.0 化学 003 15.0 分析化学DSD：（班级：C6，书号：C3 ，数量：N3.0, 款项：N7.2） 记录号 班级 书号 数量 款项 1 化95.4 001 47 0.00 2 数94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.007 数94.3 001 74 0.008 化95.4 003 47 0.009 数94.3 003 74 0.00程序：CLEA ALLSELE 1USE Ts ALIAS SHUINDEX on 书号 tag TSSHSELE 2USE dsd alias shdnSET RELA TO 书号 INTO SHU updateshdnset款项数量shu .单价 where shdn书号=shu书号sele 班级，dsd .书号，ts.书名，数量，款项 from dsd.dbf ，ts.dbf order by ;款项where ts.书号=dsd书号 into cursor aaa LIST DO WHIL .T. ACCE “输入班级名(输入0退出)” TO BJ IF BJ =0 EXIT ENDI ACCE“输入书号” TO SH LOCAT FOR 书号=SH IF BOF （） EXIT ENDI ？班级+”班长，请来领并交款”+str(款项)+”元。” ENDD clea all RETURN（1）do while循环中locate操作的表是：（37） 37（A）数据表TS （B）数据表DSD（C） 系统临时表aaa （D）系统临时表cursor aaa（2）运行时输入”数94.3”，并输入书号“003”，则输出为：_(38)_ 38（A）数94.3班长，请来领化学，并交款 740 元（B）化95.4班长，请来领分析化学，并交款 705元（C）物96.4班长，请来领分析化学，并交款 1005元（D）输入错误，没有输出6、阅读下面程序： CLEART=65R=20INPUT “请输入图形的行数N=” TO NI=1DO WHILE I=N J=1 DO WHILE J=2*I-1 I,J+R SAY CHR (T) J=J+1 IF J=I T=T+1ELSE T=T-1 ENDIFENDDOI=I+1R=R-1T=65ENDDORETURN(1)运行程序后输出图形（39）。 39（A）A （B） A BBB ABC CCCCC ABCDE DDDDDDD ABCDEFG EEEEEEEEEEEE ABCDEFGHIJ （C） A A ABA BAB ABCBA CBABC ABCDCBA DCBABCD ABCDEDCBA EDCBABCDE （2）语句I,J+R SAY CHR(T) 中函数CHR（）的功能是（40）。 40 （A）从字符T中取出子串 （B）返回字符T的ACS码值 （C）返回字符T的ACS码字符（D）返回表示的ACS码字符三、程序填空题（每空2分，共30分）1、读程序，请将程序补充完整。 X=0 CLEAR DO WHILE .T. 10,20 SAY “主菜单” 11,22 SAY “1输入数据” 12,22 SAY “2查询记录” 13,22 SAY “3统计记录” 14,22 SAY “4退出系统” 15,22 SAY “请输入选择14：” GET X _ DO CASE CASE X=1 DO SUB1 CASE X=2 DO SUB2 CASE X=3 DO SUB3CASE X= 4 _ ENDCASE ENDDO RETURN 2、下面程序的功能是利用参数传递求三个圆柱体体积。*主观题 EX.PRG CLEAR FOR K=1 TO 3 INPUT“圆半径R=”TO R INPUT“高H=”TO H _ DO SUBYZ_ ?”圆柱体V=”,INT(V）ENDFOR RETURN*子程序 SUBYZ.PRG PARA_V=3.14*R2*HRETURN3、创建一个检查口令输入的表单，口令设置为“ABCD”，要求： 开始运行是，Label2不显示任何信息，在前两次输入口令错误时显示“口令错，请重新输入口令！”，第三次输入口令错误时显示“对不起，您无权使用本系统！”。如口令正确则显示“欢迎使用本系统”。 单击“确定”按钮（Command1）时，检查用户输入口令的正确性及输入次数，口令三次输入错误时，处于禁用状态。 Text1用语接收用户输入的口令，口令输入时，其中的值用“*”号显示，当口令三次输入错误时，处于禁用状态。 单击“关闭”按钮（Command2）时，关闭本表单。 （1）Label2的Caption属性的初始值应设置为：_； （2）为用”*”号显示输入口令，应设置Text1的_属性，属性值为“_”； （3）表单Form1的Form1.activeate事件代码为 Thisform.Text1.SetFocus PUBLIC n n=0 （4）Command1按钮（“确定”按钮）的Click事件代码为： M=thisform.text1.value If_ thisform.label2.caption=“欢迎使用本系统!”Else n=n+1 thisform.label2.caption=“口令错，请重新输入口令！” thisform.text1.value=_ thisform.text1.setfocus if _ thisform.label2.caption=“对不起，您无权使用本系统！” thisform.text1.enabled=f_endifendif(5)命令按钮Comand2（“关闭”按钮）的Click事件代码为 _4。使用结构化查询语句SQL， （1）在给定的数据库表RS中，查询工资在1000至1500元之间的职工的职工号，姓名及单位。 SELECT职工号，姓名，单位 FROM _ WHRER 工资 BETWEEN 1000 AND 1500（1）在教工数据表JG中，查询职称为“助教”或“讲师”人员的姓名，工资和部门。 SELECT 姓名，工资，部门 FORM JGWHERE职称_20次等级考试（2004.4）二、读程序题(每题3分，共45分)1. Store 0 to h，k do while .t k=k+1 h=h+k IF K=10 exit endIf enddo ?”h=”+Str(h，4) return (1)该程序的功能是( 26 ) (A)计算1-10的整数之和 (B)计算l-9的整数之和 (C)计算l-11的整数之和 (D)计算1-10以内数的和 (2)该程序运行的结果是( 27 ) (a)55 B)66 (C)h=55 (D)h= 66 2有以下三段程序 *Main.PRG *SUB.PRG K1=10 PRIV K1 K2=20 K1=K2+10 DO SuB K2=K1+10 ?K1，K2 &(1) RETU DO SUBl With K2+10，K1 ?K1，K2 &(3) *Sub1.pRG PARA Xl,x2 X1=STR(X1，2)+STR(X2，2) X2=X1+STR(X2，2) ?X1,X2 &(2) RETU(1)程序运行到(1)处显示的结果是( 28 ) (A)10 20 b)20 30 (C) lO 30 (D) lO 40(2)程序运行到(2)处显示的结果是( 29 ) (A)5010 501010 (B)60 70 (C)70 60 (D)3010 301010(3)程序运行到(3)处显示的结果是( 30 ) (A)3010 40 (B)5010 40 (C)501010 40 (D)301010 203阅读程序： CLEA BM=SPACE(10) 5，10 SAY“请输入表名：”GET BM READ BM=ALLTRIM(BM) IF FILE(“&BM.DBF”) USE &BM BROWSE NOMODI ELSE WAIT“文件不存在!” WINDOW NOWAIT ENDIF USE RETURN(1)程序的功能是( 31 ) (A)浏览任意一个打开的表文件 (B)修改任意一个打开的表文件 (c)浏览指定表文件BM (D)修改指定表文件BM (2)函数FILE(“&BM.DBF”)的功能是( 32 ) (A)测试指定的文件的类型正确否 (B)指定文件类型为.DBF (C)测试指定的文件存在否 (D)指定文件为&BMDBF (3)将语句USE&BM改写为USE(BM)，程序( 33 ) (A)程序不能执行 (B)程序功能不变 (c)该命令将关闭表文件 (D)以上三种说法都不对4有图书目录表sml.dbf和入库流水单表skcdbf如下sml.dbf：(5条记录) 书号 书名 作者 出版社 1 计算机基础 杨振山 高等教育 2 计算机原理 费利民 西安交大 3 C语言设计 赵国民 上海 4 C语言教程 张 扬 四川 5 C+教程 张 敏 高等教育skc.dbf：(5条记录) 书号 单价 数量 金额 入库日期 1 15.00 30 450.00 20030818 2 11.00 21 231.00 20030818 3 22.00 30 660.00 20030818 4 19.00 30 570.00 20031218 5 22.21 23 510.83 20031218程序：CLEAR1，15 SAY 新书入库Y=Y DO WHILE upper(Y)=”Y” 2，1 CLEA SM=SPACE(14) ZZ=SPACE(8) CBS=SPACE(10) 3，10 SAY 书名 GET SM 3，30 SAY 作者 GET ZZ 3，45 SAY，出版社 GET CBS READ SELE 1 USE SML LOCA FOR TRIM(书名)=TRIM(SM) AND TRIM(作者)=TRIM(ZZ) AND TRIM(出；版社)=TRIM(CBS) IF FOUND() SH=书号 ELSE SKIP -1 SH=STR(val(书号)+1，4) APPE blan REPL书名WITH SM，书号WITH SH，作者WITH ZZ，出版社with cbs ENDIF SELE 2 USE skc APPE BLAN REPL书号with sh 4，10 SAY 单价 GET单价 4，30 SAY 购数 GET数量 READ REPL金额 WITH 单价*数量 REPL入库日期 WITH date() WAIT “是否继续(YN)” to Y ENDD CLOSE DATA 设运行时依次输入下列数据： 代数 张三 清华 22.00 31 几何 李四 北大 33.00 32 概率 王五 南开 44.00 33 几何 李四 北大 33.00 41 代数 张三 清华 22.00 56 (1)此时sml表中的记录条数和最大记录号分别为( 34 ) (A)10条，10 (B)10条，5 (C)8条， 8 (D)8条，10 (2)SKC表中记录数为( 35 ) (A)10 (B) 5 (C) 8 (D) 7 (3)skc表中最后一条记录的书号为：( 36 ) (A)8 (B) 7 (C) 10 (D) 65阅读下列程序 clear dimension k(2,3) i=l ? do while i=2 j=l do while j=30 and 年龄=850? a1,b1index on 年龄 to dxindex on 工资 to wkset index to dxgo topreplace 职称 with “副教授” ,工资 with 820set index to wkgo bottomskip 1repl 职称 with “教授”,工资 with 910reindexgo bottom? 姓名,工资usereturn(1)变量a1,b1的值分别为 (A)1950 870 (B)2000 870 (C) 1950 820 (D) 2000 820(2)第一条replace命令将(29)的职称改成了副教授(A)刘永辉 (B)邓刚 (C)李华 (D)张小远(3)第二条replace命令将(29)的职称改成了教授.(A)李华 (B)邓刚 (C) 王平平 (D)苏军(4)最后一条?命令显示的姓名和工资是(A)吴晓阳 910 (B)邓刚 890 (C)刘永辉 700 (D)李华 8203.读下列程序dime a(6)s=0for k=1 to 6input “请输入数” to a(k)s=s+a(k)endforav=s/6r=0for k=1 to 6if a(k)av? a(k)r=r+1endifendfor? r(1)若输入的数据为1,2,3,4,5,6则显示的是(32) (A)1 2 3 (B)2 3 4 (C)3 4 5 (D)4 5 6(2)? R的值是多少(33) (A) 2 (B) 3 (C) 4 (D) 64.读下列程序 j=0clearfor k=1 to 4 for r=1 to 5-k ? “ “ &此处引号内有一空格endforfor m=1 to 2*k-1 ? str(k,1) j=j+1endfor?endfor? j(1)程序的运行结果是(34)(A)1 (B)1 (C)4 (D)1111111121 222 333 2222212321 33333 22222 3331234321 4444444 1111111 1(2)程序结束时,J的值为(35)(A) 7 (B) 17 (C) 16 (D) 65.阅读下面的程序input “输入年龄” to nldo case case nl7 &语句组1? “童年” case nl=18 &语句组2? “少年” case nl=60? “老年” case nl=35 &语句组3? “中年” other &语句组4?”青年”endcase由于程序设计不当,本程序运行结果不对.(1)运行时输入11,输出是(36)(A)童年 (B)少年 (C)青年 (D)老年(2)运行时输入