2.4 程序与程序文件

2018/1/28,程序设计,2.4 程序设计,2018/1/28,重点与难点,2018/1/28,程序设计,4.1 程序文件 4.1.1 程序文件的建立与执行 一、程序文件的建立与修改 命令格式： modify command 功能：打开文件编辑窗口，用来建立或修改程序文件,2018/1/28,参数描述：为可选项，指定打开或创建的程序文件名。若不指定新建程序文件的扩展名，VFP自动指定.PRG为扩展名。MODIFY COMMAND命令支持含有“*”和“？”通配符的文件。名称与这个匹配的每一个文件都在编辑窗口中打开。若省略文件名，将给打开的编辑窗口赋一个初始名称“程序1.PRG”。当关闭编辑窗口时，可以用另外的文件名保存该文件。？：显示“打开”对话框。可以从中选择一个已有程序或输入要创建的新程序名。,程序设计初步,二、运行程序: 下面任一方法均可运行程序 1 选择【程序】菜单下的“运行”菜单，利用“运行”对话框选择要运行的程序； 2 在命令窗口中输入如下命令： DO 系统就会运行这个程序。如果文件不加扩展名，系统会假定它具有.PRG的扩展名，如果想运行一个具有其它扩展名的命令文件时，在输入命令时必须给出这个命令文件的全名。 如： DO L501 然后按回车键执行。,程序设计初步,三、程序书写规则 1 命令分行 程序中每条命令都以回车键结尾，一行只能写一条命令。若命令需分行书写，应在一行末尾键入续行符“；”，然后按回车键。 2 命令注释 注释行以符号“ * ”开头。命令后也可添加注释，这种注释以符号“&”开头,程序设计初步,四、求解的基本逻辑与程序通用性 1 求解的基本思路 解决问题的基本思路是：输入数据处理数据输出数据.例如：计算圆面积，须依次完成下列操作： （1）给出圆半径 （2）按公式s= r2 计算圆面积 （3） 输出圆面积 VFP程序用命令来描述这个过程： r=3 s=3.1416*r*r ? “圆面积=”,s,程序设计初步,4.1.2 程序文件中的专用命令 一、程序结尾的专用命令 return：在程序的末尾，使程序执行结束，并返回到调用它的上级程序继续执行，若无上级程序则返回到命令窗口。 cancel:是程序终止，清除程序的私有变量，并返回到命令窗口。 quit ：退出VFP系统。,程序设计初步,二、输入输出专用命令 格式： SAY getdefault 功能：从指定的行、列号开始输出表达式的值。 说明：1 可以是常数、字段变量及由它们 组成的表达式。 2 定位输出时，一次只能输出一个表达式。,程序设计初步,3 . GET子句中的变量必须具有初值，或用DEFAULT子句的初值。初值一旦指定，该变量的类型在编辑期间就不能改变。 4. GET子句的变量必须用READ命令来激活，即在若干带有GET子句的输入输出命令后，必须遇到READ命令才能编辑GET变量。,例：试编一程序，输入半径值，求面积。 clear r=0 2,10 SAY “请输入半径：” GET r READ s=3.14159*r*r 4,10 SAY “圆的面积为：” +str(s,8,3),程序设计初步,三、WAIT 命令 命令格式： wait to 功能：暂停程序的运行，直到用户输入一个字符，例如输入Y或N。也可只用输出一条提示信息 例如： wait “请检查输入内容”,程序设计初步,四、accept 命令 命令格式： accept to 功能：暂停程序的运行，直到用户输入一串字符。 例如： accept “请输入姓名：” to nn,程序设计初步,五、input 命令 命令格式： input to 功能：暂停程序的运行，直到用户输入.可以输入字符，数值，等各种类型的数据 例如：clear input 请输入半径： to r s=3.14159*r*r ? 圆的面积为： ?S,程序设计初步,input 命令,可以出入字符类型，注意输入时要加定界符。可以输入数值型数据。可以输入逻辑型数据，加圆点定界符可以输入日期类型的数据，输入时可以用ctod函数进行转换，或yyyy-mm-dd格式输入。,4.2 程序的控制结构 顺序结构 程序运行时按语句排列的先后顺序，一条一条地依次执行。,程序设计初步,例如：从键盘输入两个数据，通过程序交换两个数，并输出。,A,B,程序设计初步,分支结构 一、简单的条件语句 格式： IF ENDIF,语句序列,P,.T.,程序设计初步,二、带ELSE的条件语句 格式：IF ELSE ENDIF,例如：从键盘输入一个数据，通过程序判断该数是偶数还是奇数？,程序设计初步,宏代换函数： 格式： & 功能：替换出字符型内存变量的值 例如： m=5 x=“m” ? X &显示m ? &x &显示5，得到了变量X的值,程序设计初步,三、多分支语句格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE,INPUT 请输入成绩（1-5）： to xDO CASE case x=5 ?space(10)+excellent case x=4 ?space(10)+Good case x=3 ?space(10)+Pass case x=2 ?space(10)+Fail OTHERWISE: ?space(10)+PoorENDCASE,例如：从键盘输入成绩，给出评语。,程序设计初步,循环结构 (条件循环,步长循环,扫描循环） 一、条件循环 格式：DO WHILE EXIT LOOP ENDDO例如：输出100内的偶数 I =0 DO WHILE I=100 ?I I=I+2 ENDDO,参数描述：指定一个逻辑表达式，它的值决定是否执行DO WHILE和ENDDO之间的命令集合。如果的值为“真”，就执行命令集。 ：指定当计算为“真”时要执行的VFP命令集。 LOOP：直接将程序控制返回到DO WHILE语句，并重新计算条件值。LOOP可以放在DO WHILE和ENDDO之间的任何位置。 EXIT：将程序控制从DO WHILE和ENDDO循环的内部转到ENDDO后的第一条命令。EXIT可以放在DO WHILE和ENDDO之间的任何位置。 ENDDO：表明DO WHILE语句的结束,程序设计初步,二、步长循环 格式：FOR = TO STEP EXIT LOOP ENDFOR/NEXT,参数描述：指定作为计数器的内存变量或数组元素。在执行FORENDFOR语句之前，此内存变量或数组元素不一定存在。 TO ：是计数器的初始值，而是计数器的终止值。 STEP ：是计数器递增或递减的步长。如果是负值，则计数器递减；如果省略STEP子句，计数器每次递增1。 ：指定要执行的VFP命令，它可以包含任意数量的命令。,程序设计初步,例：求1到100中偶数的和 AA=0 FOR I=2 TO 100 STEP 2 AA=AA+I ENDFOR ？ AA,程序设计初步,三、扫描循环 格式：SCAN FOR WHILE LOOPEXIT ENDSCAN 功能：针对表的记录操作的循环函数。扫描表的所有记录执行相应的语句序列。例如： use 学生成绩表 scan for 性别=“女” ？编号，姓名 endscan,参数描述： ：指定对当前表中记录扫描的范围。只有在范围之内的记录才有可能扫描到。SCAN命令的默认范围为ALL。 FOR ：只有条件表达式的计算结果为“真”的记录，才能对其执行命令。包含FOR子句可以筛选出不想扫描的记录。 WHILE ：指定一个逻辑表达式作为执行命令的条件，只要逻辑表达式计算为“真”，就对记录执行命令，直到遇到使表达式不为“真”的记录为止。 ：指定要执行的VFP命令集。,VFP6程序文件练习,1、VFP有两类工作方式，分别是（）和（）。2、VFP程序设计包括结构化程序设计和（）。建立程序3、建立或修改程序文件的命令是（），程序文件的扩展名是（）。4、关闭窗口的方法有几种，分别是什么？5、文本编辑窗口只能编辑.prg文件吗？运行程序6、执行程序文件的命令是（），其中的文件名是否可以不加扩展名.prg？程序书写规则7、有关命令分行的规则是什么？8、有关命令注释的规则是什么？,退出,VFP6程序文件,9、VFP程序解决问题的基本逻辑是（）。10、什么是程序的通用性，试举例说明？程序结尾的专用命令11、RETURN命令的功能是什么？12、CANCEL命令的功能是什么？13、QUIT命令的功能是什么？定位输入输出命令SAYGETDEFAULT输出提示信息14、WAIT命令宏代换函数15、&.,一、选择题1.一个过程文件可以包含多个过程，每个过程的第一条语句是 A)PARAMETER B)DO C) D)PROCEDURE 2.比较WAIT、ACCEPT和INPUT三条命令，需要以回车键表示输入结束的命令是 A)WAIT、ACCEPT、INPUT B)WAIT、ACCEPT C)ACCEPT、INPUT D)INPUT、WAIT,程序设计测验,第3题 阅读下列程序，此程序执行后的输出结果是 3 。 SET TALK OFF X=1 DO WHILE X20 X=5*X ENDDO ？X SET TALK ON3. A）5 B）25 C）50 D）125第4题 下列程序的执行结果是 4 。 SET TALK OFF S=0 FOR I=1 TO 5 S=S+I ENDFOR ？S SET TALK ON4. A）10 B）15 C）20 D）25,第3题 阅读下列程序，此程序执行后的输出结果是 3 。 SET TALK OFF X=1 DO WHILE X20 X=5*X ENDDO ？X SET TALK ON3. A）5 B）25 C）50 D）125第4题 下列程序的执行结果是 4 。 SET TALK OFF S=0 FOR I=1 TO 5 S=S+I ENDFOR ？S SET TALK ON4. A）10 B）15 C）20 D）25,第5题 执行下列程序，其输出结果是 5 。 SET TALK OFF X=13+7 ?X SET TALK ON5. A）13+7 B）20 C）13+7 D）20.006有如下程序 主程序：ZCX.PRG 子程序：ZCX1.PRG SET TALK OFF K1=K1+200 K1=12 RETURN ？K1 DO ZCX1 ？K1 RETURN用命令DO ZCX运行程序后，屏幕显示的结果为 A)12 B)12 C)12 D)12 200 212 12200 12,7执行如下程序 SET TALK OFF S0 I1 INPUT “N？” TO N DO WHILE SZF=0 DO WHILE .NOT.EOF() M-ZF=M-ZF+ZF SKIP ENDDO ?M-ZF RETURN其中数据表文件CJ.DBF中有2条记录，内容如下： XM ZF 1 李四 500.00 2 张三 600.00运行该程序的结果应当是 A)1100.00 B)1000.00 C)1600.00 D)1200.00,11有如下程序 SET TALK OFF DIMENSION K(2,3) I=1 DO WHILE I=2 J=1 DO WHILE JM