VFP第11部分(循环辅助语句及多重循环).pptVIP

do while .t. 外循环 accept 请输入学生的学号： to xh ? “姓名 专业班级 课程号 成绩 scan for 学号=xh 内循环 ?xs.姓名,xs.籍贯,课程号,成绩 endscan enddo close all set safety on return if len(alltrim(xh))=0 exit endif If alltrim(xh)=“#” 方法2： clear all do while .t. accept 请输入学生的学号： to xh if len(alltrim(xh))=0 exit endif select 姓名,籍贯,课程号,成绩 from 选课 xk,学生 xs where xs.学号=xh and xk.学号=xs.学号 to screen enddo  学生情况表ST.DBF 学号 姓名 性别 总成绩 KI01 王子仪 女 409 KI02 李丽萍 女 512 KI03 张雨 男 390 KI04 马思成 男 400 KI05 陈艳 女 395 家庭情况表FAM.DBF 学号 亲属姓名 关系 部门 KI01 王松 父亲 DE3 KI01 刘利 母亲 DE1 KI02 李永 父亲 DE1 KI03 张永强 父亲 DE5 KI03 赵雯 母亲 DE7 KI03 张明 哥哥 DE3 KI04 李翠花 母亲 DE3 KI05 陈兴平 父亲 DE5 KI05 陈大伟 爷爷 DE2 例（实验指导书P40） ：现有两个表文件，表结构及部分记录如下 编写程序，反复输入部门，查询亲属在该部门工作的学生名单(即按亲属工作部门查询学生)。要求输出式如下(假设输入的部门为DE3): DE3 部 门 学生姓名 亲属关系 亲属姓名 王子仪 父亲 王松 张明 哥哥 张明 马思成 母亲 李翠花 方法一: clear set talk off sele 1 use st inde on 学号 tag xh sele 2 use fam set rela to 学号 into a yn=y do while uppe(yn)=Y accept 请输入部门： to bm clea ?space(15)+bm+部门 ?学生姓名 亲属关系 亲属名单 scan for 部门=bm ?a.姓名+ +关系+ +亲属姓名 ends wait 是否还要继续?(y/n) to yn enddo close all set talk on return 方法二: CLEAR yn=y do while upper(yn)=Y accept 请输入部门： to bm clea ?space(15)+bm+部门 select stu.姓名 as 学生姓名,关系 as 亲属关系,亲属姓名 as 亲属名单 from stu,fam ; where stu.学号=fam.学号 and 部门=bm to screen wait 是否还要继续?(y/n) to yn enddo retu 3种循环结构 Do while….enddo for….endfor scan….endscan 循环辅助语句 loop: 通常又称为中途复始语句或短路语句。 exit：通常又称为中途退出语句或循环终止语句。 流程图： 条件 语句序列 LOOP EXIT enddo的下一条命令 N Y 【例】 将10到20中第一个能被3整除的数找出来