课件：VF程序设计.pptVIP

程序流程图 S=0 i=1 1=4 S=0+1 i=1+1 .T. 2=4 S=1+2 i=2+1 3=4 S=3+3 i=3+1 4=4 S=6+4 i= 4+1 5=4 .F. ? 10 SET TALK OFF S=0 i=1 DO WHILE i=4 S=S+i i=i+1 ENDDO ? S SET TALK ON RETURN × 若求自然数1至N的和呢？ [程序:求自然数1至4的和] SET TALK OFF S=0 i=1 INPUT 〞请输入N的值:〞 TO N DO WHILE i=4 S=S+i i=i+1 ENDDO ?S SET TALK ON RETURN i=N 推广1 若求自然数1至N的积呢？ [程序:求自然数1至N的和] SET TALK OFF S=0 i=1 INPUT 〞请输入N的值:〞 TO N DO WHILE i=N S =S + i i =i + 1 ENDDO ?S SET TALK ON RETURN 推广2 S=1 S=S*i 例 阅读程序，并说出程序的运行结果 IF i=3 LOOP ENDIF 程序结果 2 3 4 5 6 程序结果 2 4 5 6 RETURN SET TALK ON SET TALK OFF i=1 DO WHILE i=5 i=i+1 ENDDO ? i ? “E” E E 例 求1～100以内所有奇数的和。 SET TALK OFF S=0 I=0 Do while I100 I = I + 1 If int(I/2) = I/2 Loop endif S = S + I Enddo ? “1到100的奇数和 S= ”, S SET TALK ON Return 以循环变量作为控制参数控制循环。 S=0 I=1 Do while I100  S = S + I I = I + 2 Enddo ? s 程序改进： SET TALK OFF CLEAR  USE zgb ACCEPT “请输入要查找人的姓名: ” TO N LOCATE ALL FOR XM=N DO WHILE .NOT. EOF( ) DISP CONTINU WAIT “按任意键继续，按ESC键退出” ENDDO USE ？“查找结束” SET TALK ON RETURN 例 编程：在zgb.dbf中查找某人。 利用数据表的操作函数的返回值控制循环 —————— 例 求连乘数1*2*3*4*……，当积大于720时退出程序。 Set talk off Clear S=1 I=1 Do while .T. S = S * I  I = I + 1 Enddo ? “ S= ”, S  Set talk on Return 循环控制条件恒为真，要使用EXIT语句结束循环 ——— —— IF S 720 EXIT ENDIF 例 求[1,100]内所有能被3或被5整除的数的个数。 i=1 DO WHILE i=100 i=i+1 ENDDO IF MOD(i,3)=0 .OR. MOD(i,5)=0 N=N+1 ENDIF N= 0 定义一个变量表示个数,并初始化 总个数增加1 SET TALK OFF ? 〞满足条件的数的个数为〞,N SET TALK ON RETURN ? i 显示满足条件的这个数 语句格式： FOR X＝A TO B ［STEP C ］ 语句序列1 ［LOOP］ 语句序列2 ［EXIT］ 语句序列3 ENDFOR | NEXT 二、计数循环 循环体 功能：将FOR……ENDFOR循环中的语句序列执行指定的次数。 循环变量 循环初值 步长值 循环终值 例 求1～100之和。 SET TALK OFF Clear  S=0 for I=1 to 100  S = S + I Endfor ? “S = ”, S SET TALK