第七章程序设计基础(三).docVIP

第七章 程序设计基础(三) 三种基本结构 顺序、分支、循环 一、分支语句： IF语句 单向选择： IF 条件 双向选择： IF 条件 执行语句 执行语句 ENDIF ELSE 执行语句 ENDIF 例1：用户输入数据表文件名，判断它存在否，如果存在则打开数据表文件并显示表中的全部记录。 clear accept 请输入数据表文件名： to heng 想想可不可以用input if file(heng+.dbf ) 了解file()的使用方法 use heng 想想这儿为什么要用代换 list else ?sorry,文件不存在. endif close all 关闭所有打开的表，如果不涉及多工作区，可以只使用use IF语句的嵌套： 例2：将用户输入的小写英文字母转化成大写 CLEAR ACCEPT “请输入1个字母：” TO STR1 IF STR1=’a’ AND STR1=’z’ STR1=UPPER(STR1) ?SPACE(40)+STR1 ELSE IF STR1=’A’ AND STR1=’Z’ ?SPACE(40)+STR1 ELSE “你输入的不是英文字母” ENDIF ENDIF 二、多向选择：（多路选择） DO CASE CASE 条件表达式1 命令序列1 CASE 条件表达式2 命令序列2 …… [OTHERWISE // 其它情况 命令序列] ENDCASE 说明:OTHERWISE 可以没有. 例3：“请输入您想邮购物品的路程（公里数）： ” TO X DO CASE CASE X=50 Y=5 CASE X50 AND X=100 Y=10 CASE X100 AND X=200 Y=20 CASE X200 AND X=500 Y=40 OTHERWISE Y=50 ENDCASE ?’ 您需要付款: ’,Y,’元人民币’ 三、循环语句： DO WHILE 条件 语句序列 LOOP 提前结束本次循环 语句序列 EXIT 退出循环体 ENDDO 要退出循环，需要条件为假的时候（条件=.F.时） 执行过程: 例4 clear n=1 sum1=0 do while n=100 sum1=sum1+n n=n+1 enddo ?”1+2+3+…..100的和为:”,str(sum1,4) cancel 例5 clear i=1 do while i=5 ??space(6-i) ??******* ? i=i+1 enddo cancel 计数循环： FOR 循环变量=初值 TO 终值 [STEP 步长] 语句序列 LOOP 提前结束本次循环 语句序列 EXIT 退出循环 ENDFOR / NEXT 执行过程: 例6：求1~100的和 SUM=0 FOR I=1 TO 100 SUM=SUM+I ENDFOR ?’1~100的总和为：’,SUM 使用DO WHILE 实现： SUM=0 I=1 DO WHILE I101 SUM=SUM+I I=I+1 ENDDO ?’1~100的总和为：’,SUM 指针循环: SCAN 范围 FOR/WHILE 条件 语句序列 LOOP 提前结束本次循环 语句序列 EXIT 退出循环 ENDSCAN 执行过程:首先判断EOF()的值,为真则结束循环;否则结合FOR/WHILE子句执行循环体部份,记录指针移到指定范围和条件内的下一条记录,重新判断EOF()的值,直到为真则结束循环. 另外：若语句中有QUIT、RETURN、CANCEL 等命令也可以退出 例如： DO WHILE .T. DO WHILE .T. IF Y0 IF Y0 EXIT QUIT ENDIF ENDIF ENDDO ENDDO 如果Y0，则退出本循环 如果Y0，则退出程序，退出VF DO W