VFP表达式.docVIP

表达式 1．写出表达式的VFP表达形式：A-B/（A+B） 2．写出表达式的VFP表达形式： （A-B）/（A+B） 3．写出表达式的VFP表达形式：2*A^3+3*A**2-B 4．写出表达式 -10≤X≤10 的VFP表达形式： 5．写出表达式 X-20或X≥+20 的VFP表达形式： 6. X+Y小于10而且x-y大于0的VFP表达形式是： 。 7．写出表达式B2-4AC 的平方根： 。 阅读程序 1．阅读下列程序，写出程序运行结果： 【程序清单】 CLEAR FOR I=1 TO 9 ?STR(I,2)+”：” FOR J=1 TO I ??STR(J*I,4) ENDFOR ENDFOR 2．阅读下列程序，写出程序运行结果： 【程序清单】 CLEAR C=”123456789” FOR I=1 TO 9 ?SPACE(I)+SUBS(C,I,1) ENDFOR 3．阅读下列程序，写出程序运行结果： 【程序清单】 SET TALK OFF CLEAR M=”X” X=123 ?M 4．阅读下列程序，写出程序运行结果： 【程序清单】 CLEAR C=”南京大学信息管理系” FOR I=1 TO LEN(C)/2 IF I%20 ?SUBS(C,2*I-1,2) ENDIF ENDFOR 5．阅读下列程序，写出程序运行后 BROW 命令显示的表文件名及当前工作区。 【程序清单】 USE XS SELE 3 USE JS USE KC IN 0 BROW 6．阅读下列程序，写出程序运行结果： 【程序清单】 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 7．设教师(JS)表中含有100个记录，阅读下列程序，写出程序运行后显示的表记录个数。 【程序清单】 CLEAR USE JS SCAN ?RECNO(),GH,XM SKIP ENDSCAN USE 8．阅读下列程序，写出程序运行后显示结果为： 【程序清单】 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 9．阅读下列程序，写出程序运行后 BROW 命令显示内容对应的表文件名。 【程序清单】 C=”XSJSKC” F=LEN(C) N=F/2 X=SUBS(C,N,2) USE X BROW 10．阅读下列程序，写出程序运行结果： 【程序清单】 CLEAR J=0 ? FOR I=1 TO 18 J=J+1 IF J6 ? J=1 ENDIF ??I ENDFOR 11．阅读下列程序，写出程序运行结果： 【程序清单】 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 12．阅读下列程序，写出程序运行结果： 【程序清单】 CLEAR C=”南京大学信息管理系” FOR I=1 TO LEN( C )/2 ?SPACE(2*I)+SUBS(C,2*I-1,2) ENDFOR 13．阅读下列程序，写出程序运行后最后一次显示A 的值是： 【程序清单】 PUBLIC A A=123 ?A DO PR1 WITH A ?A ******************* PROC PR1 PARA B B=B*2 RETU B CLEAR C=Visual FoxPro FOR I=1 TO LEN( C ) IF ASC(SUBS(C,I,1))64 AND ASC(SUBS(C,I,1))91 ?? SUBS(C,I,1) ENDIF ENDFOR 14．阅读下列程序，写出程序运行结果： 【程序清单】 C=三江大学计算机基础部 I=1 ? DO WHILE