程序设计基实用教案

1、6.1.1 程序(chngx)的建立与编辑创建程序:(1)在“文件”菜单中选择(xunz)“新建”命令（或工具栏中“新建”按钮），然后在“新建”对话框中选择(xunz)“程序”单选按钮，再单击“新建文件”按钮。(2)命令窗口中,键入命令：MODIFY COMMAND 文件名扩展名保存程序(1)从“文件”菜单中选取“保存”命令 (2)按“CTRL+W”组合键 。编辑程序（1）在“文件”菜单中选择(xunz)“打开”命令（2）命令窗口中：MODIFY COMMAND 第1页/共55页第一页，共56页。程序的书写(shxi)规则 注释语句(yj) 格式： NOTE *& 对话开关语句(yj)

2、 格式：SET TALK OFF|ON 输出语句(yj) 格式：？ 格式：？ 命令的分行 每个命令都以回车键结束，一行只能写一条命令；若一条命令太长，并在分行处加上续行符“；” 。第2页/共55页第二页，共56页。6.1.2 程序(chngx)文件的运行 单击“程序”菜单中的“运行”命令，在打开的运行对话框中找到要执行的程序文件，单击“运行”按钮。 单击常用工具栏上的“运行”按钮。 在命令窗口中键入命令：DO 程序文件名前可以使用路径，否则指系统默认目录。若运行的是.PRG程序则扩展名可以省略(shngl)。若运行其他的程序则扩展名不能省； 第3页/共55页第三页，共56页。6.1.2 程序文

3、件(wnjin)的运行 执行程序文件时，将依次执行文件中的命令，直到所有命令执行完毕，或者执行到以下命令： CANCAL：终止程序运行，清除所有的私有变量，返回命令窗口； retry：返回到调用行本身，可以实现程序的重复调用。 RETURN：结束程序执行，返回调用它的上级程序，若无上级程序则返回命令窗口； QUIT：结束程序执行并退出(tuch)Visual FoxPro系统，返回操作系统 第4页/共55页第四页，共56页。6.1.3 简单(jindn)的输入输出命令6.1.3 简单的输入输出命令1ACCEPT命令【格式】ACCEPT TO 【功能】在程序执行过程中，将用户交互式输入的内容(n

4、irng)作为字符串赋值给指定内存变量。 该命令只接受字符型数据，输入的字符串不需要加定界符 第5页/共55页第五页，共56页。 【例6-2】编程从键盘输入某数据库的文件名，要求打开(d ki)该数据库并显示其内容。程序文件名为PROG2.PRG。MODI COMMAND PROG2SET TALK OFFCLEARACCEPT “请输入数据库名：” TO AAAOPEN DATABASE &AAAACCEPT 请输入表名 TO BBBUSE &BBBLISTUSESET TALK ONRETURN第6页/共55页第六页，共56页。2INPUT命令 【格式】INPUT TO 【

5、功能】在程序执行过程中，将用户交互式输入的内容赋值给指定(zhdng)内存变量 可以输入字符型、数值型、逻辑型、日期型和日期时间型等类型数据，而且可以是常量、变量、函数或表达式等形式，按回车键结束输入，系统将输入的数据赋值给。第7页/共55页第七页，共56页。【例6-4】从键盘输入两个任意正数，编程求以两数为边长的长方形面积。程序(chngx)文件名为PROG4.PRGSET TALK OFFCLEARINPUT “长方形一边的长为：” TO AINPUT “长方形另一边的长为：” TO BS=A*B? “长方形的面积为：” , SSET TALK ON RETURN第8页/共55页第八页，共

6、56页。3WAIT命令命令【格式】【格式】WAIT TO WINDOW AT, NOWAIT CLEAR|NOCLEAR TIMEOUT【功能】显示提示信息，暂停程序执行，直到用户【功能】显示提示信息，暂停程序执行，直到用户按任意键或单击鼠标时继续执行程序。按任意键或单击鼠标时继续执行程序。 若选择可选项若选择可选项TO ，将输入的单，将输入的单个字符个字符(z f)作为字符作为字符(z f)型数据赋给指定的型数据赋给指定的；若用户是按；若用户是按Enter键或单击鼠标，键或单击鼠标，的值为空串。的值为空串。 若省略所有可选项，屏幕显示若省略所有可选项，屏幕显示“键入任意键继键入任意键继续续”

7、默认提示信息默认提示信息 第9页/共55页第九页，共56页。【 例 6 - 6 】 在 S T U D E N T 数 据 库 的 S T U D 表 中 显 示 任 意 一 个 系 学 生 的 情 况(qngkung)。程序文件名为PROG6.PRGSET TALK OFFCLEAROPEN DATABASE STUDENTUSE STUDWAIT “请输入待查学生的系号（13）：” TO NIF VAL(N)3WAIT “输入无效，结束程序运行！” WINDOW TIMEOUT 5RETURNELSESTORE “0”+N TO AAALIST FOR 系别号=AAAENDIFCLOSE

8、DATABASESET TALK ONRETURN 第10页/共55页第十页，共56页。4三条输入命令的异同三条输入命令的异同ACCEPT命令只能接受字符型数据，不需定界符，输入完毕命令只能接受字符型数据，不需定界符，输入完毕(wnb)按回车键结束；按回车键结束； WAIT命令只能输入单个字符，且不需定界符，输入完毕命令只能输入单个字符，且不需定界符，输入完毕(wnb)不不需按回车键；需按回车键； INPUT命令可接受数值型、字符型、逻辑型、日期型和日期时间型命令可接受数值型、字符型、逻辑型、日期型和日期时间型数据，数据形式可以是常量、变量、函数和表达式，如果是字符串，数据，数据形式可以是常量

9、、变量、函数和表达式，如果是字符串，需用定界符，输入完毕需用定界符，输入完毕(wnb)按回车键结束。按回车键结束。 第11页/共55页第十一页，共56页。程序的基本程序的基本(jbn)(jbn)结构结构 Visual FoxPro Visual FoxPro系统提供的命令丰富，且功能强大，把这些命令和程序设计语句有效地组织在一起，就形成(xngchng)(xngchng)了实现某一特定功能的程序。 Visual FoxPro Visual FoxPro系统的程序有两个特点：一是程序控制流模式，由顺序、分支、循环三种基本结构构成。二是面向对象可视化的结构程序模块，在每个模块的内部也是由程序控制流

10、组成。常见的控制结构如下： 1 1顺序结构 顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。Visual FoxProVisual FoxPro系统中的大多数命令都可以作为顺序结构中的语句。 2 2分支结构 分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。第12页/共55页第十二页，共56页。 3循环结构 循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。 4过程结构 在许多应用程序中，有一些程序段需要反复执行多次，这些程序段不在一个固定的位置上，而是分

11、散在程序的许多位置上重复执行，可将其与嵌入它的程序分开，形成独立的程序序列，待使用时再调入程序中，以实现不同位置上的重复操作。这样做增强了程序的可读性和模块化。我们称这种具有独立功能而且可以被其它(qt)程序调用的程序序列为过程。第13页/共55页第十三页，共56页。6.2 程序(chngx)的基本结构求解的基本逻辑：VFP程序多数用于数据处理，解决问题的基本逻辑是：输入数据处理数据输出数据。 程序的通用性：程序的通用性指程序对多种场合(chng h)的适应性，通用性好的程序的应用范围较广。 第14页/共55页第十四页，共56页。6.2.1 顺序(shnx)结构 顺序结构是在程序执行时，根据(

12、gnj)程序中语句的书写顺序依次执行的命令序列。 例题：将学生表中学号为20050008，其姓名一栏由万华改为万强。 CLEAR SET TALK OFF OPEN DATABASE 学生 USE 学生 ACCEPT “请输入要修改记录的学号：” to xh LOCATE FOR 学号=xh REPLACE 姓名 WITH “万强” USE CLOSE DATABASE SET TALK ON RETURN第15页/共55页第十五页，共56页。6.2.2 选择(xunz)结构 单分支选择单向选择语句(yj)，即根据用户设置的条件表达式的值，决定某一操作是否执行。（1）语句(yj)格式：IF条件

13、表达式语句(yj)序列ENDIF（2）单向条件转向语句(yj)的流程图 第16页/共55页第十六页，共56页。双分支选择双向选择语句，即根据用户设置(shzh)的条件表达式的值，选择两个操作中的一个来执行。（1）语句格式：IF条件表达式语句序列1ELSE语句序列2ENDIF第17页/共55页第十七页，共56页。 真 条 件 式 假 语 句 序 列2 语 句 序 列1 ENDIF后 面 语 句 第18页/共55页第十八页，共56页。例：输入两个(lin )实数，求它们的最大值。set talk offclearinput “实数a=” to ainput “实数b=” to bif a=b ma

14、x=aelse max=bendif? a,”与”,b,”中的最大值为：”,maxreturn第19页/共55页第十九页，共56页。也可以(ky)用单分支的选择语句来实现set talk offclearinput “实数a=” to ainput “实数b=” to bmax=aif ba max=bendif? a,”与”,b,”中的最大值为：”,maxreturn第20页/共55页第二十页，共56页。例：输入一个大于0的年份值，判断该一年份是否是闰年(rnnin)，如果是闰年(rnnin)，就输出“xxxx年是闰年(rnnin)”，否则输出“xxxx年不是闰年(rnnin)”。.闰年(r

15、nnin)的条件是：能被4整除但不能被100整除，或能被100整除且能被400整除。 第21页/共55页第二十一页，共56页。多向选择语句，即根据(gnj)多个条件表达式的值，选择执行多个操作中的一个对应执行。（1）语句格式：DO CASECASE条件表达式1CASE条件表达式2 CASE条件表达式NOTHERWISE ENDCASE 真 条件式 2 语句序列 1 ENDCASE 后面语句 条件式 n-1 Otherwise 条件式 1 真 语句序列 2 真 语句序列 n-1 有 语句序列 n 无 第22页/共55页第二十二页，共56页。【例】假设收入（P）与税率（R）的关系如下表，编程求税金

16、。程序文件名为TAX.PRG。 0 ， P800R= 0.05 ， 800 P2000 0.08 ， 2000P5000 0.1 ， P5000第23页/共55页第二十三页，共56页。SET TALK OFFCLEARINPUT “请输入(shr)收入：” TO PDO CASE CASE P800 R=0 CASE P2000 R=0.05 CASE P=b,a,b)? a,”与”,b,”中的最大值为：”,maxreturn第27页/共55页第二十七页，共56页。例：用IIF( )来实现P.163 例6-7。文件名exam_if_1.prgset talk offclearinput “实数

17、(shsh)x=” to xy=iif(x0,iif(x10,x*x+1,3*x*x-2*x+1),x*x+4*x-1)? “分段函数值为：”+str(y,10,2)set talk onreturn第28页/共55页第二十八页，共56页。第29页/共55页第二十九页，共56页。6.2.3 循环(xnhun)结构 1. DO WHILE循环(xnhun)语句 格式：DO WHILE ENDDO E N D D O 后 面 的 语 句 条 件 表 达 式 式 真 循 环 体 假 第30页/共55页第三十页，共56页。【例6-9】编程求246100之和。SET TALK OFFCLEARS=0I=

18、2DO WHILE I=CTOD（“1985-01-01”）DISPLAYENDIFSKIPENDDOUSECLOSE DATABASERETURN第32页/共55页第三十二页，共56页。第33页/共55页第三十三页，共56页。SET TALK OFFCLEARSTORE 0 TO I，MDO WHILE .T. IF M100 EXIT ELSE M=M+I2 ENDIF ？”完全(wnqun)平方数累加和：”+STR（M，6） I=I+1ENDDOSET TALK ONreturn第34页/共55页第三十四页，共56页。语句格式(g shi)：FOR = TO STEP ENDFOR|NE

19、XT第35页/共55页第三十五页，共56页。第36页/共55页第三十六页，共56页。【例6-13】求1000之内所有(suyu)偶数之和。 SET TALK OFFCLEARS=0FOR I=0 TO 1000 STEP 2S=S+INEXT？“1000之内所有(suyu)偶数之和为”，SSET TALK ONRETURN第37页/共55页第三十七页，共56页。【例6-14】从键盘输入10个数，编程找出其中(qzhng)的最大值和最小值。SET TALK OFFCLEARINPUT “请从键盘输入一个数：” TO ASTORE A TO MAX_VAL,MIN_VALFOR I=2 TO 10

20、 INPUT “请从键盘输入一个数：” TO A IF MAX_VALA MIN_VAL=A ENDIFENDFOR？“最大值为：” , MAX_VAL？“最小值为：” , MIN_VALSET TALK ONRETURN第38页/共55页第三十八页，共56页。3. “指针”型循环(xnhun)控制语句 （1）语句格式：SCANFOR WHILE ENDSCAN（2）语句功能： 该语句在指定的范围内，用数据(shj)记录指针来控制循环次数。执行语句时，首先判断函数EOF( )的值，若其值为“真”，则结束循环，否则，结合条件表达式1或条件表达式2，执行命令行序列，记录指针移到指定的范围和条件内的

21、下一条记录，重新判断函数EOF( )的值，直到函数EOF( )的值为真时结束循环。第39页/共55页第三十九页，共56页。【例6-16】分别统计“学生”表中男生(nnshng)和女生的人数。SET TALK OFFCLEAROPEN DATABASE 学生(xu sheng)USE 学生(xu sheng)sotre 0 to x,ySCANIF 性别=“男” x=x+1ELSE y=y+1ENDIFENDSCAN? “男生(nnshng)人数：”,x,”女生人数：”,yUSECLOSE DATABASESET TALK ONRETURN第40页/共55页第四十页，共56页。【例6-17】显示

22、(xinsh)“学生”表中入学成绩在600分以上的学生名单。SET TALK OFFCLEAROPEN DATABASE 学生USE 学生SCAN FOR 入学成绩600DISPLAY 学号，姓名，入学成绩ENDSCANUSECLOSE DATABASESET TALK ONRETURN第41页/共55页第四十一页，共56页。 多重循环即循环的嵌套，是指在一个循环结构的循环体中又包含另一个循环。 外循环我们称外层循环为外循环 内循环被包含的循环为内循环。 嵌套层数一般没有限制，但内循环的循环体必须完全(wnqun)包含在外循环的循环体中，不能相互交叉。第42页/共55页第四十二页，共56页。下

23、面是一个DO WHILEENDDO循环(xnhun)嵌套的一般形式：DO WHILE DO WHILE ENDDO ENDDO 第43页/共55页第四十三页，共56页。下面(xi mian)是一个DO WHILEENDDO循环嵌套一个FOR 循环的一般形式：DO WHILE FOR = TO STEP ENDFOR|NEXT ENDDO 第44页/共55页第四十四页，共56页。下面是一个FOR循环嵌套另一个FOR循环的一般形式：FOR = TO STEP FOR = TO STEP ENDFOR|NEXT ENDFOR|NEXT第45页/共55页第四十五页，共56页。下面是一个FOR循环嵌套一

24、个DO WHILEENDDO循环的一般形式(xngsh)：FOR = TO STEP DO WHILE ENDDO ENDFOR|NEXT第46页/共55页第四十六页，共56页。【例】从键盘输入n个实数，对它们按从小到大的顺序(shnx)排序，并将排序后的这n个数依次输出。冒泡排序演示文件第47页/共55页第四十七页，共56页。【例】从键盘输入n个实数，对它们(t men)按从小到大的顺序排序，并将排序后的这n个数依次输出。* 本程序使用冒泡排序法对给定的n个实数(shsh)进行排序 *SET TALK OFFCLEARdimension a(100)input “自然数 n=” to nfor i=1 to n ? “实数(shsh) a(“+str(i,3)+”)=“ input “” to a(i)endfor第48页/共55页第四十八页，共56页。第49页/共55页第四十九页，共56页。* 本程序使用do whil