第七章 VFP程序设计基础

1、第七章 VFP程序设计基础大纲要求1、命令文件的建立与运行：(1)程序文件的建立。(2)简单的交互式输入输出命令。(3)应用程序的调试与执行。2、结构化程序设计：(1)顺序结构程序设计。(2)选择结构程序设计。(3)循环结构程序设计。3、过程与过程调用。(1)子程序设计与调用。(2)过程与过程文件。(3)局部变量和全局变量、过程调用中的参数传递。4、用户定义对话框(MESSAGEBOX)的使用。知识要点1.Visual FoxPro的工作方式Visual FoxPro系统提供有三种工作方式：即命令操作方式、菜单操作方式及程序文件操作方式。2.程序的概念有关此Visual FoxPro程序的几点

2、说明:(1)注释语句【格式1】NOTE【格式2】*【格式3】&【功能】为程序行加注释说明，以增强程序文件的易读性。(2)对话开关语句【格式】SET TALK OFF|ON【功能】关闭或打开命令执行时的对话开关(3)命令的分行Visual FoxPro程序是命令行的序列，每个命令都以回车键结束，一行只能写一条命令;若一条命令太长，一行写不下，也可分行书写，并在分行处加上续行符“;”，再按回车键。3.建立或修改程序文件可用两种方式调用系统内置的文本编辑器建立或修改程序文件:命令方式MODIFY COMMAND程序文件名或MODIFY FILE程序文件名菜单方式打开“文件”菜单，选择“新建”;在“新

3、建”窗口，选择“程序”，再选择“新建文件”4.保存程序程序输入、编辑完毕，单击【文件】|【保存】菜单项，或按Ctrl+W复合键，在“另存为”对话框中指定程序文件的存放位置和文件名，并单击“保存”按钮保存程序文件并退出文本编辑器。程序文件的默认扩展名是.PRG。5.执行程序程序文件建立后，可以用多种方式、多次执行它。下面是两种常用的方式。(1)菜单方式单击【程序】|【运行】菜单项，打开“运行”对话框，选择程序文件，单击“运行”按钮;从文件列表框中选择要运行的程序文件，打开该程序文件，并单击“运行”命令按钮。(2)命令方式【格式】DO【功能】执行指定、下的程序文件注意：执行程序文件时，将依次执行文

4、件中的命令，直到所有命令执行完毕。以下是终止程序运行的几个常用命令：CANCAL:终止程序运行，清除所有私有变量，返回命令窗口。DO：转去执行另一个程序。RETURN：结束当前程序的执行，返回到调用它的上级程序，若无上级程序则返回到命令窗口。QUIT：退出VF系统，返回到操作系统。例题：(1)在Visual FoxPro中，程序文件的扩展名为_。A.prg B.qpr C.scx D.sct【解析】本题考查的知识点是程序文件的扩展名。在V1sual FoxPro中，程序文件的扩展名为.prg。答案A是程序文件的扩展名。选项B是生成的查询程序文件的扩展名。选项C是表单文件的扩展名。选项D是表单备

5、注文件的扩展名。【答案】A(2)在Visual FoxPro中，用来建立程序文件的命令是_。A.OPEN COMMANDB.CREATE COMMANDC.MODIFY COMMANDD.以上答案都不对【解析】本题考查的知识点是建立程序文件的命令的使用。在VisualFoxPro中，建立程序文件的命令是MODIFY COMMAND。选项A和B语法错误。选项C是建立程序文件的命令。选项D的说法错误。【答案】C6.输入命令INPUT【格式】INPUTTO【功能】在程序执行过程中，将用户交互式输入的内容赋值给指定内存变量,可以输入字符型、数值型、逻辑型、日期型和日期时间型等类型数据，而且可以是常量、

6、变量、函数或表达式等形式，按回车键结束输入，系统将输入的数据赋值给。注意：(1)如果选用，那么系统会首先显示该表达式的值，作为提示信息。(2)输入的数据可以是常量、变量、表达式。但不能不输入任何内容直接按回车。(3)输入字符串时必须加定界符，逻辑常量必须用圆点定界，日期常量用大括号(如2004-12-23)【举例】1.输入”张航”到XM变量中。INPUT”请输入员工姓名：”TO XM请输入员工姓名：”李小林”?XM李小林2.输入逻辑值到HF变量中表示婚姻状况。INPUT”已婚否：”TO HF已婚否：.T.?HF.T.7.输入命令ACCEPT【格式】ACCEPTTO【功能】在程序执行过程中，将用

7、户交互式输入的内容作为字符串赋值给指定内存变量。该命令只接受字符型数据，输入的字符串不需要加定界符。注意：(1)如果选用，那么系统会首先显示该表达式的值，作为提示信息。(2)该命令只能接收字符串。在输入字符串时不需要加定界符。(3)如果不输入任何内容直接按回车。系统会把空串赋给指定的内存变量。【例1】输入“平衡”到XM变量中。ACCEPT”请输入教师姓名：”TO XM请输入教师姓名：平衡?XM平衡【例2】编程从键盘输入某数据库的文件名，要求打开该数据库并显示其内容。程序文件名为PA1.PRG。MODI COMMAND PA1SET TALK OFFCLEARACCEPT请输入数据库名：TO A

8、OPEN DATABASE&AACCEPT请输入表名：TO BUSE&BLISTUSESET TALK ONRETURN8.WAIT命令【格式】WAITTOWINDOWAT,NOWAITCLEAR|NOCLEARTIMEOUT【功能】显示提示信息，暂停程序执行，直到用户按任意键或单击鼠标时继续执行程序。若选择可选项TO，将输入的单个字符作为字符型数据赋给指定的;若用户是按Enter键或单击鼠标，的值为空串。若省略所有可选项，屏幕显示“键入任意键继续”默认提示信息。【例】在STUDENT数据库的STUD表中显示任意一个系学生的情况。程序文件名为PA2.PRGSET TALK OFFCLEAROP

9、EN DATABASE学生管理USE学生WAIT请输入待查学生的学号(1-3)：TO NIF VAL(N)3WAIT输入无效，结束程序运行!WINDOW TIMEOUT 5RETURNELSESTORE0+N TO AAALIST FOR学号=AAAENDIFCLOSE DATABASESET TALK ONRETURN三条输入命令的异同INPUT命令可接受数值型、字符型、逻辑型、日期型和日期时间型数据，数据形式可以是常量、变量、函数和表达式，如果是字符串，需用定界符，输入完毕按回车键结束。ACCEPT命令只能接受字符型数据，不需定界符，输入完毕按回车键结束;WAIT命令只能输入单个字符，且不

10、需定界符，输入完毕不需按回车键;例题1.下列关于Visual FoxPro输入输出指令的说法不正确的是_。A.INPUT命令用来从键盘输入数据B.用INPUT命令输入数据时，若不输入任何数据，直接按回车键，则系统会把空字符赋给指定的内存变量C.ACCEPT命令只能接收字符串D.WAIT命令能暂停程序执行，直到用户按任意键或单击鼠标时继续程序【解析】本题考查的知识点是一些基础知识。本题一目了然选择B。【答案】B9.程序结构是指程序中命令或语句执行的流程结构。Visual FoxPro提供了三种基本结构：顺序结构、选择结构、循环结构。10.顺序结构程序设计是程序中最简单、最基本的结构。使用该结构只

11、需先把过程的各个步骤详细列出，然后将有关命令按处理的逻辑顺序自上而下排列起来。Visual FoxPro就能按程序排列的顺序，一条接一条地依次执行。11.分支结构形式有如下三种：(1)单向分支单向分支语句，即根据用户设置的条件表达式的值，决定某一操作是否执行。语句格式：IF条件表达式命令行序列ENDIF语句功能：该语句首先计算条件表达式的值，当条件表达式的值为真时，执行命令行序列;否则，执行ENDIF后面的第一条命令。【例】求一元二次方程AX2+BX+C=0的实根。程序文件名为PA3.PRG。SET TALK OFFCLEARINPUTA=TO AINPUTB=TO BINPUTC=TO CZ

12、=B2-4*A*CIF Z=0X1=(-B+SQRT(Z)/(2*A)X2=(-B-SQRT(Z)/(2*A)?X1,X2ENDIFSET TALK ONRETURN(2)双向分支双向分支语句，即根据用户设置的条件表达式的值，选择两个操作中的一个来执行。语句格式：IF条件表达式命令行序列1ELSE命令行序列2ENDIF语句功能：该语句首先计算条件表达式的值，当条件表达式的值为真时，执行命令行序列1中的命令;否则，执行命令行序列2中的命令;执行完命令行序列1或命令行序列2后都将执行ENDIF后面的第一条命令。【例】编写一密码校验程序(假设密码为ABC)。程序文件名为PA4.PRG。SET TAL

13、K OFFCLEARACCEPT“请输入您的密码：”TO AAAIF AAA=”ABC”CLEAR?”欢迎使用本系统!”ELSE?”密码错误!”WAITQUITENDIFSET TALK ON(3)多向分支多向分支语句，即根据多个条件表达式的值，选择执行多个操作中的一个对应执行。语句格式：DO CASECASE条件表达式1命令行序列1CASE条件表达式2命令行序列2CASE条件表达式N命令行序列NOTHERWISE命令行序列N+1ENDCASE【例】假设收入(P)与税率(R)的关系如下表，编程求税金。程序文件名为PA5.PRG。0 P800R=0.05 800P20000.08 2000P50

14、000.1 P5000SET TALK OFFCLEARINPUT“请输入收入：”TO PDO CASECASE P800R=0CASE P2000R=0.05CASE P5000R=0.08OTHERWISER=0.1ENDCASETAX=P*R?”税金为：”,TAXSET TALK ONRETURN语句功能：该语句根据给出的N个条件表达式的值，选择N+1个命令行序列中的一个执行。当所有CASE中条件表达式的值都是假时，如果有OTHERWISE项，则执行命令行序列N+1，再执行ENDCASE后面的第一条命令;否则，直接执行ENDCASE后面的第一条命令。(4)使用分支语句应注意的几点IFEN

15、DIF和DO CASEENDCASE必须配对使用，DO CASE与第一个CASE条件表达式之间不应有任何命令。条件表达式可以是各种表达式或函数的组合，其值必须是逻辑值。命令行序列可以由一个或多个命令组成，可以是条件控制语句组成的嵌套结构。DO CASEENDCASE命令，每次最多只能执行一个命令行序列。在多个CASE项的条件表达式值为真时，只执行第一个条件表达式值为真的命令行序列，然后执行ENDCASE的后面的第一条命令。【例】下面程序段的功能是计算-个函数f(x)的值，请写出表达式。SET TALK OFFINPUT“请输入x值：”TO xDO CASECASE x-lf=0CASE X1f

16、=2*x*x-xCASE x5f=xOTHERWISEf=0ENDCASE?f(X)=,fSET TALK ONRETURN由以上程序得A：f(x)=_。【解析】本题考查的知识点是用分支语句来实现求一个函数的值。由分支语句的特点和程序的结构可知,函数f(x)是一个分段函数，我们可以较为容易地写出函数的表达式。【答案】0(x5)f(x)=2x2-x(-1=x1)x(1=x5)12.循环结构程序设计循环结构也称为重复结构，是指程序在执行过程中，其中的某段代码被重复执行若干次。被重复执行的代码段通常称为循环体。Visual FoxPro支持循环结构的语句包括：DOWHILE-ENDDO、FOR-EN

17、DFORSCAN-ENDSCAN语句。(1)DO WHILE循环语句【格式1】DO WHILEENDDO【功能】执行该语句时，先判断是否成立，如果为真，执行，执行到ENDDO时，返回到DO WHILE，再判断。若条件为假，则结束循环，执行ENDDO后面的语句。【格式2】DO WHILELOOPEXITENDDOLOOP语句：强行返回到循环开始语句。EXIT语句：强行跳出循环，接着执行ENDDO后的语句DO WHILE循环一般由如下部分组成：初始部分。通常位于程序开头，用来保证循环程序能够开始执行。如果第一次判断条件时，条件为假，则循环体一次都部执行。工作部分，即循环体。这部分除了需要重复执行的

18、命令外、还应包括对于循环控制变量的修改，使循环进行有限次以后能够自动终止。控制部分。控制部分应保证循环程序按预定条件恰到好处地执行完毕。做到这一点，不仅要选择适当的入口条件，还要给有关的量设定适当的初值，并在循环体中对有关的量进行适当的修改，关键在于这三者恰到好处地配合。【例1】编程求1+2+3+100之和。程序文件名为PA6.PRG。SET TALK OFFCLEARS=0I=1DO WHILE I=100S=S+II=I+1ENDDO?”1+2+3+100=”,SSET TALK ONRETURN【例2】逐条显示在“学生管理”数据库的“学生”表中性别为“男”的所有记录。程序文件名为PA7.

19、PRG。SET TALK OFFCLEAROPEN DATABASE学生管理USE学生DO WHILE.NOT.EOF()IF性别=”男”DISPLAYENDIFSKIPENDDOCLOSE DATABASESET TALK ONRETURN【例3】编程显示“学生管理”数据库的“学生”表中除“李宁”以外的所有记录。程序文件名为PA8.PRG。SET TALK OFFCLEAROPEN DATABASE STUDENTUSE STUDDO WHILE.NOT.EOF()IF姓名=”李宁”SKIPLOOPENDIFDISPLAYSKIPENDDOCLOSE DATABASESET TALK ONR

20、ETURN(2)FOR循环语句【格式】FOR=TOSTEPENDFOR|NEXT使用FOR循环语句的有关说明：省略STEP，则步长为默认值1;初值、终值和步长都可以是数值表达式，但这些表达式仅在循环语句开始执行时计算一次。循环语句执行过程中，初值、终值和步长是不会改变的，并由此确定循环的次数;可以在循环体内改变循环变量的值，但会改变循环执行次数;EXIT和LOOP命令可以出现在循环体内。执行LOOP命令时，结束本次循环，循环变量增加一个步长值，返回FOR循环头判断循环条件是否成立。执行EXIT命令时,程序跳出循环，执行循环尾后面的语句。【例】从键盘输入10个数，编程找出其中的最大值和最小值。程

21、序文件名为PA9.PRG。SET TALK OFFCLEARINPUT“请从键盘输入一个数：”TO ASTORE A TO MAX,MINFOR I=2 TO 10INPUT“请从键盘输入一个数：”TO AIF MAXA MAX=AENDIFIF MINAMIN=AENDIFENDFOR?“最大值为：”,MAX?“最小值为：”,MINSET TALK ONRETURN(3)“指针”型循环控制语句“指针”型循环控制语句，即根据用户设置的表中的当前记录指针，决定循环体内语句的执行次数据。1)语句格式：SCAN范围FOR条件表达式1WHILE条件表达式2命令行序列ENDSCAN2)语句功能：该语句在指定的范围内，用数据记录指针来控制循环次数。执行语句时，首先判断函数EOF()的值，若其值为“真”，则结束循环，否则，结合条件表达式1或条件表达式2，执行命令行序列，记录指针移到指定的范围和条件内的下一条记录，重新判断函数EOF()的值，直到函数EOF()的值为真时结束循环。【例】输出“学生管理”数据库的“学生”表中所有团员的姓名和地址。程序文件名为PA10.PRG。SET TA