|
循环结构:前面我们学习的顺序结构和选择结构有一个共同点,即程序语句不能重复执行.而在实际应用中,常常需要多次重复执行某些语句.这样的需求适合于用循环语句来处理.在vfp中,提供了3种循环语句:do while循环、for循环及scan循环.
1.while循环:
格式:
do while 条件
语句序列
[loop]
[exit]
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 变量终值 [step]步长
语句序列
[exit]
[loop]
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 [范围][for 条件]
语句序列
endscan
功能:
对表中指定范围,满足条件的记录执行循环体语句,每执行一次循环,记录指针自动移动到下一条记录.操作表时,使用该语句功能强,效率高.
例:使用scan语句编程,显示\"职工档案\"表中的女教师的姓名和职称.
use 职工档案
scan for .not.性别
display 姓名,性别
endscan
use
return
|
