沉阳农业大学vf课件第六章.pptVIP

* 6.3.3循环结构 DO WHILE 条件表达式 命令序列1 [LOOP] 命令序列2 [EXIT] 命令序列3 ENDDO * DO WHILE 型循环也叫当型循环，即根据条件表达式的值,决定循环体内的执行次数。 最简单的循环格式为: DO WHILE 条件表达式 命令行序列 ENDDO * clear i=5 do while i0 ?LOVE i=i-1 enddo * X=1 DO WHILE X50 ?X X=X*3 ENDDO * 计算1+2+…+100 s=0 i=1 Do while i=100 s=s+i i=i+1 Enddo ?s 注意：S=S+i，i=i+1 在这里等号是赋值的作用， 先计算等式右边的表达式，然后把结果赋给等号左边的变量。 练习：计算100以内的奇数和。2500 练习：计算100以内的偶数和。2550 * Clear Use djks do while .t. accept 请输入考号: to x Loca for 考号=x if found( ) Disp 考号,姓名,笔试,上机,结论 Else ?无此人 endif wait 继续吗?(Y/N) TO yn if upper(yn)=Y loop else exit endif enddo use return * 2.计数循环控制语句 语句格式： FOR 循环变量=循环变量初值 TO 循环变量终值 STEP 循环变量步长 命令行序列 ENDFOR/NEXT 计算2+4+…+100 S=0 FOR i=2 TO 100 step 2 S=S+i ENDFOR ?S * clear for n=1 to 300 if n%3=0.and.n%5=0.and.n%7=0 then ??n endif endfor * SCAN 循环结构 功能：专用于处理数据表中的记录。 格式：scan for 条件 命令序列1 [loop 命令序列2] [ exit 命令序列3] endscan * 程序要求：显示学生信息表中所有女生的学号、姓名、性别和奖学金信息。 use 学生信息 Scan for 性别=女 ? 学号,姓名,性别,奖学金 endscan use * 4.多重循环 例1:打印九九乘法口诀表。 clear for i =1 to 9 for j= 1 to i ?? str(j,1)+*+str(i,1)+=+str(j*i,2)+space(2) endfor ? endfor * clear dime a(5) for i=1 to 5 input 请输入第 + str(i,1) + 个数： to a(i) endfor for i=2 to 5 if a(1)a(i) temp=a(1) a(1)=a(i) a(i)=temp endif endfor ? 5个数中最小数是:,a(1) 例2:任意输入5个数，找出最小值。 * clear dime a(5) for i=1 to 5 input 请输入第 + str(i,1) + 个数： to a(i) endfor for i=2 to 5 if a(1)a(i) temp=a(1) a(1)=a(i) a(i)=temp endif endfor ? 5个数中最小数是:,a(1) 例3:输出任意行数正三角。 * 6.4多模块程序 调用子程序：do 子程序名 with 参数 返回:return * 例：任意输入一个数，计算以该数为半径的圆面积。 clear area=0 input 请输入半径 to r if r=0 ?半径必须大于0! else do area with r,area endif ?半径是:,r ?面积是: ,area para r1,s s=pi()*r1*r1 return 主程序main 子程序area * s