? ”1+2+3+……+100=”,S

　　SET TALK ON

　　RETURN

　　【例2】逐条显示在“学生管理”数据库的“学生”表中性别为“男”的所有记录。程序文件名为PA7.PRG。

　　SET TALK OFF

　　CLEAR

　　OPEN DATABASE 学生管理

　　USE 学生

　　DO WHILE .NOT. EOF()

　　IF 性别=”男”

　　DISPLAY

　　ENDIF

　　SKIP

　　ENDDO

　　CLOSE DATABASE

　　SET TALK ON

　　RETURN

　　【例3】编程显示“学生管理”数据库的“学生”表中除“李宁”以外

　　的所有记录。程序文件名为PA8.PRG。

　　SET TALK OFF

　　CLEAR

　　OPEN DATABASE STUDENT

　　USE STUD

　　DO WHILE .NOT. EOF()

　　IF 姓名=”李宁”

　　SKIP

　　LOOP

　　ENDIF

　　DISPLAY

　　SKIP

　　ENDDO

　　CLOSE DATABASE

　　SET TALK ON

　　RETURN

　　(2).FOR 循环语句

　　【格式】

　　FOR <循环变量>=<初值> TO <终值> [STEP<步长>]

　　<循环体>

　　ENDFOR|NEXT

　　使用FOR 循环语句的有关说明：

　　① 省略STEP <步长>，则〈步长〉为默认值1;

　　②〈初值〉、〈终值〉和〈步长〉都可以是数值表达式，但这些表达式仅在循环语句开始执行时计算一次。循环语句执行过程中，初值、终值和步长是不会改变的，并由此确定循环的次数;

　　③ 可以在循环体内改变循环变量的值，但会改变循环执行次数;

　　④ EXIT 和LOOP 命令可以出现在循环体内。执行LOOP 命令时，结束本次循环，循环变量增加一个步长值，返回FOR 循环头判断循环条件是否成立。执行EXIT 命令时,程序跳出循环，执行循环尾后面的语句

　　【例】从键盘输入10 个数，编程找出其中的最大值和最小值。程序文件名为PA9.PRG。

　　SET TALK OFF

　　CLEAR

　　INPUT “请从键盘输入一个数：” TO A

　　STORE A TO MAX,MIN

　　FOR I=2 TO 10

　　INPUT “请从键盘输入一个数：” TO A

　　IF MAXMAX=A

　　ENDIF

　　IF MIN>A

　　MIN=A

　　ENDIF

　　ENDFOR

　　? “最大值为：” , MAX

　　? “最小值为：” , MIN

　　SET TALK ON

　　RETURN