vfp等级考辅导.docVIP

阅读程序 1．阅读下列程序，写出程序运行结果： 【程序1清单】 CLEAR C=***** FOR I=1 TO 5 ?LEFT(C,I) ENDFOR 2．阅读下列程序，写出程序运行结果： 【程序2清单】 CLEAR FOR I=1 TO 9 ?STR(I,2)+ ： FOR J=1 TO I ??STR(J*I,4) ENDFOR ENDFOR 3．阅读下列程序，写出程序运行结果： 【程序3清单】CLEAR C=123456789 FOR I=1 TO 9 ?SPACE(I)+SUBS(C,I,1) ENDFOR 4．阅读下列程序，写出程序运行结果： 【程序4清单】SET TALK OFF CLEAR M=X X=123 ?M 5．阅读下列程序，写出程序运行结果： 【程序5清单】 CLEAR C=南京大学信息管理系 ? FOR I=1 TO LEN(C)/2 IF I%20 ??SUBS(C,2*I-1,2) ENDIF ENDFOR 6．阅读下列程序，写出程序运行后BROW命令显示的表文件名及当前工作区。 【程序6清单】USE XS SELE 3 USE JS USE KC IN 0 BROW 7．阅读下列程序，写出程序运行结果： 【程序7清单】 CLEAR C=10 20 30 DO WHILE LEN( C )0 C=ALLT(C) N= AT(SPACE(1),C) IF N 0 ?LEFT(C,N-1) C=SUBS(C,N+1) ELSE ?C EXIT ENDIF ENDDO 8．教师(JS.DBF)表中含有100个记录。阅读下列程序，写出程序运行后显示的表记录个数。 【程序8清单】CLEAR USE JS SCAN ?RECNO(),GH,XM SKIP ENDSCAN USE 9．阅读下列程序，写出程序运行后显示结果为： 【程序9清单】 CLEAR DIME X(6),Y(6) FOR I=1 TO 6 X(I)=I*I ENDFOR FOR J=1 TO 6 Y(J)=X(7-J) ??Y(J) ENDFOR 10．阅读下列程序，写出程序运行后 BROW 命令显示内容对应的表文件名。 【程序10清单】 C=”XSJSKC” F=LEN(C) N=F/2 X=SUBS(C,N,2) USE X BROW 11．阅读下列程序，写出程序运行结果： 【程序11清单】 CLEAR J=0 ? FOR I=1 TO 18 J=J+1 IF J6 ? J=1 ENDIF ??I ENDFOR 12．设学生表（xs.dbf）含有记录数据如下表所示： 学生表（xs.dbf）含有内容 XH XM XB CSRQ 010201 王 玲 女 06/02/82 010203 李 刚 男 06/09/82 010202 张 山 男 02/08/81 010301 刘 芳 女 09/08/83 010402 王勇敢 男 02/28/82 010302 李园园 女 12/12/81 010401 张 勇 男 10/09/82 运行下列程序后，显示结果为： 【程序12清单】USE xs STORE 0 TO nSum DO WHILE .NOT.EOF() IF SUBSTR(xh,3,2)=”02”AND XB=” 男” nSum = nSum +1 ENDIF SKIP ENDDO ? nSum USE 13．阅读下列程序，写出程序运行结果： 【程序13清单】CLEAR C=微机数据库Visual FoxPro 教程 ? DO WHILE LEN(C) 0 IF ASC(LEFT(C,1))127 ??LEFT(C,2) C=SUBS(C,3) ELSE C=SUBS(C,2) ENDIF ENDDO 14．阅读下列程序，写出程序运行后，当前工作区和打开的表文件名有： 【程序14清单】 USE CJ SELE 2 USE JS SELE 0 USE KC SELE 1 USE XS USE RK IN 0 15．阅读下列程序，写出程序运行结果： 【程序15清单】CLEAR C=南京大学信息管理系 FOR I=1 TO LEN( C )/2 ?SPACE(2*I)+SUBS