vfp期末程序设计复习题

一、选择 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 1. 读下列程序： k=1 DO WHILE k<=21 k=k+2 ?STR(k,2) IF k=9 EXIT ENDIF ENDD （1）程序循环了多少次______。 A) 4 B) 3 C) 6 D) 5 （2）程序执行的结果是______。 A) 1 3 5 7 B) 2 4 6 8 C) 3 5 7 9 D) 1 2 3 4 2. 读下列程序： CLEAR STORE 1 TO I, J DO WHILE J<5 @ I , J SAY "*" J=J+1 ENDDO CANCEL （1）屏幕显示的起始坐标为______。 A) 1, 5 B) i, j C) 0, 0 D)1, 1 （2）程序执行后，i,j的值分别为______。 A) 1, 5 B) i , j C) 0, 0 D) 1, 1 3. 读下列程序： I=0 DO WHILE I<10 IF INT(I/2)=I/2 I=I+3 ENDIF I=I+2 ENDDO ?I RETU （1）上述程序执行后，共循环了______次。 A) 10 B) 5 C) 4 D) 死循环 （2）上述程序执行后，屏幕显示为______。 A) 10 B) 11 C) 9 D) 13 4. 读下列程序： USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '请输入姓名' TO XM INDEX ON 职称 TO ZX FOR 姓名=ALLT（XM） L=3 M=10 DO WHILE .NOT.EOF() @ L,M GET 姓名 @ L,M+20 GET 基本工资 L=L+2 SKIP ENDDO WAIT ‘下一个（Y/N）？’ TO Y ENDDO USE RETU （1）这个程序的功能是______。 A) 输入 B) 查询 （C）修改 （D）统计 （2）程序中变量Y的作用是______。 A) 控制整个程序循环 B) 把指针指向下一条记录 C) 等待 D) 没有作用 5. 读下列程序： USE XSDA N=1 XH="200201" DO WHILE N<=120 APPEND BLANK REPL 学号 WITH STR(VAL(XH)+N,6) N=N+1 ENDDO USE CANCEL （1）上述程序数据库中，“学号”这个字段是______。 A) 字符型 B) 数值型 C) 日期型 D) 逻辑型 （2）该程序的功能是______。 A) 修改 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 文件的字段 B) 修改表文件原有记录中学号字段的值 C) 增加表文件的字段 D) 追加新记录并填充学号字段的值 （3）程序运行到最后，变量N的值是______。 A) 1 B) 120 C) 121 D) 0 6. 读下列程序： *MAIPROGRAM CLEA CLEAR ALL X1="工资-100" Y1=200 Z1=100 DO SUB1 ? 'A处:',X1,Y1,Z1 X1=1 Y1=2 Z1=3 DO SUB2 WITH X1,Z1+10,10 ? 'C处:',X1,Y1,Z1 CANCEL PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B处:',X1,Y1,Z1 Z1=1 RETURN PROCEDURE SUB2 PARA X1,Z1,Y1 X1=X1+10 Y1=Y1+10 X1=X1+10 RETURN （1）程序显示A处的X1，Y1，Z1值分别为______。 A) 300 200 100 B) 300 2 100 C) 300 200 10 D) 300 2 10 （2）程序显示B处的的X1，Y1，Z1值分别为______。 A) 300 200 10 B) 300 200 100 C) 300 2 100 D) 300 2 10 （3）程序显示C处的的X1，Y1，Z1值分别为______。 A) 21 20 30 B) 21 20 3 C) 21 2 30 D) 21 2 3 7. 有学生信息表XS.DBF文件，其结构和记录如下： 记录号 学号 姓名 年龄 性别 入学日期 出生地 1 Y001 李明 21 男 09/01/99 重庆 2 Y002 林雨 20 女 09/01/99 成都 现有一程序段： DIMENSION X(3) USE XS SCATTER TO X X(1)="A003" X(2)="曾真" X(3)=19 APPEND BLANK GATHER FROM X LIST RETURN （1）运行结果X数组的数据元素的个数是______。 A) 0个 B) 3个 C) 6个 D) 1个 （2）LIST显示记录中，最后一条记录的姓名字段值是______。 A) 字段值为空 B) 林雨 C) 李明 D) 曾真 8. 现有表文件STUD.DBF，表中有：学号（C/6），姓名（C/8），性别（C/2），出生日期（D/8）等字段，并有记录若干条，根据已有的表文件运行下面程序： SET TALK OFF CLEAR USE STUD INDEX ON TRIM(姓名) TO ISTUD S=.T. DO WHILE S XM=SPACE(8) ACCEPT ‘请输入姓名:’ TO XM IF LEN(TRIM(XM))=0 EXIT ENDIF SEEK XM IF .NOT.EOF() @3,10 SAY “学号” @3,20 SAY 学号 @5,5 SAY “姓名”+姓名 @7,5 SAY “性别”+性别 @9,5 SAY “出生日期:” @ 9,20 SAY 出生日期 ELSE @20,3 SAY “没有找到该姓名的学生” S=.F. ENDIF WAIT ENDDO CANCEL （1）程序中的索引关键字和索引文件名分别为______。 A) 学号, STUD.DBF B) 姓名,ISTUD.DBF C）学号, ISTUD.IDX D) 姓名,ISTUD.IDX （2）程序中用SEEK进行______查找。 A) 顺序 B) 条件 C) 索引 D) 范围 （3）执行EXIT命令的条件是_______。 A）输入姓名后直接按键 B) 未输入姓名就按键 C) 输入姓名，又按空格键，再按键 D) 输入姓名为0后按键 9. 读下列程序： CLEAR FOR K=1 TO 4 A="$" FOR J=1 TO k A=A+STR(K,1) ENDFOR @K,5 SAY A ENDFOR WAIT RETURN （1）程序运行的结果是______。 A) $1 B) $1 $22 $22 $122333 $333 $4444 C) $122333 D) $ （2）程序运行到WAIT处，变量K与J的值分别是______。 A) 1, 1 B) 4, 4 C) 4, 1 D) 5, 5 10. 读下列程序： A=“Abcde” N=LEN(A) I=1 DO WHILE I<=N B=SUBSTR(A,I,1) IF ISLOW(B) B=CHR(ASC(B)-32) A=STUFF(A,I,1,B) ENDIF I=I+2 ENDDO ?A RETURN （1）程序运行的结果是______。 A) abcde B) ABCDE C) abCdE D)AbCdE （2）程序循环的次数是______。 A) 5 B) 4 C) 3 D) 6 11. 读下列程序： USE 学生 I=1 FILEN=”” DO WHILE I<=9 FILEN=”S”+STR(I,1)+”.DBF” COPY TO &FILEN I=I+1 ENDDO USE （1）程序运行的结果是______。 A) 无结果 B) 拷贝了1个文件 C) 拷贝了9个文件 D) 拷贝了10个文件 （2）拷贝所产生的新文件名是______。 A) S.DBF B) FILEN C) &FILEN D) S1.DBF~S9.DBF 12、已知proc.prg程序清单如下：（12）A n=10 t=15 S=1 M=0 DO proc_1 WITH n M=M+S DO proc_1 WITH T M=M+S ?M CANC proc_1.prg程序清单如下： PARAMETERS a S=1 FOR K=1 TO A S=S*K ENDFOR RETURN 程序proc.prg的功能是 (1)A）输出N 和T的乘积 B）输出N 和T的阶乘 C）输出N 和T的阶乘之和D）输出N 和T的值 (2) 在程序中变量S是() A)全局变量 B) 私有变量 C) 本地变量 D) 局部变量 13、有如下程序段： USE CLASS LOCATE FOR 政治面目="团员" DO WHILE FOUND() 　DISPLAY 　CONTINUE ENDDO 该程序的功能是：() (1) A) 显示团员的一条记录 B) 显示非团员的一条记录 C) 显示团员的所有记录 D) 显示非团员的所有记录 (2) 该程序退出循环的条件是() A) FOUND()函数返回值为真 B) FOUND()函数返回值为假 C)与 FOUND()函数的值无关 D) EOF()函数返回值为真 14、有如下程序段： DO CASE CASE X>100 ?? "1" CASE X>200 ?? "2" OTHERWISE ?? "3" ENDCASE (1)若在X=300的情况下执行这个程序段，屏幕上将显示 A）1 B）2 C）12 D）3 (2) 输入下列什么数据时，屏幕上将显示字符 3 A）100 B）200 C）300 D）400 15、有如下教师授课表： 教师号 主讲课程 t1101 数据结构 t1102 C语言 t1103 网页制作 t1104 计算机网络 t1105 计算机网络 t1105 C语言 t1105 数据库 下列程序段的输出结果是 CLOSE DATA a=0 USE教师 GO TOP DO WHILE .NOT. EOF() IF主讲课程＝"数据结构".OR.主讲课程＝"C语言" a=a+1 ELSE DISP ENDIF SKIP ENDDO ?a A) 3 B) 4 C) 5 D) 6 (2) 命令DISP一共显示的记录条数是： A) 3 B) 4 C) 5 D) 6 16 如下程序显示的结果是 ( ) 。 s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s (1) S的值为() A) 10 B) 11 C) 12 D)13 (2) 程序循环次数为：() A) 3 B) 4 C) 5 D)6 17读程序 1、 CLEAR M=0 FOR X=1 TO 10 IF MOD(X,3)=0 M=M+X ENDIF ENDFOR ? M RETURN （1）该程序的功能是：求1到10之间（） A. 能被3整除数的个数 B. 能被3整除数的和 C. 不能被3整除数的个数 D. 不能被3整除数的和 （2）该程序执行的结果是：（ ） A. 3 B. 10 C. 18 D. 37 18、&&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 , 3 19、 CLEAR CLOSE ALL USE 学生 COUNT TO X GO TOP FOR I=1 TO X IF 性别=’男’ DISP ENDIF SKIP ENDFOR CLOSE ALL (1)该程序的功能是：() (1) A)显示一条男同学的记录 B) 显示一条女同学的记录 C)显示所有男同学的记录 D) 显示所有女同学的记录 (2) 程序退出循环的条件是() A) 记录指针指向文件尾 B)记录指针指向文件头 C)循环次数大于表中记录条数 D) 循环次数小于表中记录条数 20、CLEAR DIME A（20） P=1 FOR N=1 TO 20 INPUT“请输入数据：“ TO A(N) ENDFOR FOR L=1 TO 19 FOR M=L+1 TO 20 IF A(L)<=A(M) T=A(L) A(L)=A(M) A(M)=T ENDIF ENDFOR ??A(I) （1） ENDFOR （2） 程序完成的功能是将20个数组元素值（ ） A． 排序后按从大到小的顺序输出 B． 排序后按从小到大的顺序输出 C． 倒序输出 D. 按自然顺序输出 （2）将DIME A（20）改成 DIME A（10）后，（ ） A． 出现“数组重复定义”的错误 B． 出现“数组下标越界”的错误 C． 程序功能不变，只是输出10个数组元素值 D． 程序功能不变，仍然输出20个数组元素值 21、 CLEAR CLOSE ALL USE 学生 SCAN IF性别=’男’ DISP ENDIF N=N+1 ENDSCAN ？N CLOSE ALL CANC (1)A)该程序显示一条男同学的记录 B) 该程序显示一条女同学的记录 C) 该程序显示全班同学的记录 D) )该程序显示全班男同学的记录 (2) 命令？N 显示的是() A)男同学的记录个数 B)女同学的记录个数 C)全班同学的记录个数 C) 无法确定 22、阅读下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名=’李强’ LOOP ENDIF ?姓名，实发工资 ENDSCAN USE CLOSE DATABASE （1）compen是：（ ） A．自由表 B．数据库表　　Ｃ．数据库 Ｄ．可能是自由表，也可能是数据库表 （2）若数据库有50条记录，则程序的功能是：（ ） A． 前10条记录中搜索“李强”的记录 B．列出前10条记录 Ｃ．每10条记录一屏显示记录，但不显示“李强”的记录 Ｄ．列出前１０条记录，但是不显示“李强”的记录 23、CLEAR N=10 FOR J=1 TO 3 ?STR(J,2)+’)’ ??SPACE(6*J) FOR K=1 TO 3-J+1 ?? STR(J*K,6) N=N+2 ENDFOR ? ENDFOR RETURN （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. 22 B. 9 C . 10 D . 15 24、阅读下面程序： CLEAR ALL STORE 1 TO J，K DO WHILE K<5 @J,K SAY “*” K=K+1 ENDDO RETU (1) 屏幕的其始坐标为（26） （A）1，5 （B）0，0 （C）1，1 （D）任意 （2）程序执行后J，K的值是（27） （A）1，5 （B）5，5 （C）0，0 （D）1，1 25、设表文件XS.DBF有10条记录，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP -1 WAIT N=N-1 ENDDO USE RETURN （1）程序的功能是（28） （A）显示所有记录 （B）分别显示前3个记录 （C）显示第3个记录 （D）分别显示后三个记录 （2）退出循环后，N的值是（29） （A）0 （B）1 （C）3 （D）4 26、阅读下面程序 USE SB SORT TO RQX ON 启用日期/D FIELDS 编号，名称，启用日期 FOR NOT 主要设备 USE RQX LIST USE SB SORT TO BMX ON 部门/D，价格 FOR 主要设备 USE BMX LIST RETURN （1）程序执行到第一个LIST命令时，输出结果是（） （A）将主要设备按编号，名称，启用日期分别升序排序。 （B）将主要设备按编号，名称，启用日期分别降序排序。 （C）将非主要设备按启用日期降序排序。 （D）将非主要设备按启用日期升序排序。 （2）程序执行到第二个LIST命令时，输出结果是（31） （A）将主要设备按部门升序排序，当部门相同时，按价格降序排序。 （B）将主要设备按部门降序排序，当部门相同时，按价格升序排序。 （C）将主要设备按部门降序排序，当部门相同时，按价格升序排序。 （D）将主要设备按部门升序排序，当部门相同时，按价格降序排序。 27阅读下面程序： CLEA clear store 1 to i store 2 to j,k do a1 ?"i="+str(i,2)+" j="+str(j,2)+" k="+str(k,2) proc a1 i=3*i+2 private i i=2*j+k ?"i="+str(i,2)+" j="+str(j,2)+" k="+str(k,2) retu RETURN (1) 主程序中“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 28、共有3个数据库文件TB1.DBF, TB2.DBF, TB3.DBF,下面程序功能是把每个库文件的末尾记录删掉。阅读下面的程序，将程序填写完整。 N=1 DO WHILE N<=3 TB=“TB“+STR(N，1) USE &TB GO BOTTOM DELETE PACK N=N+1 ENDDO (1) 该程序的功能是( )： （A）将数据表的末记录作物理删除 （B）将数据表的末记录作逻辑删除 （C）将数据表的首记录作物理删除 （D）将数据表的首记录作逻辑删除 (2)该程序一共删除了()表中的记录 （A）1个 （B） 2个 （C）3个 （D）4个 29阅读下面程序： 有图书数据表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.00 7 数94.3 001 74 0.00 8 化95.4 003 47 0.00 9 数94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 书号 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 书号 INTO SHU REPL ALL　款项 WITH数量＊shu .单价 LIST DO WHIL .T. ACCE “输入0退出” TO BJ IF BJ =’0’ EXIT ENDI ACCE“输入书号” TO SH LOCAT FOR 书号=SH DISP ENDI ？“书号”+书号+str(款项)+”元。” ENDD clea all RETURN （1）do while循环中locate操作的表是：（） （A）数据表TS （B）数据表DSD （C） 系统临时表aaa （D）系统临时表cursor aaa （2）运行时输入书号“003”，则输出为：__(_ （A）分别显示书号为“003”的所有款项 （B）显示书号为“003”的所有款项之和 （C显示书号为“003”的第一条记录的款项 （D）输入错误，没有输出 30、阅读下面程序： CLEAR T=65 R=20 INPUT “请输入图形的行数N=” TO N I=1 DO 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+1 ELSE T=T-1 ENDIF ENDDO I=I+1 R=R-1 T=65 ENDDO RETURN (1)运行程序后输出图形（）。 （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（）的功能是（）。 （A）从字符T中取出子串 （B）返回字符T的ACSⅡ码值 （C）返回字符T的ACSⅡ码字符 （D）返回<数值表达式>表示的ACSⅡ码字符 31. 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 32．有以下三段程序 *Main.PRG CLEA K1=10 K2=20 DO SuB ?K1,K2 &&(1) DO Sub1 With K2+10,K1 ?K1,K2 &&(3) RETU PROC SUB PRIV K1 K1=K2+1 K2=K1+1 RETU PROC Sub1 PARA Xl,x2 X1=10 X2=20 X1=STR(X1,2)+STR(X2,2) X2=X1+STR(X2,2) ?X1,X2 &&(2) RETU (1)程序运行到(1)处显示的结果是( ) (A)10 20 b)20 30 (C) lO 30 (D) l0 22 (2)程序运行到(2)处显示的结果是( ) (A)1020 102010 (B) 1020 102020 (C) 1010 101010 (D) 1020 101010 (3)程序运行到(3)处显示的结果是( 30 ) (A101010 22 (B) 102020 30 (C) 102020 40 (D) 102020 22 33．阅读程序： CLEA BM=SPACE(10) @5，10 SAY“请输入表名：”GET BM READ BM=ALLTRIM(BM) IF FILE(“&BM..DBF”) USE &BM BROWSE ELSE WAIT“文件不存在!” WINDOW NOWAIT ENDIF USE RETURN (1)程序的功能是( ) (A)浏览任意一个打开的表文件 (B)修改任意一个打开的表文件 (c)浏览指定表文件BM (D)修改指定表文件BM (2)函数FILE(“&BM..DBF”)的功能是() (A)测试指定的文件的类型正确否 (B)指定文件类型为.DBF (C)测试指定的文件存在否 (D)指定文件为&BM．．DBF 34．有图书目录数脚sml，dbf和入库流水单表skc．dbf如下 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 程序： CLEAR @1，15 SAY ‘新书入库’ Y=’Y’ DO WHILE upper(Y)=”Y” 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 “是否继续(Y／N)” 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 35．阅读下列程序 clear dimension k(2,3) i=l ? do while i<=2 j=l do while j<=3 k(i,j)=i*j ??k(i，i) ??” ” j=j+1 enddo ? i=i+1 enddo (1)运行程序后，屏幕的显示结果是( 37 ) (A)1 2 3 (B)1 2 2 4 6 3 2 (C)1 2 3 (D)1 2 3 1 2 3 2 4 9 (2)如果将dimension k(2,3)语句改为：dimension K(2，2)后 ，( 38 ) (A)出现“数组重复定义”的错误 (B)出现“数组下标超界”的错误 (C)程序功能不变，只输出4个数组元素 (D)程序功能不变，仍然输出6个数组元素 36．阅读下列程序 CLEAR M=0 FOR K=0 TO 2 FOR J=3-k TO 3+K @K,J SAY STR(K，2)+STR(J,1) M=M+1 NEXT K NEXT 1 ?M RETURN (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)8 37、读下列程序： &&MAIN.PRG PUBLIC X，Y SET PROC TO KK X=20 Y=50 DO A1 ?X,Y SET PROC TO RETU *过程文件kk.prg Proc a1 Private x X=30 Local y Do a2 ?x,y Return Proc a2 X=”kkk” Y=”mmm” Return 第一次显示的X，Y的值是() A(KKK 30 B) KKK .F. C)KKK 50 D) 30 .F. 第二次显示的X，Y的值是() A20 50 B) 20 MMM C)30 50 D) 30 MMM 38、设一职工表(ZG.DBF)有以下记录： 记录号 编号 姓名 年龄 职称 工资 1 2004001 张三 32 讲师 790 2 2004002 李华 25 助教 590 3 2004003 邓刚 48 副教授 890 4 2004004 王平平 28 讲师 760 5 2004005 吴晓阳 44 副教授 850 6 2004006 苏军 30 讲师 950 7 2004007 刘永辉 50 讲师 700 Use zg Sum all 工资 TO A1 FOR 年龄<=30 AND 工资<=850 Avgrage all 工资 TO B1 FOR 职称=”副教授” AND 工资>850 ? a1,b1 Inde ON 年龄 to dx Set index to dx Go top Repl 职称 with “副教授”,工资 WITH 820 Use Return (1) 变量 A1，B1的值分别是： A)1350 870 B)2300 870 C)1350 820 D)2300 820 （2）第一条REPLACE 命令将()职称改成了副教授 A) 刘永辉 B) 邓刚 C)李华 D)张三 39、读下列程序： DIME A(6) S=0 FOR K=1 TO 6 INPUT”请输入数据：” TO A(K) S=S+A(K) ENDFOR AV=S/6 R=0 FOR K=1 TO 6 IF A(K)>AV ??A(K) R=R+1 ENDIF ENDFOR ?R (1) 若输入的数据分别是：1 2 3 4 5 6，则显示的是() A) 1 2 3 B)2 3 4 C)3 4 5 D)4 5 6 (2)？R的值是多少 () A) 2 B)3 C)4 D)5 40、读下列程序： J=0 CLEAR FOR K=1 TO 4 FOR R=1 TO 5-K ？？“” &&此处括号内有1个空格 ENDFOR FOR M=1 TO 2*K-1 ？？STR(K，1) J=J+1 ENDFOR ? ENDFOR ? J (1) 程序运行的结果是： A) 1 B) 1 C) 2 D) 1 222 121 121 212 33333 1331 1331 31113 4444444 144441 144441 4111114 (2) 程序结束时，J的 值为() A) 7 B)17 C)16 D)6 41、阅读下面程序 INPUT“输入年龄” TO NL DO CASE CASA NL<7 ？“童年” CASE NL<18 ？“少年” CASE NL>18 ？“少年” CASE NL>=60 ？“老年” CASE NL>=35 ？“中年” OTHER ？“青年” ENDCASE 由于设计不当，本程序运行结果不对 (1) 运行时输入 11 ，输出的结果是： A) 童年 B)少年 C)青年 D)老年 (2) 运行时输入 36 ，输出的结果是： A) 中年 B)少年 C)青年 D)老年 42 3、读程序： CLEAR CLOSE ALL SELE 2 USE CJ INDEX ON 学号 TO XH SELE 1 USE XS SET RELATION TO 学号 INTO B SET SKIP TO B replace b.成绩 with b.成绩*1.1 for a.姓名="王小平" (1)在以上程序中() A)表CJ是子表 B) 表XS是子表 C) 表XS是主表也可以是子表 D)无法确定 (2)该程序的功能是 A)修改王小平的成绩为1.1分 B) )修改王小平的成绩为原成绩的1.1倍 C)修改字段名成绩为成绩1.1 D)显示王小平的记录 43、读程序 SUM=0 N=0 DO WHILE N< 100 N=N+1 SUM=SUM+N ENDDO ?’SUM=’,SUM (1) 该程序的功能是() A)计算1+100的值 B) 计算1+2+3+…+100的值 C)计算1+99的值 C) 计算1+2+3+…+99的值 (2) 循环结束后，N的值为() A)100 B)99 C)101 D)102 44、 Clea FOR N=1 TO 4 FOR I=1 TO 2*N-1 IF I<=N @ N,10-N+I SAY STR(I,1) ELSE @ N,COL() SAY STR(2*N-I,1) ENDI ENDF ENDF Canc (1)该程序的显示的是： A) 1 B) 1 C) 1 D)