第3章 程序设计基础3.1 VFP应用程序设计 3.2 程序文件的建立与执行 3.3 程序设计基本语句 3.4 程序控制的基本结构 3.5 过程与过程文件 3.6 综合程序设计范例3.1 VFP应用程序设计 VFP的工作方式命令方式菜单方式程序方式 VFP程序设计过程 VFP应用程序包括：一个或多个数据库 、 设置系统环境的主程序、用户 界面 （如表单、工具栏和菜单等）， 还可以包括查询和报表。 设计数据库、确定功能需求|创建数据库、表、视图、关系|/ 方便用户使用 帮助用户访问信息 表单、菜单、工具栏 查询、报表、图形 /|测试与调试 |应用程序 创建一个完整的VFP应用程序的全过程 VFP程序设计方法 面向过程程序设计 自顶向下 层层分解 子程序之间有严重顺序性和依赖性 软件稳定性、可修改性、扩充性、重 用性差 面向对象程序设计方法 继承 封装 多态 各部件相对独立 稳定性、可修改性、维护性、可重用性高 3.1 VFP应用程序设计（续）3.2 程序文件的建立与执行 创建程序Modify Command 文件名 保存程序 修改程序 Modify Command 程序文件的调用DO 程序结束: 文件的末尾(返回到调用行的下一行). Return(返回到调用行的下一行) Retry(返回到调用行本身, 可以实现程序的重复调用) Cancel(中断, 异常结束, 并返回到命令窗口)Quit(返回到操作系统) 命令文件(.prg) 在运行时先自动编译生成目标 程序(.fxp)再执行. 3.2 程序文件的建立与执行（续） 3.3程序设计基本语句1程序注释:Note 或： *2. 语句注释如果在参数变量前冠以, 那么将采用引用的方 式.例: 编写一个函数, 判断给定的正整数是奇数还 是偶数. 是偶数返回.T., 是奇数返回.F. *jos.prg* Function jos Parameters x If Int(x/2)=x/2 Return .T. Else Return .F.Endif调用：?JOS(8) 结果：.T.例: 编写一个函数, 计算给定的三条边(三 个正数)所构成的三角形的面积.如果给 定的三条边能构成一个三角形, 则返回 面积值, 否则返回数值0. Function Tarea Parameters A,b,c If A+bc And B+ca And A+cb S=(a+b+c)/2 Area=sqrt(s*(s-a)*(s-b)*(s-c) Return Area Else Return 0 Endif调用：?TAREA(3,4,5) 结果：6例: 对上题通过参数引用方式将三角形面积 传回,如果能构成三角形,返回.T.,否则返回 .F. Function Tarea1 Parameters A,b,c If A+bc And B+ca And A+cb S=(a+b+c)/2 A=sqrt(s*(s-a)*(s-b)*(s-c) Return .T. Else A=0 Return .F. Endif Endfunc调用:x=3 y=4 z=5 ? Tarea1(x,y,z) ? x3.5.5综合程序设计范例 例1: 编写一个函数, 返回给定正整数型数 值表达式中包含指定数码的个数. (如: 数值2345105中包含数码5的个数为2) Function nct Parameters x,y s=0 m=x Do While .T. n=Mod(m,10) If n=y s=s+1 Endif M=Int(m/10) If M=0 Exit Endif Enddo Return s Endfunc调用：A=23503400B=0cnt=nct(a,b)?cnt结果：3 3. 表内容处理 例: 显示输出学生表中每个班级的男女同学的奖学金总额. Clear Use Xsda Index On 班级 To Bj ?“*各班男女同学奖学金总额*“ ?“班级 男同学奖学金总额女同学奖学金总额“ Do While .Not.Eof() Class=班级 Store 0 To Boys, Girls Do While 班级=class If 性别=“男”Boys=boys+奖学金 ElseGirls=girls+奖学金 Endif Skip Enddo ? Str(class,2)+str(boys,16,2)+str(girls,22,2) Enddo Use2. 字符处理 例: 编写一个函数, 返回给定的字符串表达式的倒置字 符串. (如: ABCD倒置后为DCBA) Function Cc Parameters X Set Talk Off C=space(0) L=len(x) Do While L0 Q=substr(x,l,1) C=c+q L=l-1 Enddo Return C Endfunc调用:a=godcn=cc(a)? cn 结果: dog