1、第四章 程序设计初步VFP程序设计包括结构化程序设计和面向对象程序设计。前者是传统的程序设计方法，后者面向对象，用户界面可利用VFP提供的辅助工具来设计，应用程序也可自动生成，但是仍需用户编写一些过程代码。结构化程序设计仍是面向对象程序设计的基础。,一、程序文件 1、程序文件的建立 MODIFY COMMAND 程序文件名或MODIFY FILE 程序文件名 功能：打开文本编辑窗口，用来建立或修改程序文件。编辑完后按CTRL+W即可存盘退出。 例：Modify command c:lx1,2、程序的运行DO 功能：执行由文件名表示的程序默认执行.prg文件。例：do lx1 3、程序书写规则
2、（1）程序中每条命令都以回车键结尾，一行只能写一条命令。若命令需分行书写，应在一行终了时键入续行符“；”，然后按回车键，在下一行继续输入命令。,（2）命令注释程序中加入注释，可以提高程序的可读性。注释行以“*”开头，它是一条非执行命令，仅在程序中显示。也可把注释加在命令后，这种注释以符号“&”开头 例：*输入数据use xs.dbf &打开表,4、程序文件中的专用命令 （1）程序结尾的常用命令RETURN使程序执行结束，并返回到调用它的上级程序继续执行，若无上级程序则返回到命令窗口。CANCEL它能使程序终止运行，清除程序中的私有变量，并返回到命令窗口。QUIT若要退出VFP系统，可使用QUI
3、T命令，该命令与文件菜单的退出命令功能相同。使用QUIT命令正常退出，就不会出现数据丢失或打开的文件被破坏等情况，还会自动删除磁盘中的临时文件；程序终止运行后将返回到WINDOWS。,（2）输入输出专用命令 这里仅介绍定位输入输出命令。命令格式为： SAY GET DEFAULT 功能：在屏幕的指定行列输出SAY子句的表达式值，并可修改GET子句的变量值。 说明：表示数据在窗口中显示的位置，行自顶向下编号，列自左向右编号，编号均从0开始。,SAY子句用来输出显示内容，GET子句用来输入及编辑数据。GET子句中的变量必须具有初值，或用DEFAULT子句的指定初值。GET子句的变量必须用READ命
4、令来激活，也就是说，在若干带有GET子句的定位输入输出命令后，必须遇到READ命令才能编辑GET变量。 练习: 2,3 say 输入您的月工资额： get gz default 0 read,例: SET TALK OFF USE cj CLEAR 10，10 SAY “学号” GET xh READ USE SET TALK ON,（3）WAIT命令 命令格式： WAIT TO WINDOW AT ,NOWAIT CLEAR|NOCLEAR TIMEOUT 功能：暂停程序的运行，直到用户输入一个字符。也可只用于输出一条提示信息。 说明： WAIT命令使VFP程序暂停运行，等用户按任一键（或回
5、车）后，程序继续运行。 用来保存键入的字符，如果不选TO子句，则输入的数据不予保存。,如果缺省，则执行命令后屏幕显示“按任意键继续”，提示按任一键将继续运行。WINDOW子句可使主屏幕上出现一个WAIT提示窗口，位置由AT选项的，来指定。若缺省AT选项，将显示在主屏幕右上角。 若使用NOWAIT选项，系统将不等用户按键，立即往下执行。 CLEAR选项用来关闭提示窗口。NOCLEAR表示不关闭提示窗口 TIMEOUT子句用来设定等待时间（秒数），一旦超时自动往下执行命令。,（4）accept命令 格式：ACCEPT TO 功能：暂停程序执行，将键盘输入的字符串送入指定内存变量后继续执行,主要作用
6、是在程序运行过程中获得该程序运行所需的字符型数据 。 说明：1）若给出提示信息选项，将输出提示信息，否则不输出任何信息。2）本命令只接收字符串，输入时该字符串不必定界，其长度不能超过254个字符。本命令以回车作为结束符。 例:ACCEPT “请输入姓名：” TO NAME,（5）INPUT命令 格式：INPUT TO 功能：暂停程序执行，将键盘输入的数据送入指定内存变量后再继续运行。 说明：一般用INPUT命令接收数值型数据，而用ACCEPT命令接收字符型数据，因为使用ACCEPT不需定界。,二、程序的控制结构（一）顺序结构:顺序结构的特点是按命令排列顺序一条接一条依次执行。 （二）分支结构:
7、1.单分支结构IF（条件真）语句ENDIF,假,2.双分支结构IF（条件真）语句1ELSE 语句2ENDIF,练习： *从键盘接收一个整数，若该数为偶数，显示“偶数”，否则显示“奇数” set talk off clear input “请输入一个整数:“ to num if mod(num,2)=0?“偶数“ else?“奇数“ endif set talk on,3.分支结构的嵌套若在分支结构中执行的命令序列里又包含分支结构，这是分支结构的嵌套。分支结构嵌套往往用来描述复杂问题的处理过程。 练习8：从键盘输入一个成绩，按如下原则给出相应等级：90-100：优秀 75-89：良好 60-74
8、：及格 0-59：不及格,*lx8 set talk off input “请输入成绩“ to score if score=90grade=“优秀“ elseif score=75grade=“良好“elseif score=60grade=“及格“else grade=“不及格“endifendif endif ?ltrim(str(score)+“分对应的等级是“+grade set talk on,4.多分支命令： DO CASE CASE 条件语句CASE 条件语句CASE 条件语句OTHERWISE语句 ENDCASE,*lx9 set talk off input “请输入成绩“
9、 to score do casecase score=90grade=“优秀“case score=75grade=“良好“case score=60grade=“及格“otherwisegrade=“不及格“ endcase ?ltrim(str(score)+“分对应的等级是“+grade set talk on,（三）循环结构: 1.while循环格式1:（条件循环） DO WHILE 语句 ENDDO 练习：计算s=1+2+10,格式2: DO WHILE LOOP EXIT ENDDO,LOOP语句：强行返回到循环开始语句。 EXIT语句：强行跳出循环，接着执行ENDDO后的语句
10、只能用于循环体内，并且应与分支命令（IF）联用。,DO WHILE IF EXIT ENDIF ENDDO,DO WHILE IF LOOP ENDIF ENDDO,set talk off &按姓名查询记录，可反复查询，直到用户确认退出。 use xs do while .T.clearaccept “请输入姓名“ to namelocate for xm=nameif .not.eof()displayelse?“对不起,没有找到“endifwait “需要继续查询吗(y/n)“ to ynif yn$“Yy“loopelse exitendif enddo use set talk on
11、,2.for 循环（步长循环） FOR = to step 语句 ENDFOR|NEXTEXIT和LOOP命令可以出现在循环体内。执行LOOP命令时，结束本次循环，循环变量增加一个步长值，返回FOR循环头判断循环条件是否成立。执行EXIT命令时,程序跳出循环，执行循环尾后面的语句,4.scan循环（扫描循环）SCAN forwhile 语句ENDSCAN 功能：在表中指定范围内，依次对满足条件的记录执行相应的操作，指针自动移动。 练习：显示成绩表中高数超过90分的记录,*lx14 set talk off use cj scan for gaoshu=90display endscan use set talk on,
