Visual FoxPro 程序设计

VisualFoxPro程序设计教师：张盈信箱：aying2000@sohu.com主页:http://cs.scu.edu.cn/~zhangying第6章结构化程序设计本章主要内容： 结构化程序设计概述 顺序结构 分支结构 循环结构 子程序、过程与自定义函数什么是程序（Program）？ 程序是命令的集合。 程序文件（*.prg）即命令文件。 VisualFoxPro中，可进行结构化程序设计，也可进行面向对象程序设计。6.1结构化程序设计概述 结构化程序设计思想：将复杂问题的求解过程分阶段进行，每个阶段处理的问题都控制在人们容易理解和处理的范围内。 结构化程序设计原则：自顶向下、逐步细分，模块化设计、结构化编码。程序文件的建立基本操作步骤：编辑、修改保存执行程序文件的注释语法： *<注释语句> NOTE<注释语句> &&<注释语句> 功能： 为程序中的语句添加注释。实例例6.1程序注释示例。*---------------------------------------------------------------------* 程序功能：显示当前系统的日期和时间 *--------------------------------------------------------------------NOTE简单程序示例SETTALKOFF &&关闭状态信息显示SETCENTURYON &&设置年份的显示状态为四位CLEAR &&清屏幕a=DATE()b=TIME()?"今天的日期是：",a?"现在的时间是：",bSETTALKON &&打开状态信息显示程序文件的调试6.2顺序结构 顺序结构：语句输入的顺序也是该程序语句执行的顺序。顺序结构程序中的常用命令 文本输入输出命令 键盘输入命令 INPUT ACCEPT WAIT 格式化输入输出命令 @<行，列>SAY<提示信息> @<行，列>[SAY<提示信息>]GET<变量> READ【例6.6】建立程序文件6_6.prg，要求通过程序方式在“课程” 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 中添加一条新记录。CLEARUSE学生APPENDBLANK@2,8SAY"学生基本情况输入界面："@4,10SAY"学生学号："GET学号@6,10SAY"学生姓名："GET姓名@8,10SAY"学生性别："GET性别@10,10SAY"出生日期："GET出生日期@12,10SAY"所学专业："GET专业@14,10SAY"入学成绩："GET入学成绩@16,10SAY"是否党员："GET是否党员@18,10SAY"学生籍贯："GET籍贯READUSE6.3分支结构 单分支 IF…ENDIF 双分支 IF…ELSE…ENDIF 多分支DOCASE…ENDCASE单分支语法：IF<条件表达式><命令序列>ENDIF单分支双分支 语法： IF<条件表达式> <命令序列1> ELSE <命令序列2> ENDIF双分支多分支【例6.10】建立程序文件6_10.prg，其功能是输入一个分数，判断该分数属于“优秀”、“良好”、“及格”还是“不及格”。CLEARINPUT"请输入分数："TOscoreDOCASE CASEscore>100 ?"输入错误！" CASEscore>=90 ?"优秀！" CASEscore>=75 ?"良好！" CASEscore>=60 ?"及格！" OTHERWISE ?"不及格！"ENDCASE6.4循环结构 循环，即反复。 循环结构的程序，将根据条件判断，以决定是否反复执行其中的循环体。循环结构 循环体中的无条件跳转语句： LOOP：转到当 前循环的开始处 EXIT：直接跳出当前层循环 三种循环结构： 条件循环 DOWHILE…ENDDO 计数循环 FOR…ENDFOR FOR…NEXT 扫描循环 SCAN…ENDSCANDOWHILE…ENDDO循环 功能： 当WHILE后面的条件表达式为真时，反复执行中间的命令序列，直到为假时结束循环。 语法：DOWHILE<条件> <命令序列> [LOOP] [EXIT]ENDDO程序：1＋2＋3＋……＋100＝？i=1s=0DOWHILEi<=100 s=s+i i=i+1ENDDO?"1+2+...+99+100=",si=1s=0DOWHILE.T. s=s+i i=i+1 IFi>100 EXIT ENDIFENDDO?"1+2+...+99+100=",s计数循环 语法：FOR<循环变量>=<初值>TO<终值>[STEP<步长>] <命令序列> [LOOP] [EXIT]ENDFOR|NEXT程序：1＋2＋3＋……＋100＝？s=0FORi=0TO100STEP1 s=s+iENDFOR?"1+2+...+99+100=",s扫描循环 语法：SCAN[<范围>][FOR<逻辑表达式>] <命令序列> [<LOOP>] [<EXIT>]ENDSCAN 功能：扫描循环。程序示例：逐条显示表中的内容USE学生SCAN DISPLAYENDSCANUSE说明: 扫描循环的条件为：EOF()=.F. 扫描循环中暗含了SKIP语句，即每扫描完一条记录，指针将自动下移。扫描循环的等价循环结构USE学生GOTOPDOWHILE.NOT.EOF() DISPLAY SKIPENDDOUSEUSE学生FORi=1toreccount() GOi DISPLAYENDFORUSE6.5子程序、过程与自定义函数 子程序，即可供其他程序调用的程序，本身也可独立执行。 主程序与子程序 调用其他程序的程序为主程序，被其他程序调用的程序叫做子程序（或过程、自定义函数）。 过程 用户自定义函数过程 过程与一般程序的区别： 过程应有返回语句RETURN[TOMASTER] 带参数的过程调用过程文件 过程文件： 可存放多个过程的文件。 过程文件的基本形式：PROCEDURE<过程名1>……[RETURN[TOMASTER]]...PROCEDURE<过程名n>……[RETURN[TOMASTER]]带参数的过程调用 调用语句格式：DO<过程名>WITH<参数表> 定义语句格式：PROCEDURE<过程名>PARAMETERS<参数表>……[RETURN[expr]]ENDPROC用户自定义函数 用户自定义函数，即用户自己编写的函数。 调用语句格式：同系统库函数的调用。 定义语句格式：FUNCTION<函数名>[PARAMETERS<参数表>]……[RETURN[表达式]]ENDFUNC【例6.18】编程求1！+2!+…+6!+7!=?s=0FORi=1TO7 s=s+fac(i) &&调用函数ENDFOR?"1!+2!+...+6!+7!="+STR(s)FUNCTIONfac &&建立用户自定义函数facPARAMETERSn &&n为参数，用于传递数据m=1FORj=1TOn m=m*jENDFORRETURNm &&返回函数值ENDFUNC变量的作用域 变量的作用域，即在程序运行过程中变量的有效范围。 三种作用域： PUBLIC公共变量（全程变量、全局变量） 在任何程序中都可以使用。 PRIVATE私有变量 仅在当前程序及下级子程序中使用。 LOCAL局部变量 只在建立它的程序中使用，不能在上级或下级程序中使用。程序prog1示例：变量的作用域PUBLICx1LOCALx3STORE0TOx1,x2?"----------主程序----------"DISPLAYMEMORYLIKEx*DOproc1?"----------主程序----------"DISPLAYMEMORYLIKEx*PROCEDUREproc1 PRIVATEx2x2=25x4="Hello"?"----------子程序----------"DISPLAYMEMORYLIKEx*RETURNENDPROC程序运行结果：作业 P223二选择题 P224三填空题 P225四上机题1～3