- 1、本文档共7页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vfp等级考辅导
阅读程序
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
文档评论(0)