VFP程序设计复习.docx.pdf

《VFP程序设计复习.docx.pdf》由会员分享，可在线阅读，更多相关《VFP程序设计复习.docx.pdf（13页珍藏版）》请在三一文库上搜索。

1、程序设计第 5讲（复习） VFP 程序设计复习及近年来等级考试题型分析（哈哈老师的心血，要好好看哦） 一、 读程序 （5? 6段程序， 15空，每空 3分，共 45分） 1.循环与分支的恢套（数值运算）（3空） 2.了程序（变蜃屏蔽与参数传递）（3空）难点 3.表操作 1）单循环嵌套分支对表进行操作（3 空） 2）顺序结构对表操作 （2 空） 3）单循环对表操作 （2 空） 4. 双重循环（难点） 1）对图形的操作（金字塔问题、99表）（2 空） 2）数值运算、比大小、排顺序（3空） 二、 程序填空 （15空，每空 2分，共 30分。分值分布情况一般为：普通程序填空部分4-5 空，SQL 语句

2、 5 空，表单 5? 7 空） 三、 写程序（按模块记忆）常见类型如下： 1.两表操作，按输入数据査询相关数据，按格式输出 2.三表操作，按输入数据杳询相关数据，按格式输出，可多次查询 3.多表操作，用一?张表的数据对另一?张表的数据进行修改 4.对多表操作，牛成新表，修改表结构，对部分数据进行统计、汇总。（修改表结构一般采用 SQL 语句，第 6 章学习） 5.其他综合应用。（按数据值域分段输出、按字段中部分值进行查找、排序输出前儿条记录等等。） 实例： 1、循坏与分支的恢套（数值运算）（3 空） CLEAR X=（） DO WHILE .T. X=X+2 IF X=INT （X/3）*3

3、?X ELSE LOOP ENDIF IF X5 EXIT ENDIF ENDDO ?X （1）程序执行中第一个输出的结果是（） （A）3 （B） 0 （C）6 （D）2 （2）程序执行中循环体的执行次数为（） （A） 2 （B）3 （C）4 （D）大于 4 （3）循环结朿后变量X 的值是（） （A） 2 （B）3 （C）4 （D）6 答案： C B D 2、子程序 ( 变最屏蔽与参数传递 ) ( 3空) 难点 *主程序 MAIN CLEAR DIME X(3) X=1 Y=2 Z=3 DO SUB 1 WITH X(1),Y,Z ?X(1),Y,Z RETURN *子程序 SUB1 PARA

4、 X,Y,Z X=X+1 Y=Y*Z Z=Y-X ?X,Y,Z RETURN (1)语句“X=l ”的作用是 () (A) 给内存变量 X 赋值 ( B ) 给数组 X 中的每一个元索赋值 (C)等价于 X=1 (D)给字段变量赋值 (2)子程序运行完毕后，输出结杲为() (A) 1,6,4 (B) 2,6,4 (C) .F.,4,6 (D) .F.,6,4 (3)主程序运行完毕后，输出结果为() (A) 1,6,4 (B) 2,6,4 (C) .F.,4,6 (D) .F.,6,4 答案： B B A 3、表操作 1) 单循环嵌套分支对表进行操作( 3空) 冇成绩表文件 CJ.DBF,其中数

5、据如图所示 : 学号姓名大学语文大学英语法律基础 200701140101 陈波79 45 66 200701140302 邓小双 31 55 49 200701140315 何光文86 78 79 200701140402 何章 85 75 68 200701140421 高岩87 77 53 200701140511 黄之江66 65 68 200701140509 刘军85 78 82 阅读下面程序 : CLEAR USE CJ s=o DO WHILE NOT EOF() SCATTER TO XCJ FIELDS 人学语文，人学英语 , 法律基础，计算机基础 NG=0 FOR 1=1

6、 TO 4 IF XCJ(I)=2 S=S+1 DELETE ENDIF SKIP ENDDO ?S USE RETURN (1)本程序中记录被逻辑删除的条件是() (A)有两门课程成绩低于6()的记录 (B)1? 4 号记录 (C)冇两门及两门以上课程成绩低于60的记录 (D)记录号大于 2的记录 (2)程序最后输出的 S的值是 () (A)2 (B)3 (C)4 (D)7 (3)退出 DO-WHILE 循环后， NG 的值是 () (A) 0 (B) 1 (C) 2 (D) 3 答案： CBA 2) 顺序结构对表操作 ( 2空) 姓名性别课程名成绩 长人英男人学计算机 80 刘刚男 VFP

7、 程序设计 75 吕开慧女高等数学 69 李进女大学计算机 73 邓莫女高等数学 75 马梅女人学计算机84 于敏男 VFP 程序设计 90 阅读下列程序： CLEAR USE成绩 SET FILTER TO 性别=“女” AND 成绩7() DISP姓名，成绩 SUM 成绩 TOSH1 SET FILTER TO SET DELETE ON DELETE FOR 性别 =”女” AND 成绩70 COUNT TO SH2 ?SH1,SH2 USE (1)命令?SH1,SH2显示的内容是 () (A) 232.00, 4 (B) 245.00,1 (C) 245.00,4 (D) 232.00

8、,1 (2)DISP姓名，成绩语句显示的内容是() (A)吕开慧， 69 (B)张大英， 80 (C)李进， 73 (D)马梅， 84 答案： A C 3)单循环对表操作 ( 2 空) 设有自由表 SB.DBF,表中有部门号、部门、名称等字段 部门号部门名称单价数量 001 家电部冰箱 2200 8 002 通讯部NOKIA 1150 22 003 计算机部 HP 800() 4 001 家电部彩电 1800 15 002 通讯部索爱980 12 001 家电部吸尘器240 6 阅读下列程序 : CLEAR USE SB ACCEPT “输 i 入部门号：” TO BM STORE 0 TO

9、S, N SCAN FOR 部门号 =ALLT(BM) ?部门号，部门，名称，单价，数量s二 S+单价*数量 N=N+数量 ENDSCAN ?S,N USE 此程序小， S的意义是 () (A) 所有部门货物的价格总和 (B) 某一部门所冇货品的价格总和 (C) 某一部门某一货品的价格 (D) 所有货晶的平均价格 如果在程序运行中输入部门代码为001,则程序运行后 N 的值为 () (A) 67 (B)3 (C) 29 (D) 38 答案： BC 4、双重循坏 1)对图形的操作 ( 金字塔问题、 99表) ( 2空) 阅读下列程序： CLEAR N=4 FOR 1= N TO 1 STEP-1

10、 ?SPACE(10-I) FOR J=1 TO 2*(1-1) ? ? ENDFOR ENDFOR 对 4、5、6 也可能是变成对表操作 (3 空) ，双重循环对字符或图形操作(3 空) 2)数值运算、比大小、排顺序( 3空) 阅读下列程序 CLEAR DIMEA(5) FOR 1=1 TO 5 INPUT “请输入数据 TO A(I) ENDFOR FOR 1=1 TO 5 ?A ENDFOR 9 FOR 1= 1 TO 4 & 外层循环共进行N-l 次 FOR J=I+I TO 5 & 内循坏找出第 I 个数后面的最小的数，与笫I 个数交换 IFA(I)A(J) T=A(I) A(I)=

11、A(J) A(J)=T ENDIF ENDFOR ENDFOR FOR 1= 1 TO 5 ?A(I) ENDFOR RETURN (1)该程序的功能是 O (A) 找最大值( B)找最小值 (C)从小到大排序 ( D)从大到小排序 ( A) * ( B) ?上 ? 1 “、 “ 、* 1 * (C)* * * *rj* 程序运行完后 I 的值是 () (A) 5 (B)4 (C) I (D)0 答案: B D () (D) RETURN 程序运行完后显示结果是 (2)如果输入的数据分别是：5, 1, 8, 3, 9,程序最后输出的结果是 () (B) 1,3,5,&9 (D) 9,3,8,1

12、,5 程序中变量 T 的作用是 () 存放输入的各个数据存 放最人值或最小值 答案： CBD 四、程序填空 ( 15空，每空 2 分，共 30分。分值分布情况一般为：普通程序填空部分4? 5 空，SQL 语句 5空，表 单 5? 7空) 1、了程序、变屋作用域及参数传递( 4 空) CLEAR * 主程序 .PRG FOR K=1 TO 2 INPUT “ 圆半径R=“ TO R INPUT “ 高 H= , TO H _ (1) _ DO SUB 1 WITH _ (2) _ ?”圆柱体 v=“, V _ (3) _ RETURN 和子程序 .PRG PROCEDURE SUB1 PARAM

13、ETER _ (4) _ V=(34*M2*H) RETURN 答案： () v=0 (2)R,H,V (3) NEXT/ENDFOR (4)R,H,V 2、今有计算机等级考试的查分程序，请填空。( 3 空) ( 本题用数据表： KS.DBF(学号( C)，姓名 ( C)，笔试 (N),上机(N) USE KS ACCEPT “请输入考号：” _ (1) _ _ _ 考号=KH IF (3) _ WAIT “ 查无此人” ELSE DISP ENDIF USE 答案： ( l)TOHK (2) LOCATE FOR (3)NOT FOUND()/EOF() 3*、永真循环结构，对表进行操作。(

14、 5空) 冇数据表职工 .DBF 和工资 .DBF,职工表中冇 C 型字段“职工号”、“姓名”“职务”，工资表中有 N 型字段“实 发工资”，两表具有相同字段“职工号”。以下程序的功能是：反复输入职工的姓名，在数据表中查找，若找到则 (A) 5,1,8,3,9 (C) 9,8,5,3,1 程 (A) (B) (C) (D) 存放排序后的数据 交换两个变虽 : 的值 显示基本信息及实发工资，若没有则显示“查无此人！”。每次查询结束，出现“继续吗(Y/N) ? ”信息，回答 “Y”或“y”则继续，其余 任意键结束程序，请填空： CLEA ALL SELE2 USE工资 INDEX ON _ (1)

15、 _ SELE 1 USE职工 SET RELA TO 职工号 INTO B DO WHILE .T. ACCE “请输入职工姓名TO XM LOCATE FOR 姓名= _ (2) _ IF FOUND() ?职工号，姓名，职务， B.实发工资 _ (3) _ 厂查无此人” ENDIF WAIT “按“Y”继续, 其他任意键退出” TOYN IF UPPER(YN)= ”Y“ (4) ELSE 一(5) _ ENDIF ENDDO CLEAR ALL 答案： (1)职丨 “ (2) XM (3) ELSE LOOP (5)EXIT 五、写程序 ( 50分，上机题 ) 写程序的六大模块 ( 要

16、求记忆哦，发挥背单词的强悍记忆功夫吧，记住顺序哦) 模块 1：多表操作，建立关联 ( 一般用在开头 ) ( 15分) 1) 两表关联 CLEAR SET TALK OFF SELECT 1 USE子表 INDEX ON 相同字段 to XX SELECT 2 USE父表 SET RELATION TO 相同字段INTO A 2) 三表关联 1(级联关系 ) ： 表 3 表 2 父 - - - 表 1 ( 父) ?一9 ( 子) CLEAR SET TALK OFF SELECT 1 USE 表 1 INDEX ON 和同字段 1 to XX SELECT 2 USE 表 2 SET RELAT

17、ION TO 相同字段 1 INTO A & 表 1 和表 2建立关联，表 2为父表 *表 2和表 3 建关联，表 2 为子表，表 3 为父表，表 2己经打开，直接索引即可 INDEX ON 和同字段 2 TOYY & 此处相同字段为表2 与表 3的相同字段 SELECT 3 USE 表 3 SET RELATION TO 相同字段2 INTO B ADDITIVE 3）三表关联（并列关系） 表 3 - 表 1 （ 了表） （父表） 表 2 （子表） SET RELATION TO 相同字段 1 INTO A & 表 1 和表 2 建立关联，表 2为父表 *表 2和表 3 建关联，表 2 为了

18、表，表 3 为父表，表 2 已经打开，直接索引即可 SET RELATION TO 相同字段 2 INTO B ADDITIVE &ADDITIVE参数的作用是保留上次建立 的临时关联关系具他特殊情况特殊处理，详见实验11 模块 2：合并成新表（一燉用在开头）（15分） SELECT 1 USE 表 1 SELCET2 USE 表 2 JOIN WITN 表 1 ON 共同字段 INTO 新表名 HELDS 工作区号 . 字段名 1,工作区号 . 字段 名 2,工 作区号 . 字段名 3 模块 3：数据处理 CLEAR SET TALK OFF SELECT 1 USE 表 1 INDEX O

19、N 和同字段 1 to XX SELECT 2 USE 表 2 INDEX ON 相同字段 2 TOYY SELECT 3 USE 表 3 & 表 1为子表 & 表 2为了表 & 此处相同字段为表2 与表 3的相同字段 & 表 3 为父表 数据处理模块： 1：修改表内容 （10分） REPLA ALL 字段名 1 WITH 值 1,字段名 2 WITH 值 2 2：拷贝（一般用在打开表或建立关联后）（1（）分） 复制记录到新文件： COPY TO 新文件名 复制结构到新文件： COPY STRUCTURE TO 新文件名 &复制结构 3：汇总统计 （1（）分） AVERAGE. COUNT S

20、UM 、TOTAL ON （近儿年来常考） SELCET 1 USE 表 1 INDEX ON 分类字段 TOTAOLON 分类字段 TO 新表名 HELDS 数值型字段 1,数值型字段 2, USE新表名 数据处理语句 模块 4：多次查询（反复杏询）并输出结果（1（）分） DO WHILE .T. INPUT * 提示信息” TO ZZ LOCATE FOR 字段=ZZ 此处嵌套模块 5（指定输出） WAIT “ 继续查询吗？Y/N” TO AA IF UPPER（AA ）=N“ EXIT ENDIF ENDDO 模块 5：指定输出（一 ?般都有循环）（15分） 方法一： LOCATE FO

21、R 条件 注意：表头和表尾一般只输出一次，应当放在循环输出结构的 DO WHILE NOT EOF （） ?工作区号 . 字段名 1,工作区号 . 字段名 2,工作区号 . 字段名 3, 工作区号 . 字段名 N CONTINUE * 沖 * * * “ & 提示信息一定要打引号 ?“字段名 1 字段名 2 字段名 3字段名 N - & 抬头一定要打引号 外面 ENDDO 9* & 捉示信息一定要打引号方法二： ?沙 *査询结果 * “ ? ”字段名 1 字段名 2 字段名 3字段名 N“& 抬头- 定要打引号 SCAN FOR 条件 &条件一般为：表名称 . 字段名二值 ?工作区号 . 字段名 1,工作区号 . 字段名 2,工作区号 . 字段名 3, 工作区号 . 字段名 N ENDSCAN . 、 7 r , f rj% r| rj* rj rj* rj rj% r| rjw r| ejw rjw rj* rj r rjw rj% r| rj% rjw r r| r rjw rj* rj r rjw rj% rjw r| rjw rjw 模块 6：退出 CLOSE ALL RETURN & 提示信息一定要打引号 & 提示信息一定要打引号，格 式输出的结尾 , 一般放在循环输出的 外面