第5章程序设计基础-PPT讲义.pptVIP

程序的创建和保存 VFP程序是包含一系列命令的文本文件。可以使用菜单或工具栏中的“新建”命令或在命令窗口中执行如下命令来创建程序： MODIFY COMMAND 或 MODIFY COMMAND 程序文件名 运行程序 程序创建之后便可运行。方法有： 1.若程序包含在一个项目中，则在“项目管理 器”中选定它并选择“运行”命令。 2.在“程序”菜单中选择“运行”菜单项。在程 序列表中，选择想要运行的程序，单击“运行”按 钮。 3.在“命令”窗口中，按如下方式键入DO命令以 及要运行的程序名： DO 程序文件名 4.在程序的编辑窗口打开的情况下，按组合键 【Ctrl+E】。 顺序(sequential) 顺序结构是指一组命令按照特定的次 序存放在程序文件中，程序运行时，依次 执行程序中的各条命令行。例如： USE JS APPEND BLANK EDIT USE ◆例题分析 例1: 已知圆的半径,求圆的周长和面积。 R=5 S=2*R*3.14159 AREA=R**2*3.14159 ? ”圆的周长为”,S ? ”圆的面积”,AREA 例2: 将A,B中的数对调。 A=5 B=10 C=A A=B B=C ? A,B 顺序结构例题分析 条件分支(conditional branching) 条件分支结构用于程序中根据条件的 测试结果执行不同的运算。 VFP中有两条命令实现条件分支： ▲ IF…ELSE…ENDIF ▲ DO CASE…ENDCASE 在VFP中还可使用IIF()函数实现条 件分支。 IF…ELSE…ENDIF语句 语句格式： IF 条件表达式 命令组1 [ELSE 命令组2 ] ENDIF 该语句指定当条件表达式 结果为.T.和.F.时程序执行语 句的顺序。若含有ELSE子句， 则条件表达式结果为.T.时，执 行命令组1，否则执行命令组2； 若不含有ELSE子句，则条件表 达式结果为.T.时，执行命令组1， 否则执行ENDIF后面的语句。 请参见流程图。 ◆例题分析 对条件表达式求值 命令组1 命令组2 IF ENDIF .T. .F. IF…ELSE…ENDIF语句流程图 例1: 根据变量X的 正负符号情况决定 变量Y的值为1或-1。 X=5 IF X0 Y=1 ELSE Y=-1 ENDIF ? Y 例2: 求A,B两数中的最大数。 A=5 B=10 MAX=A IF BMAX MAX=B ENDIF ? MAX 或: A=5 B=10 IF AB MAX=A ELSE MAX=B ENDIF ?MAX IF…ELSE…ENDIF语句例题分析 例3: Dbirthday={^1985/10/15} If dbirthday=date() nage=year(date())-year(dbirthday) ?’年龄为’+alltrim(str(nage)) Else ?”日期错误,无法计算年龄!” endif DO CASE…ENDCASE语句 语句格式： DO CASE CASE 条件表达式1 命令组1 [CASE 条件表达式2 命令组2 ………… CASE 条件表达式n 命令组n] [OTHERWISE 其他命令组] ENDCASE ◆例题分析 该语句执行时，首先从第一个CASE开始，判断其后的条件表达式的值是否为真，当遇到第一个结果为真的CASE表达式时，就执行它后面的命令组，然后跳过下一个CASE到ENDCASE之间的所有语句。OTHERWISE子句可有可无，如果包含了OTHERWISE子句，则在所有CASE表达式的值都为假时，执行OTHERWISE后的命令组。在DO CASE与第一个CASE之间不能有其他的语句。请参见流程图。 DO CASE…ENDCASE语句流程图 条件1 条件2 条件n 命令组1 命令组2 命令组n 其他命令组 DO CASE ENDCASE .F. .F. .T. .T. .T. JL=2000 DO CASE