Visual FoxPro 数据库应用教程第7章.pptVIP

7.2.3 循环结构 1．条件循环 语句格式1： DO WHILE 条件表达式 命令行序列 ENDDO Visual FoxPro数据库应用教程 第*页 【例7.16】编写程序“MYPRG_16.PRG”，求出1+2+3+…+100的和。 程序代码如下： S=0 k=1 DO WHILE k=100 S=S+K k=k+1 ENDDO ? S=，S Visual FoxPro数据库应用教程 第*页 【例7.17】编写程序“MYPRG_17.PRG”，将数据表“学生情况表.DBF”中所有少数民族学生的入学成绩加上20分。 程序代码如下： SET DEFAULT TO D:\student CLEAR USE 学生情况表 DO??WHILE NOT EOF() IF 民族〈〉汉 ?REPLACE 入学成绩 WITH 入学成绩+20 ENDIF SKIP ENDDO USE RETURN Visual FoxPro数据库应用教程 第*页 语句格式2： DO WHILE 条件表达式 命令行序列1 ［LOOP］ 　返回DO WHILE语句执行 命令行序列2] ［EXIT］ 　退出循环体，跳到ENDDO的下一行语句 命令行序列3] ENDDO Visual FoxPro数据库应用教程 第*页 【例7.18】编写程序“MYPRG_18.PRG”，统计各个分数段（60分以下，60～69，70～79，80～100）的人数。当输入的分数大于100或小于0时，结束输入分数。 Visual FoxPro数据库应用教程 第*页 程序代码如下： STORE 0 TO AA,BB,CC,DD 设置各个分数段的人数初始值为0 DO WHILE .T. ?INPUT 分数 TO SCORE ?IF SCORE0　.OR. SCORE100 ? EXIT ?ENDIF ?DO CASE ?CASE SCORE60 AA=AA+1 ?CASE SCORE70 ? ?BB=BB+1 ?CASE SCORE80 ? ?CC=CC+1 ?CASE SCORE100 ? ?DD=DD+1 ?ENDCASE ENDDO ?60分以下的人数:, AA ? 60～69分的人数:, BB ? 70～79分的人数:, CC ? 80～100分的人数:, DD RETURN Visual FoxPro数据库应用教程 第*页 2．步长循环 格式： FOR 循环变量=循环变量初值 TO 循环变量终值 [STEP 步长值] 命令行序列 ENDFOR | NEXT Visual FoxPro数据库应用教程 第*页 【例7.19】编写程序“MYPRG_19.PRG”，求出1+2+3+…+100的和。 程序代码如下： S=0 FOR K=1 TO 100 ?S=S+K NEXT ? S=，S 【例7.20】编写程序“MYPRG_20.PRG”，求出1～50所有奇数的平方和。 程序代码如下： S=0 FOR K=1 TO 50 STEP 2 S=S+K**2 NEXT ? S=, S Visual FoxPro数据库应用教程 第*页 【例7.21】编写程序“MYPRG_21.PRG”，求的值Ｓ。 程序代码如下： SIGN=1 S=1 D=2 FOR D=2 TO 100 SIGN=(-1)*SIGN T=SIGN/D S=S+T NEXT ?S RETURN Visual FoxPro数据库应用教程 第*页 3．扫描循环 根据表中的当前记录指针决定循环体内语句的执行次数。 格式： SCAN [范围] [FOR条件表达式1] ?命令行序列 ENDSCAN Visual FoxPro数据库应用教程 第*页 【例7.22】编写程序文件“MYPRG_22.PRG”，实现逐条显示数据表“学生情况表.DBF”中所有女生的记录。 程序代码如下： CLEAR SET DEFAULT TO D:\student ?USE 学生情况表.DBF ?SCAN FOR 性别= 女 ? DISP ? WAIT TIMEOUT 2 等待2秒 ENDSCAN USE Visual FoxPro数据库应用教程 第*页 【例7.23】用扫描循环语句结构编写程序“MYPRG_23.PRG”，统计“学生情况表.DBF”中旅游管理专业的男、女生人数