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

跳转LOOP命令和跳出EXIT命令,格式如下： EXIT LOOP 在循环体中遇到EXIT命令时，立即跳出循环体，执行ENDDO后面的命令。（如图1） 在循环体中遇到LOOP命令时，跳转到循环结构的开始，并根据条件的取值决定是否开始一次新的循环。（如图2） Do while 条件 … EXIT … ENDDO Do while 条件 … LOOP … ENDDO 实例：将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 实例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 格式二： FOR 循环变量＝初值 TO 终值 〔STEP步长〕 命令序列 〔LOOP〕 〔EXIT〕 ENDFOR 功能：循环过程是首先将初值赋予循环变量。每当执行一次循环，循环变量增加一个步长，直到循环变量大于终值时结束循环。 说明：loop语句用于转到for语句继续执行循环；exit用于跳出循环，跳到endfor后面命令执行。 实例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 格式三： SCAN〔范围〕〔FOR条件表达式] 命令序列 〔loop〕 〔exit〕 ENDSCAN 功能：指在表中移动，并重复执行命令序列。一般情况下，SCAN循环开始时记录指针指向满足条件的第一条记录，执行到ENDSCAN时，记录指针指向第二个满足条件的记录，控制又回到SCAN循环开始，直到记录处理完成。 实例1：用SCAN…ENDSCAN命令显示表的记录 Use d:\zhbin\student Scan display Endscan 实例2：在dank表中，查找职称为“教师”的记录，计算满足条件的记录格式和工资总和 Set talk off s＝s+工资 Use d:\zhbin\dank n=n+1 S=0 endscan N=0 use Scan for 职称＝“教师” display 作业： 1.编程序求0-100之间的偶数之和（s＝2+4+6+…100) 2.编写程序计算下列三个表达式的值（在同一程序内） S=1+2+3+…100 T=12+22+…1002 Y=1+1/2+1/3…1/100 (Modi comm ls1) Set talk off I=0 S=0 Do while I=100 if int(I/2)=I/2 s=s+I endif I=I+1 Enddo ?”0-100之间的偶数之和为：“，s Set talk on (modi comm ls2) Set talk off S=0 T=0 Y=0 I=1 Do while I=100 s=s+I t=t+I^2 y=y+1/I I=I+1 enddo ?“1+2+…100=”,s ?” 12+22+…100=”,t ?”1+1/2+1/3…1/100=“,y Set talk on * * 第三部分 VFP程序设计 程序文件的建立 程序文件的常用命令