2011年计算机二级VFP考试基础教程（25）
循环结构三。循环结构：前面我们学习的顺序结构和选择结构有一个共同点，即程序语句不能重复执行。而在实际应用中，常常需要多次重复执行某些语句。这样的需求适合于用循环语句来处理。在vfp中，提供了3种循环语句：do while循环、for循环及scan循环。
1.while循环：
格式：
do while 条件
语句序列
enddo
说明：
(1)."do while 条件"是循环说明语句，它标志循环的开始，并判断循环条件是否为真值;当条件为真值时，则执行语句序列;否则跳到enddo后面的语句继续执行。
(2).do while和enddo之间的语句序列也被称作循环体，是需要多次重复执行的语句，由它完成规定的数据处理工作。
(3).循环语句中的可选项exit,用于退出循环语句，可放在循环体语句的任意位置上。若在循环体中加上该可选项，当执行exit时，跳出循环体去执行 enddo后面的语句。通常，exit是在条件语句控制下，当条件得到满足时便跳出循环;否则永远不能执行exit后面的循环体语句。
(4).可选项loop,是循环短路语句，也可以放在循环体语句的任意位置上。当执行loop时，其后的循环体语句部分不予执行，直接返回到循环起始语句。loop也通常放在条件语句的控制下。
(5).enddo和do while必须成对出现。
例：将"职工档案"表中所有职称是"讲师"的工资加200元，副教授加150元，无职称的加100元。
首先，我们修改一下"职工档案"表的结构，为其增加一个"工资"字段：
在命令窗口依次执行如下命令：
use 职工档案
modify structure
弹出"表设计器"窗口，添加一个新字段：工资 N6.1,单击"确定",保存更改。
再执行browse命令，在弹出的browse窗口中为每条记录的"工资"填上值，
新建一个程序文件xiugai.prg,程序文件的内容如下：
clear
use 职工档案
do while .not.eof()
do case
case 职称="讲师"
replace 工资 with 工资+200
case 职称="副教授"
replace 工资 with 工资+150
case 职称="无"
replace 工资 with 工资+100
endcase
skip
enddo
use
return
程序分析：循环程序由以下4个主要部分构成：
A.循环的工作部分。它完成循环的主要工作，是循环体的主要部分。这里由do case---endcase组成。
B.循环的修改部分。它保证循环体在循环过程中，有关的量能按一定的规律变化。这里的循环修改部分是skip语句，用来实现依次操作文件的各条记录。
C.循环的控制部分。它保证循环体语句按规定的循环次数正常执行。此例中的循环控制部分是。not.eof()逻辑表达式，它表示做完所有记录的操作。
D.循环的初始部分。它是循环控制初值。本程序中循环控制初值是隐含的，因为打开文件后，记录指针指向首记录，所以操作是从首记录开始的。
2.for循环：在已知循环次数的情况下，使用for循环比较方便
格式：
for 变量=初值 to 变量终值 步长
语句序列
endfor|next
功能：
在循环控制变量的初值和终值的范围内执行循环语句，每执行一次循环，循环控制变量都要加上增量。当其值在规定范围内时就再次执行循环体语句序列，否则结束循环，执行循环终止语句下面的语句。跳出循环和循环短路语句exit和loop意义同前。
具体执行步骤：
(1).给变量赋初值;
(2).判断变量的值是否小于等于终值;
(3).若不是，则循环结束;
(4).若是，则执行语句序列;
(5).变量=变量+步长(若省略step,则步长=1);
(6).转(2).
例：在屏幕上输出乘法口诀表
程序文件内容如下：
?"九九乘法表"
?
for i=1 to 9
for j=1 to i
??alltrim(str(i))+"*"+alltrim(str(j))+"="+alltrim(str(i*j))+" "
next
?
next
3.scan循环：
格式：
scan [范围]
语句序列
endscan
功能：
对表中指定范围，满足条件的记录执行循环体语句，每执行一次循环，记录指针自动移动到下一条记录。操作表时，使用该语句功能强，效率高。
例：使用scan语句编程，显示"职工档案"表中的女教师的姓名和职称。
use 职工档案
scan for .not.性别
display 姓名，性别
endscan
use
return
页:
[1]