8-7.txt

超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲到的目录）。 2、1-9章 打开对应章节例子代码复制到命令窗口

【例8.7】建立程序EXAM8-7.PRG，功能是计算并输出1~100中整数的平方根，要求每屏显示20个数。
*功能说明：DO WHILE…ENDDO结构程序举例
SET TALK OFF
CLEAR
nNum＝1
DO WHILE nNum<=100
?nNum，SQRT(nNum)
IF MOD(nNum,20)=0 .AND. nNum<>100    && nNum是20的倍数且不等于100
WAIT "继续吗(Y/N)?" To cAnswer WINDOWS
IF UPPER(cAnswer) = "N"               && 输人N或n时退出循环
EXIT
ENDIF
ENDIF
nNum=nNum+1         &&记录循环次数
ENDDO
SET TALK ON