[2004年辽宁专升本考试真题VFP部分.docVIP

2004年辽宁省高职高专毕业生升入本科学校招生考试 FoxPro语言 在以下各题中，如果要用到数据库WJPJ.DBF和KCDA.DBF，均依据以下数据库的结构与内容为准。所有使用WJPJ.DBF和KCDA.dbf的程序均使用下面的原始数据，即不考虑各程序运行的影响。 WJPJ.DBF（微机配件）： 编号 （C，3） 配件名 （C，6） 保修期 （D，8） 等级 （C，4） 价格 （N，8，2） 001 处理器 12 / 01 / 04 优等 1000.00 002 内存 11 / 05 / 01 良等 500.00 003 硬盘 10 / 11 / 02 优等 800.00 004 主板 01 / 02 / 03 中等 400.00 005 显卡 08 / 10 / 02 优等 900.00 KCDA.DBF（库存档案）： 编号 （C，3） 配件名 （C，6） 价格 （N，8，2） 库存数量 （N，2） 库存总值 （N，10，2） 001 处理器 1000.00 5 0.00 002 内存 500.00 10 0.00 003 硬盘 800.00 6 0.00 004 主板 400.00 5 0.00 005 显卡 900.00 4 0.00 四、填空题（每题2分，共10分） 41、清除FoxPro主窗口屏幕的命令是____________。 42、表达式{04/16/2004}-{03/25/2004}的值是______________。 43、FoxPro中的过程必须由______________命令开头，以RETURN命令结尾。 44、下列命令SEEK、FIND、LOCATE中，执行时不要求对数据库进行索引的命令是___________。 45、FoxPor索引文件的类型共有__________种。 五、阅读程序，写结果（每题3分，共24分） 46、SET TALK OFF CLEAR INPUT “A=” TO A INPUT “B=” TO B IF AINT(A).OR.A=10 IF B=INT(B).AND.B10 ?A , ”+” , B , ”=” , A+B ELSE ?A , ”-” , B , ”=” , A-B ENDIF ELSE IF BINT(B).AND.B10 ?A , “*” , B , “=” , A*B ELSE ?A , “+” , B , “=” , A+B ENDIF ENDIF SET TALK ON RETURN 当输入为：8回车2.5回车后，运行结果：__________________________ 47、SET TALK OFF STORE 0 TO X,Y DO WHILE .T. X=X+1 Y=Y+X IF X=5 EXIT ENDIF ENDDO ?X,Y SET TALK ON RETURN 运行结果：___________________________________________ 48、*主程序AAA.PRG SET TALK OFF CLEAR X=10 Y=20 DO BBB ?X,Y *子程序BBB.PRG PRIVATE Y X=80 Y=90 RETURN 运行结果：________________________________________ 49、SET TALK OFF USE KCDA LIST OFF 配件名,价格 FOR 价格500.AND.库存数量5 USE SET TALK ON RETURN 运行结果：_________________________________________ 50、SET TALK OFF USE WJPJ SET HEADING OFF LIST OFF 配件名,保修期 FOR 保修期CTOD(“01/01/04”) USE SET TALK ON RETURN 运行结果：________________________________________ 51、SET TALK OFF USE KCDA SUM 库存数量 FOR 价格900 TO A1 ?A1 USE SET TALK ON RETURN 运行结果：___________________________________________ 52、SET TALK OFF USE WJPJ N=0 DO WHILE .NOT.EOF() IF 等级=’优等’.AND.价格950 N=N+1 ENDIF SKIP ENDDO ?’N=’ , N USE SET TALK ON RETURN 运行结果：________________