教你如何制作vfp程械尿设计.pptVIP

跳转LOOP命令和跳出EXIT命令,格式如下： EXIT LOOP 在循环体中遇到EXIT命令时，立即跳出循环体，执行ENDDO后面的命令。（如图1） 在循环体中遇到LOOP命令时，跳转到循环结构的开始，并根据条件的取值决定是否开始一次新的循环。（如图2） Do while 条件 … EXIT … ENDDO Do while 条件 … LOOP … ENDDO Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 实例：将dank中工资小于100元的增加10元 Set talk off Use d:\zhbin\dank Do while .not.eof() If 工资=100 skip loop End if Replace 工资 with 工资＋10 Skip Enddo cancel Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 实例2：求0-100之间奇数之和 Set talk off X=0 Y=0 Do while x100 X=X+1 IF INT(X/2)=X/2 LOOP ELSE Y=X+Y ENDIF ENDDO ?“0-100之间的奇数之和为：”,Y SET TALK ON CANCEL Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 格式二： FOR 循环变量＝初值 TO 终值 〔STEP步长〕 命令序列 〔LOOP〕 〔EXIT〕 ENDFOR 功能：循环过程是首先将初值赋予循环变量。每当执行一次循环，循环变量增加一个步长，直到循环变量大于终值时结束循环。 说明：loop语句用于转到for语句继续执行循环；exit用于跳出循环，跳到endfor后面命令执行。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 实例1：返回dank表中年龄最大的记录 Set talk off Use d:\zhbin\dank Max=年龄 J=reccount( ) 返回当前工作区表文件的记录数 FOR I=1 for j if max年龄 max=年龄 s=recno() endif Skip ENDFOR USE ?”年龄最大的记录号为：“，S SET TALK ON Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 格式三： SCAN〔范围〕〔FOR条件表达式] 命令序列 〔loop〕 〔exit〕 ENDSCAN 功能：指在表中移动，并重复执行命令序列。一般情况下，SCAN循环开始时记录指针指向满足条件的第一条记录，执行到ENDSCAN时，记录指针指向第二个满足条件的记录，控制又回到SCAN循环开始，直到记录处理完成。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 实例1：用SCAN…ENDSCAN命令显示表的记录 Use d:\zhbin\student Scan display Endscan 实例2：在dank表中，查找职称为“教师”的记录，计算满足条件的记录格式和工资总和 Set talk off s＝s+工资 Use d:\zhbin\dank