VF程序实例.doc

VF程序实例 基本(十一大类): 一、多工作区、Replace、copy to . 二、累加、累乘 三、双重循环：金字塔问题等 四、排序 五、循环查询：locate\seek 六、循环插入新记录 七、子程序和参数传递\变量的作用域 八、@行,列 say ... get ... default ... read 字幕问题 九、scatter/gather 十、数组（结合排序） 十一、综合题 ******************************************************************************* 一、多工作区、Replace、copy to . 例题1: 涉及 set relation to 有如下表： (1) XS.DBF(学号 C(8)，姓名 C(8)，性别 C(2)，班级 C(9)，出生日期 D，走读 L) (2) CJ.DBF(学号 C(8)，课程名 C(20)，成绩N(5,1)) 说明：一个学生可以选择多门课程。请编写一个完整的程序，该程序能完成以下功能： 1、 将表XS.DBF和表CJ.DBF建立关联，并显示出所有男同学的姓名以及他们所选课程的课程名 2、 将XS.DBF表中所有班级为“2002级2班”的同学信息拷贝到新表STUDENT.DBF中，STUDENT .DBF只含有学号、姓名、性别、走读四个字段 3、将姓名为“王小平”的同学的所有成绩提高10% CLEAR CLOSE ALL SELE 2 USE CJ INDEX ON 学号 TO XH SELE 1 USE XS SET RELATION TO 学号 INTO B SET SKIP TO B LIST FOR 性别=男 FIELDS 姓名,B.课程名 COPY TO STUDENT FOR 班级=2002级2班 FIELDS 学号,姓名,性别,走读 replace b.成绩 with b.成绩*1.1 for a.姓名=王小平 例题2: 涉及update 下面有两张表： 总分表：ZF.DBF 学号 姓名 语文 数学 总分 110 张三 114 李四 119 王二 成绩表： CJ.DBF 学号 语文 数学 110 67 65 114 89 67 119 78 95 按照成绩表的成绩修改总分表的成绩，并计算出总分表的总分字段 参考答案： CLOSE ALL SELE 2 USE CJ INDEX ON 学号 TAG XHCJ SELE 1 USE ZF INDEX ON 学号 TAG XHZF UPDA ON 学号 FROM B REPL 语文 WITH B.语文,数学 WITH B.数学 REPL ALL 总分 WITH 语文+数学 LIST 例题3: 涉及 join with: 将 STUDENT.DBF 和 学生成绩.DBF 连接成新文件 NEW.DBF 表1: student(学号 c(4),姓名 c(8),性别 L,出生日期 D,高考成绩 N(5,2)) 表2: 学生成绩(学号 c(4),课程号 C(3),分数 N(2)) SELECT 1 USE STUDENT SELECT 2 USE 学生成绩 JOIN WITH A TO NEW FOR 学号=A.学号 ; FIEL 学号,A.姓名,A.性别,A.出生日期,课程号,分数 USE NEW LIST 如果再增加一张表,三表相连: 表3: 课程(课程号 C(3),课程名称 C(10)) SELECT 1 USE STUDENT SELECT 2 USE 学生成绩 JOIN WITH A TO NEW FOR 学号=A.学号 SELE 1 USE NEW SELE 2 USE 课程 JOIN WITH A TO STU FOR 课程号=A.课程号 USE STU LIST ******************************************************************************* 二、累加、累乘 例1：累加：求1~100的和 SUM=0 FOR I=1 TO 100 SUM=SUM+I ENDFOR ?’1~100的总和为：’,SUM 使用DO WHILE 实现： SUM=0 I=1 DO WHILE I101 SUM=SUM+I I=I+1 ENDDO ?’1~100的总和为：’,SUM 例2：累乘：求n!