新编Visual FoxPro 应用教程 作者 匡松 胡念青 主编 VFP第7章.pptVIP

步长循环举例1 例7.19 编写程序prog16.prg，计算S=1+2+3+…+100。 * 程序名：prog16.prg CLEAR S=0 FOR X=1 TO 100 S=S+X ENDFOR ？1+2+3+…+100=,S RETURN 步长循环举例2 例7.20 计算并显示出九九乘法口诀表。 * 程序名：prog17.prg CLEAR FOR n=1 TO 9 FOR m=1 TO n ?? + STR(m,1)+ *+STR(n,1)+ =+STR(m*n,2) ENDFOR ? ENDFOR RETURN 3. 表扫描型循环 【格式】SCAN [范围] [FOR 条件1] [WHILE 条件2] 命令行序列 ENDSCAN 【功能】该语句主要针对当前表进行循环。范围子句表示记录范围，缺省值为ALL。语句执行时，在 范围中依次寻找满足 FOR条件或 WHILE 条件的记录，并对找到的记录执行语句序列中的语句。 表扫描型循环举例 例7.21 编写程序prog18.prg，显示图书信息表tsxx.dbf中价格大于等于45元的所有图书记录。 * 程序名：prog18.prg CLEAR USE tsxx Exclusive SCAN FOR