计算机等级考试vfp程序设计课件.ppt

1、程序设计基础 第1页，共58页。本章要点 掌握 Visual FoxPro 的工作方式，掌握程序文件的创建与编辑方法与步骤，掌握程序的基本结构，掌握顺序结构语句设计方法，掌握分支结构语句设计方法，掌握循环结构语句设计方法，掌握过程 使用方法。第2页，共58页。Visual FoxPro 的工作方式 第3页，共58页。1、命令方式 Visual FoxPro命令方式是在命令方式是在“命令命令”窗口来实现的，窗口来实现的，在在“命令命令”窗口中，可以输入单个的操作命令、系统命令窗口中，可以输入单个的操作命令、系统命令和和SQL语句，完成对数据库的操作、系统环境的设置和创语句，完成对数据库的操作、系

2、统环境的设置和创建、运行程序文件等。建、运行程序文件等。命令方式的工作特点是：输入一条操作命令，系统完成命令方式的工作特点是：输入一条操作命令，系统完成一个数据库操作。一个数据库操作。第4页，共58页。2、菜单方式 在在Visual FoxPro环境下，也可以通过系统菜单提环境下，也可以通过系统菜单提供的菜单命令对数据库进行操作，对系统环境进行设置供的菜单命令对数据库进行操作，对系统环境进行设置以及创建、运行程序文件。以及创建、运行程序文件。菜单方式的工作特点是：通过选择菜单命令完成所菜单方式的工作特点是：通过选择菜单命令完成所需的操作。需的操作。第5页，共58页。3、程序文件方式 11.1

3、Visual FoxPro的工作方式 11.1.3 程序文件方式 程序文件（简称程序）也称命令文件。在程序文件（简称程序）也称命令文件。在Visual FoxPro环境下，利用程序文件方式进行数据库管理，环境下，利用程序文件方式进行数据库管理，是通过程序文件编辑工具，将对数据库操作的命令和是通过程序文件编辑工具，将对数据库操作的命令和对系统环境进行设置的命令，集中在一个以（对系统环境进行设置的命令，集中在一个以（.PRG）为扩展名的程序文件中，然后再通过菜单方式或命令为扩展名的程序文件中，然后再通过菜单方式或命令方式运行程序文件。方式运行程序文件。第6页，共58页。4、程序文件的创建与编辑 1

4、1.1 Visual FoxPro的工作方式 11.1.4 程序文件的创建与编辑 1）.使用使用Modify Command命令命令命令格式：命令格式：Modify Command 命令功能：命令功能：创建、编辑以创建、编辑以为名的程序文件。为名的程序文件。第7页，共58页。11.1 Visual FoxPro的工作方式 11.1.4 程序文件的创建与编辑 2.以菜单方式创建、编辑程序文件以菜单方式创建、编辑程序文件1）创建程序文件）创建程序文件操作步骤如下：操作步骤如下：打开打开“文件文件”菜单，选择菜单，选择“新建新建”命令，进入命令，进入“新新建建”窗口。窗口。在在“新建新建”窗口，选择

5、窗口，选择“程序程序”选项，按选项，按“新建新建”按钮，进按钮，进入入“程序程序”编辑窗口。编辑窗口。在在“程序程序”编辑窗口，输入程序文件并保存，此时，编辑窗口，输入程序文件并保存，此时，创建程序文件的操作结束。创建程序文件的操作结束。第8页，共58页。2）编辑程序文件）编辑程序文件打开打开“文件文件”菜单，选择菜单，选择“打开打开”命令，进入命令，进入“打开打开”窗口。窗口。在在“打开打开”窗口，输入程序文件名，按窗口，输入程序文件名，按“确定确定”按钮，进入按钮，进入“程序程序”编辑窗口。编辑窗口。在在“程序程序”编辑窗口，编辑该程序文件编辑窗口，编辑该程序文件并保存，完成编辑程序文件的

6、操作并保存，完成编辑程序文件的操作第9页，共58页。11.1 Visual FoxPro的工作方式 11.1.4 程序文件的创建与编辑 3.利用设计工具建立程序代码利用设计工具建立程序代码 在在Visual FoxPro系统中，除了用上面介绍的方法创建、系统中，除了用上面介绍的方法创建、编辑程序文件外，还可以借助于编辑程序文件外，还可以借助于“表单设计器表单设计器”、“类设计类设计器器”、“菜单设计器菜单设计器”、“报表设计器报表设计器”和和“项目管理器项目管理器”等等代码设计工具完成程序代码的创建与编辑。代码设计工具完成程序代码的创建与编辑。第10页，共58页。5、程序文件的调用 11.1

7、Visual FoxPro的工作方式 11.1.5 程序文件的调用 1）.使用使用Do命令调用程序文件命令调用程序文件命令格式：命令格式：Do 命令功能：命令功能：运行以运行以为名的程序文件。为名的程序文件。第11页，共58页。2）.以菜单方式调用程序文件以菜单方式调用程序文件 操作步骤如下：操作步骤如下：（1）打开）打开“程序程序”菜单，选择菜单，选择“运行运行”命令，进入命令，进入“运行运行”窗口。窗口。（2）在）在“运行运行”窗口，选择要调用的窗口，选择要调用的程序文件，按程序文件，按“运行运行”按钮，即可运行程按钮，即可运行程序文件。序文件。第12页，共58页。程序的基本结构 第13页

8、，共58页。11.2 程序的基本结构 1.1.顺序结构顺序结构 顺序结构是在程序执行时，根据程序中语句的书写顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。顺序依次执行的命令序列。Visual FoxProVisual FoxPro系统中的大多数命系统中的大多数命令都可以作为顺序结构中的语句。令都可以作为顺序结构中的语句。2.2.分支结构分支结构 分支结构是在程序执行时，根据不同的条件，分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。的诸多问题。第14页，共58页。3.3.循环结

9、构循环结构 循环结构则能够使某些语句或程序段重复执行若干循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环结构语句是最好的选择，但是基于面复操作，使用循环结构语句是最好的选择，但是基于面向对象的程序设计思想，循环控制的操作形式更丰富，向对象的程序设计思想，循环控制的操作形式更丰富，不仅限于循环结构语句。不仅限于循环结构语句。第15页，共58页。顺序结构语句第16页，共58页。程序中的常用语句程序中的常用语句 一一.屏幕输出语句屏幕输出语句:格式格式:?|?|?功能功能:在屏幕上输出表达式的

10、内容。在屏幕上输出表达式的内容。1 1个问号为换行个问号为换行输出，输出，2 2个问号为不换行输出个问号为不换行输出第17页，共58页。【例【例1 1】编制】编制1 1个命令文件个命令文件text.prgtext.prg，保存到，保存到f:myvfpf:myvfp中，中，统计统计“教师工资表教师工资表”中的奖金和工资总额。中的奖金和工资总额。程序文件内容程序文件内容:use use 教师工资表教师工资表 sum all sum all 工资工资 to n&to n&计算工资总和计算工资总和?“?“奖金为：奖金为：”，m m?“?“工资总额为：工资总额为：”，n n第18页，共58页。二二.注释

11、语句注释语句：格式：格式：&注释内容注释内容功能：为程序中的语句作注释，注释内容不会功能：为程序中的语句作注释，注释内容不会执行。执行。三三.输入字符串语句输入字符串语句：格式格式:accept accept 字符串字符串 to to 内存变量内存变量功能功能:执行该语句时，暂停程序的运行，在屏幕上执行该语句时，暂停程序的运行，在屏幕上显示显示“字符串字符串”的内容作为提示信息，等待用户通的内容作为提示信息，等待用户通过键盘输入数据；输入数据后回车，输入的内容保过键盘输入数据；输入数据后回车，输入的内容保存到指定的内存变量中。存到指定的内存变量中。第19页，共58页。输入表达式语句输入表达式语

12、句:格式：格式：input input 表达式表达式 to to 内存变量内存变量说明：说明：(1).(1).该命令功能比该命令功能比acceptaccept强，强，acceptaccept只能输入字符型只能输入字符型数据；而数据；而inputinput可输入字符型、数值型、逻辑型和日可输入字符型、数值型、逻辑型和日期型。期型。(2).(2).使用使用inputinput时，输入字符型数据时，必须加双引时，输入字符型数据时，必须加双引号等定界符；输入逻辑型数据时，要用圆点定界符号等定界符；输入逻辑型数据时，要用圆点定界符(如如.T.).T.)；输入日期型数据要用转换函数，如；输入日期型数据要用

13、转换函数，如ctodctod（“11/15/2005”11/15/2005”）。）。第20页，共58页。五五.清屏语句：清屏语句：格式：格式：clearclear功能：清除主屏幕上的显示信息。功能：清除主屏幕上的显示信息。六六.交互状态控制交互状态控制：格式：格式：set talk off/onset talk off/on说明：该命令规定是否将命令执行结果显示在屏说明：该命令规定是否将命令执行结果显示在屏幕上。默认为幕上。默认为onon，此时，每执行完，此时，每执行完1 1条命令，结果条命令，结果即显示在屏幕上；设置为即显示在屏幕上；设置为offoff时，不显示执行结果。时，不显示执行结果。

14、一般，我们在程序文件的开头都加上该语句，抑一般，我们在程序文件的开头都加上该语句，抑制显示中间结果。制显示中间结果。第21页，共58页。七七.显示提示信息显示提示信息：格式：格式：wait window wait window 提示信息字符串提示信息字符串 timeout timeout 秒数秒数 功能：在屏幕出现提示窗口功能：在屏幕出现提示窗口 八八.返回语句返回语句：格式：格式：returnreturn功能：返回调用处或命令窗口。该语句可省略，因为在每功能：返回调用处或命令窗口。该语句可省略，因为在每个程序执行的最后，系统都会自动执行个程序执行的最后，系统都会自动执行1 1个个return

15、return语句。语句。第22页，共58页。顺序结构程序设计顺序结构程序设计在顺序结构中，各种操作块按照出现的先后次序依在顺序结构中，各种操作块按照出现的先后次序依次执行。次执行。基本语句基本语句1 1、赋值语句、赋值语句(1)STORE(1)STORE TO TO (2)(2)=第23页，共58页。2 2、程序的注释、程序的注释（1 1）行首注释）行首注释 NOTE NOTE 注释内容注释内容 或或*注释内容注释内容 注注释内容可以是任何文字，程序不执行以释内容可以是任何文字，程序不执行以NOTENOTE或或*开头的语开头的语句，只起给程序说明的作用。句，只起给程序说明的作用。（2 2）行尾

16、注释）行尾注释&注释内容注释内容。第24页，共58页。【例【例9.49.4】：求任意半径的圆的面积。】：求任意半径的圆的面积。clearclearinput“input“请输入圆的半径：请输入圆的半径：”to rto rs=3.1415926s=3.1415926*r r*r r?“?“圆的面积是：圆的面积是：”，s sreturnreturn第25页，共58页。第26页，共58页。选择结构程序设计选择结构程序设计 选择结构就是对指定的条件进行判断，如果条件成立，则执行选择结构就是对指定的条件进行判断，如果条件成立，则执行指定的语句序列。指定的语句序列。1 1、IFELSEENDIFIFELS

17、EENDIF2 2、DO CASEENDCASEDO CASEENDCASE单条件选择语句单条件选择语句IFIF双分支结构格式一：双分支结构格式一：IF IF ENDIF ENDIF执行过程是：如果所给定的条件为真，则执行执行过程是：如果所给定的条件为真，则执行“语句序列语句序列”，否则执行否则执行END IFEND IF之后的语句。之后的语句。第27页，共58页。格式二：格式二：IF IF A ELSE ELSE BENDIFENDIF 执行过程是：如果所给定的条件为真，则执行执行过程是：如果所给定的条件为真，则执行“语句序列语句序列1”1”，否则执行，否则执行“语句序列语句序列2”2”说明

18、：（说明：（1 1）语句序列又可以是）语句序列又可以是IFIF结构，称为结构，称为IFIF语句语句的嵌套。（的嵌套。（2 2）IFIF和和ENDIFENDIF必须成对出现。必须成对出现。第28页，共58页。2 2、IIFIIF函数函数IIFIIF函数可以实现一些简单的选择。函数可以实现一些简单的选择。其语法结构为：其语法结构为：IIFIIF（条件，表达式（条件，表达式1 1，表达式，表达式2 2）说明：说明：（1 1）当条件为真时，函数返回表达式）当条件为真时，函数返回表达式1 1的值。（的值。（2 2）当条件为假时，函数返回表达式当条件为假时，函数返回表达式2 2的值。（的值。（3 3）Y=

19、IIFY=IIF（条件，表达式（条件，表达式1 1，表达式，表达式2 2）相当于：）相当于：IF IF 条条件件 Y=Y=表达式表达式1ELSE Y=1ELSE Y=表达式表达式2END IF2END IF。第29页，共58页。多分支条件选择语句多分支条件选择语句DO CASEDO CASE格式：格式：DO CASE DO CASE CASE CASE 条件条件1 1 语句序列语句序列1 1 CASE CASE 条件条件2 2 语句序列语句序列2 2 OTHERWISE OTHERWISE 语句序列语句序列n n ENDCASE ENDCASE第30页，共58页。某种商品一次购买某种商品一次购

20、买 100100件以上时，可享受件以上时，可享受8%8%的优惠。的优惠。试编程根据输入的单价和数量计算应付金额。试编程根据输入的单价和数量计算应付金额。CLEARCLEARINPUT INPUT 数量：数量：TO a TO aINPUT INPUT 单价：单价：TO b TO bj=aj=a*b bIF sl=100IF sl=100j=jj=j*0.920.92ENDIFENDIF?应付金额：应付金额：“,j,jreturnreturn第31页，共58页。出租车不超过出租车不超过5 5公里时一律收费公里时一律收费1010元，超过时元，超过时则超过部分每公里加收则超过部分每公里加收1.61.6

21、元。试编程根据里元。试编程根据里程数计算并显示出应付车费。程数计算并显示出应付车费。CLEARCLEARINPUT INPUT 里程：里程：TO c TO cIFIF c=5 c=5 c=5rate=4.5rate=4.5&年利率为年利率为4.5%4.5%CASECASE c=3 c=3 rate=3.6rate=3.6&年利率为年利率为3.6%3.6%CASECASE c=2 c=2rate=3.1rate=3.1&年利率为年利率为3.1%3.1%第33页，共58页。CASECASE c=1 c=1rate=2.7rate=2.7&年利率为年利率为2.7%2.7%CASECASE c=0.5

22、 c=0.5rate=2.21rate=2.21&年利率为年利率为2.21%2.21%otherwiseotherwiserate=1.23rate=1.23&年利率为年利率为1.23%1.23%ENDCASE ENDCASElixi=blixi=b*c c*rate/100rate/100?&输出一个空行输出一个空行?应得利息：应得利息：“,lixi,lixireturnreturn第34页，共58页。【例【例9.69.6】:设计设计1 1个程序名为个程序名为test4.prgtest4.prg，使用，使用do casedo case语句语句在在“学生情况表学生情况表”中按学号或姓名查询程序

23、文件内容：中按学号或姓名查询程序文件内容：clearclearuse use 学生情况表学生情况表wait“wait“请选择按姓名或按学号查询请选择按姓名或按学号查询(M/X)”to xz(M/X)”to xzdo casedo casecase xz$“Mm”&case xz$“Mm”&此条件为真，说明选择了此条件为真，说明选择了M M，即按姓名查，即按姓名查询询accept“accept“请输入待查人姓名：请输入待查人姓名：”to xmto xmlocate for locate for 姓名姓名=xm=xmcaxe xz$“Xx”caxe xz$“Xx”accept“accept“请输入

24、待查学号：请输入待查学号：”to xhto xhlocate for locate for 学号学号=xh=xhotherwiseotherwisewait“wait“查询选择错误查询选择错误!按任意键退出按任意键退出!”wind!”windendcaseendcase第35页，共58页。循环结构程序设计循环结构程序设计 程序设计中的循环结构（简称循环）是指在该程序中，程序设计中的循环结构（简称循环）是指在该程序中，从某处开始有规律地反复执行某一操作（或程序块）的从某处开始有规律地反复执行某一操作（或程序块）的现象。被重复执行的的部分称为现象。被重复执行的的部分称为循环体循环体，必须确保循，必

25、须确保循环的重复执行能被终止（无死循环）。环的重复执行能被终止（无死循环）。按照循环体执行的方式和条件，在按照循环体执行的方式和条件，在VFPVFP中提供了中提供了“当当型型”和和“步长型步长型”和和“表扫描型表扫描型”三种循环语句：三种循环语句：DO whileenddoDO whileenddo（当型）、（当型）、FOR endforFOR endfor（步长型）、（步长型）、SCANENDSCANSCANENDSCAN（表扫描型）。（表扫描型）。第36页，共58页。当型循环命令当型循环命令DO WHILEDO WHILE格式：格式：DO WHILE DO WHILE 语句序列语句序列 E

26、XITEXIT 语句序列语句序列 LOOPLOOP 语句序列语句序列 ENDDO ENDDO第37页，共58页。说明：说明：（1 1）每执行一次循环体，程序自动返回到）每执行一次循环体，程序自动返回到DO WHILEDO WHILE语语句，判断一次句，判断一次 。（2 2）EXITEXIT是无条件结束循环命令。它使程序跳出是无条件结束循环命令。它使程序跳出循环，转去执行循环，转去执行ENDDOENDDO之后的语句。之后的语句。（3 3）LOOPLOOP是无条件循环命令。它将控制直接转回到是无条件循环命令。它将控制直接转回到DO DO WHILEWHILE语句，而不执行语句，而不执行LOOPLO

27、OP和和ENDDOENDDO之间的语句。之间的语句。（4 4）DO WHILEDO WHILE和和ENDDOENDDO必须各占一行，且必须成对出现。必须各占一行，且必须成对出现。第38页，共58页。求求1+2+3+.+100的累计值。的累计值。CLEARCLEARN=0N=0S=0S=0DO WHILE n100DO WHILE n100n=n+1n=n+1s=s+ns=s+nENDDOENDDO?累计值为：累计值为：“,s,sRETURNRETURN第39页，共58页。步长型循环命令步长型循环命令FORFOR若事先知道循环次数，则可以用步长型循环结构。若事先知道循环次数，则可以用步长型循环结

28、构。FOR FOR=TO TO STEP STEP 语句序列语句序列 EXIT EXIT 语句序列语句序列 LOOP LOOP 语句序列语句序列 ENDFOR ENDFOR说明说明:（1 1）是一个作为计数器的内存变量，在该结构之是一个作为计数器的内存变量，在该结构之前可以不存在。前可以不存在。是计数器的初值，是计数器的初值，是计数器值是计数器值的增长或减小量。的增长或减小量。（2 2）其余情况与）其余情况与DO WHILEDO WHILE结构相似。结构相似。第40页，共58页。1+2+3+.+100的累计值。的累计值。CLEARs=0FOR n=1 TO 100 s=s+nENDFOR?S=

29、“,sRETURN第41页，共58页。求求N N！Set talk offSet talk offp=1p=1For y=1 to nFor y=1 to nP=pP=p*y yEndforEndfor第42页，共58页。【例【例9.89.8】：求】：求1 1！+2+2！+3+3！+20+20！的值。！的值。可在计算按钮的可在计算按钮的ClickClick事件中编写如下代码事件中编写如下代码:S=0S=0FOR N=1 TO 20FOR N=1 TO 20 T=1 T=1 FOR M=1 TO N FOR M=1 TO N T=T T=T*M M ENDFOR ENDFOR S=S+T S=S

30、+TENDFORENDFOR第43页，共58页。表扫描型表扫描型SCANENDSCANSCANENDSCAN格式：格式：scan scan 范围范围for for 条件条件 语句序列语句序列endscanendscan功能功能:对表中指定范围，满足条件的记录执行循环体语对表中指定范围，满足条件的记录执行循环体语句，每执行一次循环，记录指针自动移动到下一句，每执行一次循环，记录指针自动移动到下一条记录。操作表时，使用该语句功能强，效率高。条记录。操作表时，使用该语句功能强，效率高。第44页，共58页。【例【例9.99.9】：使用】：使用scanscan语句编程，显示语句编程，显示“教师教师基本信

31、息表基本信息表”中的党员的姓名和职称。中的党员的姓名和职称。use use 教师基本信息表教师基本信息表scan for.not.scan for.not.党员否党员否display display 姓名，职称姓名，职称endscanendscanuseusereturnreturn第45页，共58页。用扫描型循环结构编程，输出职工档案数据表中基用扫描型循环结构编程，输出职工档案数据表中基本工资在本工资在800元以下的职工姓名及其基本工资数，元以下的职工姓名及其基本工资数，并输出这些职工的人数。并输出这些职工的人数。CLEAR ALLUSE zgdaCLEARSTORE 0 TO nSCAN

32、FOR基本工资基本工资800?姓名姓名,基本工资基本工资 n=n+1ENDSCAN?基本工资在基本工资在800元以下的职工共有：元以下的职工共有：+STR(n,3)+人人CLOSE DATABASERETURN第46页，共58页。使用循环语句的注意事项 11.5 循环结构语句 11.5.4 使用循环语句的注意事项 （1）Do While和和EndDo、For和和EndFor、Scan和和EndScan必须配对使用。必须配对使用。（2）可以是任何可以是任何FoxPro命令或语句，也命令或语句，也可以是循环语句，即可以为多重循环。可以是循环语句，即可以为多重循环。（3）应是数值型的内存变量或数组元

33、素。应是数值型的内存变量或数组元素。第47页，共58页。（4）Exit和和Loop命令嵌入在循环体内，可以改变循命令嵌入在循环体内，可以改变循环次数，但是不能单独使用。环次数，但是不能单独使用。Exit的功能是跳出循环，转去执行的功能是跳出循环，转去执行EndDo、EndFor、EndScan后面的第一条命令；后面的第一条命令；Loop的功能是转回到循环的开始处，重新对的功能是转回到循环的开始处，重新对“条件条件”进行判断，相当于执行了一次进行判断，相当于执行了一次EndDo、EndFor、EndScan命令，它可以改变命令，它可以改变中部分命令的执行次数；中部分命令的执行次数；Exit、Lo

34、op可以出现在可以出现在的任意位置。的任意位置。第48页，共58页。练习：1、以下循环体共执行了（）次For i=1 to 10?ii=i+1EndforA.10 B.5 C.0 D.语法错误第49页，共58页。以下程序的运行结果是：（1）。a=10if a0b=a2 else b=sqrt(a)endif?b第50页，共58页。s=0for n=1 to 10 s=s+n endfor?s第51页，共58页。2、以下程序正确的运行结果是（）Do while.not.Eof()locate for xb=“男”Display Continue enddo第52页，共58页。3、数据库文件CJ.

35、DBF中有两条记录，内容如下：XM ZF1 李四 500.002 张三 600.00Set talk offUse cjA=0Do while.not.eof()A=a+zfSkipEnddo?aReturn程序运行的结果是（）A.1100 B.1000 C.1600 D.1200第53页，共58页。本程序运行后输出的结果是（本程序运行后输出的结果是（）A=10A=10B=11B=11C=12C=12D=13D=13If baIf baC=dC=dA=cA=cEndifEndif?a?a第54页，共58页。Set talk offSet talk offStore 0 to mStore 0

36、to mFor n=1 to 8For n=1 to 8M=m+nM=m+nEndforEndfor?”m=“,m?”m=“,m结果为（结果为（）a.36 b.35 c.30 d.26a.36 b.35 c.30 d.26第55页，共58页。设成绩库cjk.dbf中“数学”这门课程的学分为4，其学分计算的方法如下：数学=90,学分值为480=数学90 ,学分值为370=数学80 ,学分值为260=数学70 ,学分值为1数学60 ,学分值为0计算任一学生数学这门课程的学分值的程序。第56页，共58页。Set talk offUse cjkAccpet”输入学号：输入学号：“to xhXf=0Locate for 学号学号=xhDo case Case_ Xf=4 case_ xf=3 case_ xf=2 case_ xf=1第57页，共58页。Othersize xf=0Endcase?”学号：”,xh?”数学的学分值：“,xfUsereturn第58页，共58页。