笔试读程序题分析(S18-29)CP18.doc

笔试题读程序分析（S18-29）一、 循环18.1计数循环套IFmod()累加器CLEARM=0FOR X=1 TO 10 IF MOD(X,3)=0M=M+X ENDIFENDFOR? MRETU(1) 程序的功能是(A) 求1-10之间能被3 整除数的个数(B) 求1-10之间能被3 整除数的和 .(C) 求1-10之间不能被3 整除数的个数(D) 求1-10之间不能被3 整除数的和(2) 程序的结果是 (A) 3 (B) 10 (C) 18 . (D) 3718.5类似26.1表扫描型循环套IF选择库表、自由表指针位置CLEAROPEN DATABASE emplorerUSE compenSCAN FOR RECNO()=10 IF 姓名=”李强” LOOP ENDIF ? 姓名,实发工资ENDSCANUSECLOSE DATA(1) compen是(A) 自由表 (B) 数据库表(C) 数据库 (D) 可能是自由表，也可能是数据库表 .(2) 若数据库有50条记录，则程序功能为(A) 前10条记录中搜索“李强”的记录(B) 列出前10条记录(C) 每10条记录一屏显示记录，但不显示“李强”的记录(D) 列出前10条记录，但不显示“李强”的记录 .(3) 循环结束后，记录指针指向(A) 第1条记录 (B) 最后1条记录 (C) 第10条记录 (D) 最后1条记录加1 .19.1条件循环屏幕坐标计数器CLEAR ALL STORE 1 TO J, KDO WHILE K=lDISPLAYSKIP -lWAITN=N-1ENDDOUSERETU(1) 程序的功能是(A) 显示所有记录(B) 分别显示前3个记录(C) 显示第3个记录(D) 分别显示后3个记录 .(2) 退出循环后，N的值是(A) 0 . (B) l (C) 3 (D) 420.1绝对循环功能计数器累加器（初值，位置）STORE 0 TO H,KDO WHILE .T.K=K+1HH+KIF K=10EXITENDIFENDDO?H=+STR(H,4)RETURN(1) 该程序的功能是(A) 计算1-10的整数之和 .(B) 计算1-9的整数之和(C) 计算1-1l的整数之和(D) 计算1-10以内的数之和(2) 该程序运行的结果是(A) 55 (B) 66 (C) h= 55 . (D) h= 6622.1计数循环套IF数位值FOR K=100 TO 400A=INT(K/100)B=INT(K-100*A)/10)C=K-INT(K/10)*10IF K=100*C+10*B+A ? KENDIFENDFOR / RETU(1) 程序完成的功能是(A) 显示100-400之间所有既能被10整除又能被100整除的数(B) 显示100-400之间所有能被10整除的数(C) 显示100-400之间所有能被100整除的数(D) 显示100-400之间所有百位与个位交换后其值相等的数 .(2) 能代替B=INT(K-100*A)/10)这条命令的是(A) B=VAL(LEFT(STR(K,3),1)(B) B=VAL(SUBSTR(STR(K,3),2,1) .(C) B=VAL(RIGHT(STR(K,3),1)(D) 上述选择都不正确(3) IF K=100*C+10*B+A / ? K / ENDIF 这段程序的功能是(A) 判断K是否等于A,B,C三个数的和,如果是则显示K(B) 判断K是否等于个位与百位交换后的值,如果是则显示K .(C) 判断A,B,C三个数是否为整数,如果是则显示K(D) 上述选择都不正确(4)将” IF K=100*C+10*B+A ” 语句替换为 ”IF K=A*A*A+B*B*B+C*C*C ”程序完成的功能是(A) 将100-400之间能被100整除的数显示(B) 将100-400之间能被10整除的数显示(C) 将100-400之间该数的每位的立方和等于该数的数显示 .(D) 将100-400之间的素数显示22.6条件双循环变量值C型累加器（初值，位置）CLEAX=1DO WHILE X=5Y=1C=”$”DO WHILE Y5EXITENDIFENDDO? X 程序执行中第一个输出的结果是(A) 3 (B) 0 (C) 6 . (D) 2 程序执行中循环体的执行次数为(A) 2 (B) 3 . (C) 4 (D) 大于4 程序结束后变量X的值是(A) 3 (B) 3 (C) 4 (D) 6 .25.1CLEARACCEPT “请输入字符串” TO ZFI=0DO WHILE ILEN(ZF) A=SUBSTR(ZF,LEN(ZF)-I,1) 10,I SAY A I=I+1ENDDO RETU 如果输入字符串为”ABCDE”，则程序运行结果为(A) ABCDE (B) EDCBA.(C) EDCBABCDE (D) ABCDEDCBA 如果将程序中第三行的“ACCEPT”改为“INPUT”，则在输入字符串时(A) 不能正常输入 (B) 没有任何影响 (C) 需加定界符输入. (D) 以上说法都不对 程序运行完毕I的值为（28）(A) LEN(ZF)+1 (B) LEN(ZF)-1 (C) LEN(ZF). (D) 125.3学生.dbf，40条记录，其中男生23，女生17.CLEAR / USE 学生 / STORE 0 TO I,J,KDO WHILE .NOT.EOF()I=I+1IF 性别=”男” J=J+1 / SKIP / LOOPENDIFDISP 学号,姓名 / K=K+1 / SKIPENDDO / USE / ? I,J,K程序执行过程中输出的记录是(A) 全部学生的记录 (B) 全部男生的记录(C) 全部女生的记录. (D) 没有记录被显示程序结束时输出的I,J,K的值分别是(A) 40 23 17 . (B) 40 17 23(C) 23 17 40 (D) 17 23 4026.1类似18.527.1 CLEAR T=0 / P=1INPUT “请输入N=” TO NFOR I=1 TO NP=P*I / T=T+PENDFOR? TRETU(1) 程序的功能是(A) 计算1到N的和 (B) 计算1到N的积(C) 计算1到N的阶乘 (D) 计算1到N的阶乘的和.(2) 如果输入N=5，则程序运行后T的值为(A) 15 (B) 120 (C) 153. (D) 55(3) 如果将程序中“T=T+P”放到循环体外，且输入N=5，则(A) 不影响程序执行结果 (B) 程序不能执行(C) T的值等于5 (D) T的值等于120.28.1T=5DO WHILE T=10 EXITENDIF / T=T+2ENDD / RETU(1)程序共循环了（ ）次。(A) 3 (B) 4 . (C) 5 (D) 6(2)程序运行结果是(A) 6 8 10 (B) 6 8 10 12 . (C) 5 7 9 11 (D) 5 7 9 11 1328.3设表文件XS.DBF有10条记录USE XS DO WHILE N=1GO BOTTOM DISPLAY / SKIP 1N=3 WAIT / N=N-1ENDDO / USE / RETU(1)程序的功能是（ ）(A) 显示所有记录 (B) 分别显示前3个记录(C) 显示第3个记录 (D) 分别显示后3个记录.(2)退出循环后，N的值是（ ）(A) 0 . (B) 1 (C) 3 (D) 4二、图形18.6累加器CLEARN=0FOR J=1 TO 3? STR(J,2)+)? SPACE(6*J)FOR K=1 TO 3-J+1? STR(J*K,6)N=N+2ENDFOR?ENDFORRETU(1)输出图形为(A) 1) 1 (B) 1) 1 2 3 2) 2 4 2) 2 43) 3 6 9 3) 3(C) 1) 1 2 3 . (D) 1) 1 2 32) 2 4 2) 4 6 83) 3 3) 9 12 15(2)程序结束时，N的值是(A) 12 . (B) 9 (C) 10 (D) 1519.6CHR()CLEART=65R=20NPU “请输入图形的行数N=” TO NI=1DO WHILE I=N J=1DO WHILE J=2*I-1 I,J+R SAY CHR(T) J=J+1 IF J=I T=T+1 ELSE T=T-1 ENDIENDDI=I+1 / R=R-1 / T=65ENDD / RETU(1)运行程序后输出图形(A) A (B) A BBB ABC CCCCC ABCDE DDDDDDD ABCDEFGEEEEEEEEEEE ABCDEFGHIJ (C) A . (D) A ABA BAB ABCBA CBABC ABCDCBA DCBABCD ABCDEDCBA EDCBABCDE(2)语句I，J+R SAY CHR(T) 中,函数CHR( ) 的功能(A) 从字符T中取子串 (B) 返回字符T的 ASCll码值(C) 返回字符T的ASCll码字符(D) 返回表示的ASCII码字符 .20.6计数双循环图形显示覆盖CLEARM=0FOR K=0 TO 2FOR J=3-K TO 3+KK,J SAY STR(K,2)+STR(J,1) M=MlNEXT JNEXT K? M / RETU(1) 输出图形为(A) 03 . (B) 03 (C) 03 (D) 0 3 14 14 14 1 4 25 25 25 2 5(2) 程序结束时，M的值是(A) 11 (B) 9 . (C) 10 (D) 821.4计数循环套并列计数循环图形显示J=0 / CLEARFOR K=1 TO 4FOR R=1 TO 5-K? “ “ &此处引号内有1空格ENDFORFOR M=1 TO 2*K-1? STR(K,1)J=J+1ENDFOR ? ENDFOR? J(1) 程序运行的结果是(A) 1 (B) 1 . (C) 4 (D) 1111111 121 222 333 22222 12321 33333 22222 333 1234321 4444444 1111111 1(2) 程序结束时,J的值为(A) 7 (B) 17 (C) 16 . (D) 621.6CLEARNAME=”上海自来水”10,10 SAY NAMEFOR I=1 TO 4AI=SPACE(I)-SUBSTR(NAME,9-2*I,2)ROW( )-1,18 SAY AINEXTCITY=”自来”XX=CITY$NAME / RETU(2) XX的值为(A) 0 (B) 1 (C) .F. (D) .T. .(1) 程序运行结果为(A) 上海自来水 (B) 上 . 来 海自 自海 来上 上海自来水(C) 上海自来水 (D) 上海自来水 来 上自 海海 自上 来23.6CLEARN=4FOR I=N TO 1 STEP -1? SPACE(10-I)FOR J=1 TO 2*(I-1)? “*”ENDFORENDFORRETU 程序运行完后显示结果是(A) * (B) * .* * * * *(C) * (D) * * * * * * 程序运行完后I的值是 (A) 5 (B) 4 (C) 1 (D) 0 .24.5INPUT “请输入图形行数N=” TO NI=1K=30DO WHILE I=NJ=1DO WHILE J=1J=1DO WHILE J=2*I-1I,J+K SAY “*” / J=J+1ENDDOI=I-1 / K=K-1ENDDO / RETU (A) (B) . (C) (D)26.5X=1DO WHILE X7Y=1 / C=”*”DO WHILE Y=XC=C+STR(Y,1) / Y=Y+1ENDDOIF X=5 / ? C / ENDIFX=X+1ENDDO? X / RETU(1) 执行以上程序后，“？X”命令显示变量X的结果为(A) $6 (B) 7 . (C) 6 (D) $7(2) 执行以上程序后，“？C”命令显示变量C的结果为(A) *54321 (B)5432 (C)*12345 . (D) 12345(3) 在上面的程序中，控制内循环和外循环的变量分别为(A) X,Y (B) Y,X . (C) X,C (D) Y,C27.5CLEARFOR M=1 TO 4A=”*”FOR N=1 TO MA=A+STR(M,1)ENDFORM,5 SAY AENDFORRETU（1）屏幕显示的起始坐标为(A) 1,1 (B) 4,4 (C) 1,5 . (D) 5,1（2）程序运行完毕后M,N的值为(A) 5,5 . (B) 4,4 (C) 1,1 (D) 4,15（3）程序运行完毕后屏幕显示的结果为(A) *1 (B) *1 . (C) *4444 (D) *12233444*22 *22 *333*333 *333 *22*4444 *4444 *1三、分支20.3功能FILE()名表达式CLEABM=SPACE(10)5,10 say“请输人表名：” GET BMREADBMALLTRIM(BM)IF FILE(“BM.DBF”)USE BMBROWSE NOMODIELSEWAIT “文件不存在!”;WI NDOW NOWAITENDIFUSERETU(1) 程序的功能是(A) 浏览任意一个打开的表文件 . (B) 修改任意一个打开的表文件(C) 浏览指定表文件BM(D) 修改指定表文件BM(2)函数FILE(“&BM.DBF”)的功能是(A) 测试指定的文件的类型正确否(B) 指定文件类型为.DBF(C) 测试指定的文件存在否 .(D) 指定文件力&BM.DBF(3) 将语句USE BM改写为USE (BM)(A) 程序不能执行 (B) 程序功能不变 .(C)该命令将关闭表文件 (D) 以上三种说法都不对21.5多路分支条件的逻辑INPUT 输入年龄 TO NLDO CASECASE NL7 / ? 童年 &语句组1CASE NL=18 /? 少年 &语句组2CASE NL=60 / ? 老年CASE NL=35 / ? 中年 &语句组3OTHER / ? 青年 &语句组4ENDCASE由于设计不当，本程序运行结果不对(1) 运行时输入11，输出是(A) 童年 (B) 少年 .(C) 青年 (D) 老年(2) 运行时输入36，输出是(A) 少年 .(B) 青年 (C) 中年 (D) 老年(3) 如果修改本程序，你认为在指出的四个语句组中应该去掉哪个语句组(CASE及其输出语句) ?(A) 语句组1 (B) 语句组2 .(C) 语句组3 (D) 语句组429.2DO CASE CASE 计算机=60 ? ”计算机成绩是: ”+”及格” CASE 计算机=70 ? ”计算机成绩是: ”+”中” CASE 计算机=80 ? ”计算机成绩是: ”+”良” CASE 计算机=90 ? ”计算机成绩是: ”+”优”ENDCASE(1)以上程序段是（ ）结构(A) (A) 顺序 (B) (B) 分支 (C) (C)循环 (D)过程 (2)设学生数据表当前记录的”计算机”字段的值是89,屏幕输出为（ ）(A)计算机成绩是: 不及格 (B)计算机成绩是: 及格(C)计算机成绩是: 良 (D)计算机成绩是: 优(3)该程序段（ ） (A)结果可能会错 (B)语法有错 (C)结果不会错 (D)结果一定会错四、过程18.2子程序PRIV W1特例&MAIN &P1.PRGX1=1 / X2=2 PARA W1,W2DO P1 WITH X1,X2 PRIVATE W1 ? X1=+STR(X1,1) W1=W1*3 ? X2=+STR(X2,1) W2=W2*4 X1=1 / X2=2 RETUDO P1 WITH X1,X1+X2? X1=+STR(X1,1)? X2=+STR(X2,1)RETU(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,319.4过程按值传递i+j(k)按地址传递 iclear store 1 to i store 2 to j, kdo al ? “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 al proc a2 proc a3i=3*i+2 j=i*2+k para x, y, zprivate I private j x=y+zi=2*j+k j=k*2+i y=x+z? “ i=”+str(i, 2) ? “i=”+str(i, 2) z=x+y+” j=”+str(j, 2) +” j=”+str(j, 2) k=x+y+z+” k=”+str(k, 2) +” k=”+str(k, 2) returetu do a3 with i, i+j, (k) retu1)主程序中“do a1”后的显示语句显示结果为(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中的显示语句将显示(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中的显示语句将显示(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(4)主程序中“do a2”后的显示语句显示结果为(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=7620.2子程序局部变量PRIV K1参数传递*MAIN.PRG *SUB.PRG *SUB1.PRGK1=10 PRIV K1 PARA X1,X2K2=2 K1=K2+10 X1=STR(Xl,2)+STR(X2,2)DO SUB K2=K1+10 X2=X1+STR(X2,2)？Kl,K2 &(1) RETU ？X1，X2 &(1)DO SUB1 WITH RETU K2+10,K1 ？K1,K2 &(3) 程序运行到（1）处显示的结果是(A) 10 20 (B) 20 30(C) 10 30 (D) 10 40 .(2) 程序运行到（2）处显示的结果是(A) 5010 501010 .(B) 60 70(C) 70 60(D) 3010 301010(3) 程序运行到（3）处显示的结果是(A) 3010 40(B) 5010 40(C) 501010 40 .(D) 301010 2021.1过程文件全局变量PUBLIC局部变量PRIV本地变量LOCAL（初值）*MAIN.PRG *过程文件KK.PRGPUBLIC X,Y PROC A1SET PROC TO KK PRIVATE XX=20 X=30Y=50 LOCAL YDO A1 DO A2? X,Y ? X,YSET PROC TO RETURETU PROC A2X=”KKK”Y=”MMM”RETU 第一次显示X,Y的值是(A) KKK 30(B) KKK .F. .(C) KKK 50(D) 30 .F. 第二次显示X,Y的值是(A) 20 50(B) 20 MMM .(C) 30 50(D) 30 MMM22.2子程序参数传递*MAIN.PRG *SUB1.PRGX=”计算机等级考试” PARA Y1,Y2X1=SUBS(X,11,4) Y1=Y1-Y1X2=LEN(X)-4 Y2=Y2+Y2DO SUB1 WITH X1,X2+10 ? Y1,Y2 &(1)? X1,X2 &(2) RETU(1) 程序运行到(1)处显示的值为(A) 8 10 (B) 4 10(C) 0 40 (D) 考试考试 40 .(2) 程序运行到(2)处显示的值为(A) 考试 14 (B) 考试考试 10 .(C) 0 40 (D) 考试考试 4022.5过程菜单选择*主程序 / SET TALK OFF / SET PROC TO GCWJDO WHILE .T. / CLEARTEXT * 1. 加法 2. 减法 3. 乘法 4. 除法 0. 退出 *ENDTEXT6,10 SAY “请选择0-4:” GET P DEFAULT SPACE(1)READDO CASE CASE P=”1” / DO JIAFA CASE P=”2” / DO JIANFA CASE P=”3” / DO CHENGFA CASE P=”4” / DO CHUFA CASE P=”0” / SET PROC TO / EXIT OTHER / LOOPENDCENDDO / SET TALK ONWAIT “再见!” WINDOWS AT 20,10 / RETU(1) 该主程序的功能是(A) 根据用户的选择，调用相应的过程文件(B) 根据用户的选择，调用相应的过程 .(C) 根据用户的选择，执行相应的过程文件(D) 根据用户的选择，执行相应的过程(2) 语句SET PROC TO GCWJ的功能是(A) 设置文件格式(B) 设置过程文件(C) 打开指定过程(D) 打开过程文件 .23.2子程序PRIV*主程序 MAIN1.prg *子程序P1.prg *子程序P2.prgSET TALK OFF PRIV B ? A,B &输出3A=1 / B=2 A=.T. / B=.F. PRIV ADO P1 DO P2 A=”FOX”? A,B &输出1 ? A,B &输出2 B=”PRO”RETURN RETURN RETURN子程序P2输出”? A,B”为(A).T. .F. .(B) FOX .F. (C) FOX PRO (D).T. 2 子程序P1输出”? A,B”为(A).T. .F. (B).T. PRO .(C)FOX .F. (D) FOX PRO主程序MAIN1的输出”? A,B”为(A) 1 2 (B).T. PRO(C) 1 PRO (D).T. 2 .24.2数组元素按值传递*主程序MAIN *子程序SUB1CLEAR PARA X,Y,ZDIME X(3) X=X+1 / Y=Y*Z / Z=Y-XX=1 / Y=2 / Z=3 ? X,Y,ZDO SUB1 WITH X(1),Y,Z RETU? x(1),Y,Z / RETU(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,425.2过程PUBL 参数传递*主程序MAIN.PRG *过程文件SUB.PRGCLEAR ALL PROC S1SET PROC TO SUB PARA A,B,CPUBL K1,K2 A=A+B / C=C+A-BK1=3 RETUK2=2*K1-1 PROC S2K3=K2-K1 PARA X,Y,ZDO S1 WITH K1,K2,K3 X=Y+X / Y=X-Y / Z=X+Y? K1,K2,K3 ? X,Y,ZDO S2 WITH K1,K2,K3 DO S3 WITH Y,X,Z / RETU? K1,K2,K3 PROC S3CLOSE PROC PARA X1,Y1,Z1RETU X1=X1+2Y1=3*Y1-3Z1=Y1+X1-Z1 / RETU (1) 第一次显示 ? K1,K2,K3的值是(A) 8,13,-3 (B) 8,5,5 .(C) 8,4,4 (D) 8,5,8(2) 显示 ? X,Y,Z的值是(A) 11,4,16 (B) 5,13,18(C) 13,8,21 . (D) 11,4,16(3) 第二次显示 ? K1,K2,K3的值是(A) 35,10,25 (B) 36,25,10 (C) 35,10,30 (D) 36,10,25 .26.2过程参数传递*主程序 main.prg *过程文件abc.prgCLEAR PROC S1 PROC S3SET PROC TO ABC A1=A1+1 PARA X,Y,ZPUBLIC A1,A2 RETU X=X+1A1=1 / A2=A1+1 PROC S2 Z=Z-ZA3=right(“Internet”,3) PARA A,B,C ? X,Y,Z &DO S1 A=A+1 / B=B+1 Y=Y+1/ RETU? A1,A2,A3 & C=C+left(“Explorer”,3)DO S2 WITH A1,A2,A3 ? A,B,C &RETU DO S3 WITH A,B,CRETU(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 netExp(C) 4 3 Expnet(D) 4 3 netExpnetExp .27.2子程序参数传递*MAIN.PRG *SUB2.PRGDO SUB1 WITH ATER PARA T,K*SUB1.PRG ? T,K &(2)PARA A P=TUSE W&A.S &(1) DO WHILE KTDO SUB2 WITH recn()-1,len(A)+1 P=P+K / K=K-1RETU ENDDO? P &(3)(1)程序运行到（1）处时，打开的表文件是 (A) W&A.S (B) WAS (C) WATERS. (D) WATER(2)程序运行到（2）处时，显示的结果为(A) 0 5. (B) 1 4(