vfp循环语句.pptVIP

第四章 程序设计基础 第四节　循环结构程序设计 循环结构 DO WHILE 循环 DO WHILE 条件 循环体 ENDDO FOR 循环 FOR 循环变量=初值 TO 终值 [STEP 步长] 循环体 ENDFOR/NEXT SCAN 循环 SCAN [范围] [FOR/WHILE 条件] 循环体 ENDSCAN 一、条件循环语句 ( 当型循环语句) DO WHILE条件表达式 〈条件表达式值为真时 需反复执行的语句系列〉  ENDDO 功能：当条件表达式值为真时反复执行循环体，直到条件表达式值为假时为止。 N=〈循环次数〉 I=1 DO WHILE I＜=N 〈执行某任务的语句系列〉 I=I+1 ENDDO循环控制部分可以分为三部分：(1)循环控制变量初始值的设置。(2）循环控制变量终止值的设定。(3)循环控制变量值的修改。 例：在显示器上逐行显示1~15这15个数字。 例：从键盘上输入１０个数，求这十个数之和。 CLEAR S=0 K=1 DO WHILE K=10 INPUT ‘请输入一个数：’ TO A S=S+A K=K+1 ENDDO ? S 例：编程求2+4+6+8+……+100的值。 例：从键盘输入十个数，显示最大数、最小数。 CLEAR INPUT 输入一个数: TO X STORE X TO Y I=2 DO WHILE I=10 INPUT 输入一个数： TO A X=MAX(A,X) Y=MIN(A,Y) I=I+1 ENDDO ? 最大数：+ALLTRIM(str(X))+最小数：+ALLTRIM(str(Y)) 例：从键盘输入十个数，显示最大数、最小数。 CLEAR INPUT 输入一个数: TO X STORE X TO Y I=2 DO WHILE I=10 INPUT 输入一个数： TO A X=MAX(A,X) Y=MIN(A,Y) I=I+1 ENDDO ? 最大数：+ALLTRIM(str(X))+最小数：+ALLTRIM(str(Y)) 例：从键盘输入十个数，显示最大数、最小数。 CLEAR INPUT 输入第1个数: TO X STORE X TO Y I=2 DO WHILE I=10 J=ALLTRIM(str(I,2)) INPUT 输入第j.个数： TO A X=MAX(A,X) Y=MIN(A,Y) I=I+1 ENDDO ? 最大数：+ALLTRIM(str(X))+最小数：+ALLTRIM(str(Y)) 例：设s=1*2*3*4……*n，求Ｓ不大于400000时最大的n。 CLEAR N=1 S=1 DO WHILE S=400000 N=N+1 S=S*N ENDDO ? N=+ALLT(STR(N-1)) 例：编程显示用星号组成的平行四边形。 例：编程显示用星号组成的三角形。 例：编程显示用星号组成的菱形。 定位输出命令 命令基本格式： @行，列[SAY表达式] 功能：在屏幕的指定行列输出SAY子句的表达式值。 说明：（1）行，列表示数据在窗口中显示的位置，行自顶向下编号，列自左向右编号，编号均从0开始。行与列都是数值表达式。（2）表达式可以是常量、内存变量、字段变量，也可以是任何类型合法的表达式。 例：编程显示用星号组成的平行四边形。 例：编程显示用星号组成的三角形。 例：编程显示用星号组成的菱形。 例：编程输出1*1=1 1*2=2…………1*9=9被乘数是1的九个乘法公式。 clear a=1 b=1 do while b=9 c=a*b @ a,8*(b-1) say str(a,1)+*+str(b,1)+=+str(c,2) b=b+1 enddo clear a=1 do while a=9 b=1 do while b=9 c=a*b @ a,8*(b-1) say str(a,1)+*+str(b,1)+=+str(c,2) b=b+1 enddo a=a+1 enddo 二、步长型循环语句FOR FOR〈变量名〉=〈数值表达式1〉TO〈数值表达式2〉[STEP〈数值表达式3〉] 〈循环体〉 ENDFOR | NEXT功能：当〈变量名〉指定的变量之值没有越过由〈数值表达式2〉确定的数值时反