【文档说明】计算机等级考试vfp程序设计课件.ppt，共(58)页，476.500 KB，由小橙橙上传

转载请保留链接：https://www.ichengzhen.cn/view-2503.html

以下为本文档部分文字说明：

程序设计基础第1页，共58页。本章要点掌握VisualFoxPro的工作方式，掌握程序文件的创建与编辑方法与步骤，掌握程序的基本结构，掌握顺序结构语句设计方法，掌握分支结构语句设计方法，掌握循环结构语句设计方法，掌握过程使用方法。第2页，共

58页。VisualFoxPro的工作方式第3页，共58页。1、命令方式VisualFoxPro命令方式是在“命令”窗口来实现的，在“命令”窗口中，可以输入单个的操作命令、系统命令和SQL语句，完成对数据库的操作、系统环

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

对系统环境进行设置以及创建、运行程序文件。菜单方式的工作特点是：通过选择菜单命令完成所需的操作。第5页，共58页。3、程序文件方式11.1VisualFoxPro的工作方式11.1.3程序文件方式程序文件（简称程序）也称命令文件。在

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

创建与编辑11.1VisualFoxPro的工作方式11.1.4程序文件的创建与编辑1）.使用ModifyCommand命令命令格式：ModifyCommand<程序文件名>命令功能：创建、编辑以<程序文件名>为名的程序文件。第7页

，共58页。11.1VisualFoxPro的工作方式11.1.4程序文件的创建与编辑2.以菜单方式创建、编辑程序文件1）创建程序文件操作步骤如下：①打开“文件”菜单，选择“新建”命令，进入“新建”窗口。②在“新建”窗口，选择“程序”选项，按“新建”按钮

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

编辑窗口。•③在“程序”编辑窗口，编辑该程序文件并保存，完成编辑程序文件的操作第9页，共58页。11.1VisualFoxPro的工作方式11.1.4程序文件的创建与编辑3.利用设计工具建立程序代码在VisualFoxP

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

.5程序文件的调用1）.使用Do命令调用程序文件命令格式：Do<程序文件名>命令功能：运行以<程序文件名>为名的程序文件。第11页，共58页。2）.以菜单方式调用程序文件–操作步骤如下：•（1）打开“程序”菜单，选择“运行”命令，进入“运行”窗口。•（2）在“运行

”窗口，选择要调用的程序文件，按“运行”按钮，即可运行程序文件。第12页，共58页。程序的基本结构第13页，共58页。11.2程序的基本结构1.顺序结构顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。Vi

sualFoxPro系统中的大多数命令都可以作为顺序结构中的语句。2.分支结构分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。第14页，共58页。•3.循

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

页。程序中的常用语句一.屏幕输出语句:格式:?|??功能:在屏幕上输出表达式的内容。1个问号为换行输出，2个问号为不换行输出第17页，共58页。•【例1】编制1个命令文件text.prg，保存到f:\myvfp中，统计“教师工资表”中的奖金和工资总额

。•程序文件内容:•use教师工资表•sumall工资ton&&计算工资总和•?“奖金为：”，m•?“工资总额为：”，n第18页，共58页。二.注释语句：格式：&&注释内容功能：为程序中的语句作注释，注释内容不会

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

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

据时，要用圆点定界符(如.T.)；输入日期型数据要用转换函数，如ctod（“11/15/2005”）。第20页，共58页。五.清屏语句：格式：clear功能：清除主屏幕上的显示信息。六.交互状态控制：格式：settalkoff/on说明：该

命令规定是否将命令执行结果显示在屏幕上。默认为on，此时，每执行完1条命令，结果即显示在屏幕上；设置为off时，不显示执行结果。一般，我们在程序文件的开头都加上该语句，抑制显示中间结果。第21页，共58页。七.

显示提示信息：格式：waitwindow提示信息字符串[timeout秒数]功能：在屏幕出现提示窗口八.返回语句：格式：return功能：返回调用处或命令窗口。该语句可省略，因为在每个程序执行的最后，系统都会自动执行1个return语句。第22页，共58页。顺序结构

程序设计在顺序结构中，各种操作块按照出现的先后次序依次执行。基本语句1、赋值语句(1)STORE<表达式>TO<变量名表>(2)<变量名>=<表达式>第23页，共58页。•2、程序的注释•（1）行首注释NOTE[注释内容]或*[注释内容

]注释内容可以是任何文字，程序不执行以NOTE或*开头的语句，只起给程序说明的作用。•（2）行尾注释&&[注释内容]。第24页，共58页。【例9.4】：求任意半径的圆的面积。clearinput“请输入圆的半径：”tors=3

.1415926*r*r?“圆的面积是：”，sreturn第25页，共58页。第26页，共58页。选择结构程序设计选择结构就是对指定的条件进行判断，如果条件成立，则执行指定的语句序列。1、IF……ELSE……EN

DIF2、DOCASE……ENDCASE•单条件选择语句IF•双分支结构格式一：IF<条件><语句序列>ENDIF执行过程是：如果所给定的条件为真，则执行“语句序列”，否则执行ENDIF之后的语句。第27页，共58页。格式二：IF<条件><语句序列A>ELSE<语句序列B>ENDIF执

行过程是：如果所给定的条件为真，则执行“语句序列1”，否则执行“语句序列2”说明：（1）语句序列又可以是IF结构，称为IF语句的嵌套。（2）IF和ENDIF必须成对出现。第28页，共58页。2、IIF函数IIF函数可以实现一些简单的选择。其语法结构为：II

F（条件，表达式1，表达式2）说明：（1）当条件为真时，函数返回表达式1的值。（2）当条件为假时，函数返回表达式2的值。（3）Y=IIF（条件，表达式1，表达式2）相当于：IF条件Y=表达式1ELSEY=表达式2

ENDIF。第29页，共58页。•多分支条件选择语句DOCASE格式：DOCASECASE条件1语句序列1CASE条件2语句序列2……[OTHERWISE]语句序列nENDCASE第30页，共58页。某种商品一次购买100件以上时，可享受8%的优惠。试编程

根据输入的单价和数量计算应付金额。CLEARINPUT"数量："TOaINPUT"单价："TObj=a*bIFsl>=100j=j*0.92ENDIF?"应付金额：“,jreturn第31页，共58页。出租车不超过5公里时一律收费10元，超过时则超过部分

每公里加收1.6元。试编程根据里程数计算并显示出应付车费。CLEARINPUT"里程："TOcIFc<=5?"车费为：十元"ELSEf=10+(c-5)*1.6?"车费为：“,fENDIFRETURN第32页，共58页。编程计算银行存款整存整取应得的利息。CLEARINPUT

"本金（元）："TObINPUT"存期（年）："TOcDOCASECASEc>=5rate=4.5&&年利率为4.5%CASEc>=3rate=3.6&&年利率为3.6%CASEc>=2rate=3.1&&年利率为3.1%第33页，共58页。CASEc>=1r

ate=2.7&&年利率为2.7%CASEc>=0.5rate=2.21&&年利率为2.21%otherwiserate=1.23&&年利率为1.23%ENDCASElixi=b*c*rate/100?&&输出一个空行?"应得利息

：“,lixireturn第34页，共58页。【例9.6】:设计1个程序名为test4.prg，使用docase语句在“学生情况表”中按学号或姓名查询程序文件内容：clearuse学生情况表wait“请选择按姓名或按学号查询(M/X)”

toxzdocasecasexz$“Mm”&&此条件为真，说明选择了M，即按姓名查询accept“请输入待查人姓名：”toxmlocatefor姓名=xmcaxexz$“Xx”accept“请输入待查学号：”toxhlocatefor学号=xho

therwisewait“查询选择错误!按任意键退出!”windendcase第35页，共58页。循环结构程序设计程序设计中的循环结构（简称循环）是指在该程序中，从某处开始有规律地反复执行某一操作（或程序块）的现象。被重复执行的的部分称为循环体，必须确保循环的重复执

行能被终止（无死循环）。按照循环体执行的方式和条件，在VFP中提供了“当型”和“步长型”和“表扫描型”三种循环语句：DOwhile……enddo（当型）、FOR……endfor（步长型）、SCAN……ENDSCAN（表扫描型）。第36页，共58页

。•当型循环命令DOWHILE格式：DOWHILE<条件>[语句序列][EXIT][语句序列][LOOP][语句序列]ENDDO第37页，共58页。•说明：•（1）每执行一次循环体，程序自动返回到DOWHILE语句，判断一次<条件>。•（2）EXIT是无条件结束循环命令。它使程序跳

出循环，转去执行ENDDO之后的语句。•（3）LOOP是无条件循环命令。它将控制直接转回到DOWHILE语句，而不执行LOOP和ENDDO之间的语句。•（4）DOWHILE和ENDDO必须各占一行，且必须成对出现。第38页

，共58页。求1+2+3+...+100的累计值。CLEARN=0S=0DOWHILEn<100n=n+1s=s+nENDDO?"累计值为：“,sRETURN第39页，共58页。•步长型循环命令FOR若事先知道循环次数，则可以用步长型循环结构。FOR<变量>=<初值>T

O<终值>[STEP<步长值>][语句序列][EXIT][语句序列][LOOP][语句序列]ENDFOR说明:（1）<变量>是一个作为计数器的内存变量，在该结构之前可以不存在。<初值>是计数器的初值，<步长值>是计数器值的增长或减小量。（2）其余情况与DOWHILE结构相似。第40页，共58页。1

+2+3+...+100的累计值。CLEARs=0FORn=1TO100s=s+nENDFOR?"S=“,sRETURN第41页，共58页。求N！Settalkoffp=1Fory=1tonP=p*yEndfor第42页，共58页。【例9.8】：求1！+2！+3

！……+20！的值。可在计算按钮的Click事件中编写如下代码:S=0FORN=1TO20T=1FORM=1TONT=T*MENDFORS=S+TENDFOR第43页，共58页。•表扫描型SCAN……ENDSCAN格式：scan[范围][for条件]语句序列endscan功能

:对表中指定范围，满足条件的记录执行循环体语句，每执行一次循环，记录指针自动移动到下一条记录。操作表时，使用该语句功能强，效率高。第44页，共58页。【例9.9】：使用scan语句编程，显示“教师基本信息表”中的党员的姓名和职称。use教师基本

信息表scanfor.not.党员否display姓名，职称endscanusereturn第45页，共58页。用扫描型循环结构编程，输出职工档案数据表中基本工资在800元以下的职工姓名及其基本工资数，并输出这些职工的人数。CLEARALLUSEzgdaCLEARSTORE0TOnSCANFOR基

本工资<800?姓名,基本工资n=n+1ENDSCAN?"基本工资在800元以下的职工共有："+STR(n,3)+"人"CLOSEDATABASERETURN第46页，共58页。使用循环语句的注意事项11.5循环结构

语句11.5.4使用循环语句的注意事项（1）DoWhile和EndDo、For和EndFor、Scan和EndScan（2）<命令行序列>可以是任何FoxPro命令或语句，也可以是循环语句，即可以为多重循环。（3）<循环变量>应是数值型的内存变量或数组元素。第47页，共58页。•（4

）Exit和Loop命令嵌入在循环体内，可以改变循环次数，但是不能单独使用。•①Exit的功能是跳出循环，转去执行EndDo、EndFor、EndScan后面的第一条命令；•②Loop的功能是转回到循环的开始处，重新对“条件”进行判断，相当于执行了一次En

dDo、EndFor、EndScan命令，它可以改变<命令行序列>中部分命令的执行次数；•Exit、Loop可以出现在<命令行序列>的任意位置。第48页，共58页。练习：1、以下循环体共执行了（）次Fori=1to1

0?ii=i+1EndforA.10B.5C.0D.语法错误第49页，共58页。以下程序的运行结果是：（1）。a=10ifa>0b=a^2elseb=sqrt(a)endif?b第50页，共58页。s=0forn=1to10s=s+nendfor?s第

51页，共58页。•2、以下程序正确的运行结果是（）•Dowhile.not.Eof()•locateforxb=“男”•Display•Continue•enddo第52页，共58页。•3、数据库文件CJ.DBF中有两条记录，内容如下：•XMZF•1李四500.00•2

张三600.00•Settalkoff•Usecj•A=0•Dowhile.not.eof()•A=a+zf•Skip•Enddo•?a•Return•程序运行的结果是（）•A.1100B.1000C.1600D.1200第53页，共58

页。本程序运行后输出的结果是（）A=10B=11C=12D=13Ifb>aC=dA=cEndif?a第54页，共58页。SettalkoffStore0tomForn=1to8M=m+nEndfor?”m=“,m结果为（）a.36b.35c.30d.26第55页，共58页。设成绩

库cjk.dbf中“数学”这门课程的学分为4，其学分计算的方法如下：数学>=90,学分值为480<=数学<90,学分值为370<=数学<80,学分值为260<=数学<70,学分值为1数学<60,学分值

为0计算任一学生数学这门课程的学分值的程序。第56页，共58页。SettalkoffUsecjkAccpet”输入学号：“toxhXf=0Locatefor学号=xhDocaseCase________________________________

_Xf=4case_______________________________xf=3case_______________________________xf=2case_______________________________xf=1第57页，共58页。Othe

rsizexf=0Endcase?”学号：”,xh?”数学的学分值：“,xfUsereturn第58页，共58页。