第章结构化程序设计基础课件.pptVIP

* 第7章 结构化程序设计基础 * 数据库技术及应用 4.2 程序的控制结构 二．分支结构 1. IF语句 IF 逻辑表达式 语句序列 ENDIF 单分支语句 IF 逻辑表达式 语句序列1 ELSE 语句序列2 ENDIF 双分支语句 4.2 程序的控制结构 例1：计算函数,Y= X0 -1 X0 只能输入整数 Clear Use student Accept 请输入学号: To xh Locate For 学号=xh If Found() Display 显示该记录 Endif Use 例2：编写程序，实现按学号查询student.dbf表中的学生，若查询成功，显示该学生的信息。 1. IF语句 查找函数: FOUND( ) 功能：在当前打开的表中，当使用LOCATE或SEEK命令后，如果找到了满足条件的记录，则函数返回值为.T.，否则为.F.。 上例的改进：按学号查询表student中的学生，若查询成功显示该学生的信息，否则提示“查无此人”。 Clear Use student Accept 请输入学号： To xh Locate For 学号=xh If Found() Display 显示该记录 Else Wait 查无此人 window at 10,2 Endif Use 2. IF语句嵌套 二．分支结构 作用：可以实现多路选择 if 表达式 语句A else 语句B endif 语句A 语句B 表达式e？ 真 假 表达式e1的值？ 真 假 语句1 语句2 表达式e2的值？ 真 假 语句3 语句4 if 表达式e if 表达式e1 语句1 else 语句2 endif else 语句B endif if 表达式e if 表达式e1 语句1 else 语句2 endif else if 表达式e2 语句3 else 语句4 endif endif 例：输入x的值，计算并输出y的值。函数如下： 1 X0 Y= 0 X=0 -1 X0 2. IF语句嵌套 Clear input “请输入X:” to x if x=0 else y=-1 endif @4,2 say “y=“+str(y,2) if x0 Y=1 else Y=0 endif 例2：编写程序，从键盘按任意一个键，判断所按的键是数字字符？字母？空格？还是其他字符。 Clear Wait“请按任意键…” To ch Window If ch = “0” And ch = “9” Wait 数字字符 + ch + ！ Window Else If(ch=“A” And ch=“Z”)Or(ch=“a”And ch=“z”) Wait “字母 + ch + ！ Window Else If ch = “ ” 判断空格 Wait 空格字符！ Windows Else Wait 其他字符 + ch +！ Window Endif Endif Endif 3.多分支语句 DO CASE CASE 逻辑表达式1 语句序列1 CASE 逻辑表达式2 语句序列2 ．．． CASE 逻辑表达式N 语句序列N [ OTHERWISE 语句序列N+1 ] ENDCASE 二．分支结构 例：计算函数 1 X0 Y= 0 X=0 -1 X0 4.2 程序的控制结构 例: 编程实现从键盘任意输入一个字符，判断所输入的字符是数字、英文字符、空格还是其他字符。 Clear Accept “请按任意键…” To ch Do Case Case ch=0 And ch=9 Wait 数字字符+ ch + ！ Windows At 10,15 Case (ch=’A’ And ch=‘Z’); OR (ch=’a’ And ch=‘z’) Wait 英文字符+ ch + ！ Wind