二程序设计基础程序与程序文件

第二章

程序设计基础

2.4程序与程序文件1.

本章要点VisualFoxPro的工作方式程序文件的建立与编辑程序的基本结构分支结构循环结构过程2.2.4.1程序的概念

概念：程序时能够完成一定任务的命令的有序的集合。

特点：1、可以利用编辑器方便的修改和保存，2、程序一旦建立，就可以被多次修改3、在程序中可以出现在命令窗口中无法使用的命令和语句。例：2.40

要点3.2.4.2程序文件的建立、修改与执行

1．建立或修改程序文件可用两种方式调用系统内置的文本编辑器建立或修改程序文件:命令方式MODIFYCOMMAND[<盘符>][<路径>]〈程序文件名〉或MODIFYFILE[<盘符>][<路径>]〈程序文件名〉菜单方式打开“文件”菜单，选择“新建”；在“新建”窗口，选择“程序”，再选择“新建文件”要点4.2．保存程序程序输入、编辑完毕，单击【文件】|【保存】菜单项，或按Ctrl+W复合键，在“另存为”对话框中指定程序文件的存放位置和文件名，并单击“保存”按钮保存程序文件并退出文本编辑器。程序文件的默认扩展名是.PRG。

5.3．执行程序程序文件建立后，可以用多种方式、多次执行它。下面是两种常用的方式。（1）菜单方式①

单击【程序】|【运行】菜单项，打开“运行”对话框；②

从文件列表框中选择要运行的程序文件，并单击“运行”命令按钮，启动运行该程序文件

（2）命令方式【格式】DO[<盘符>][<路径>\]<文件名>【功能】执行指定<盘符>、<路径>下的程序文件

6.执行程序文件时，将依次执行文件中的命令，直到所有命令执行完毕，或者执行到以下命令：①CANCAL：终止程序运行，清除所有的私有变量，返回命令窗口；③RETURN：结束程序执行，返回调用它的上级程序，若无上级程序则返回命令窗口；④QUIT：结束程序执行并退出VisualFoxPro系统，返回操作系统

7.2.4.3简单的输入输出命令3简单的输入输出命令1．ACCEPT命令【格式】ACCEPT[<提示信息>]TO<内存变量>【功能】在程序执行过程中，将用户交互式输入的内容作为字符串赋值给指定内存变量。该命令只接受字符型数据，输入的字符串不需要加定界符

8.2．INPUT命令

【格式】INPUT[<提示信息>]TO<内存变量>【功能】在程序执行过程中，将用户交互式输入的内容赋值给指定内存变量

可以输入字符型、数值型、逻辑型、日期型和日期时间型等类型数据，而且可以是常量、变量、函数或表达式等形式，按回车键结束输入，系统将输入的数据赋值给<内存变量>。9.【例】从键盘输入两个任意正数，编程求以两数为边长的长方形面积。程序文件名为PROG4.PRGSETTALKOFFCLEARINPUT“长方形一边的长为：”TOAINPUT“长方形另一边的长为：”TOBS=A*B?“长方形的面积为：”,SSETTALKONRETURN10.3．WAIT命令【格式】WAIT[<提示信息>][TO<内存变量>][WINDOW[AT<行>,<列>]][NOWAIT][CLEAR|NOCLEAR][TIMEOUT<数值表达式>]【功能】显示提示信息，暂停程序执行，直到用户按任意键或单击鼠标时继续执行程序。若选择可选项[TO<内存变量>]，将输入的单个字符作为字符型数据赋给指定的<内存变量>；若用户是按Enter键或单击鼠标，<内存变量>的值为空串。若省略所有可选项，屏幕显示“键入任意键继续……”默认提示信息

11.4．三条输入命令的异同ACCEPT命令只能接受字符型数据，不需定界符，输入完毕按回车键结束；WAIT命令只能输入单个字符，且不需定界符，输入完毕不需按回车键；INPUT命令可接受数值型、字符型、逻辑型、日期型和日期时间型数据，数据形式可以是常量、变量、函数和表达式，如果是字符串，需用定界符，输入完毕按回车键结束。

12.2.5程序的基本结构

VisualFoxPro程序由顺序结构、选择结构、循环结构三种基本结构构成。二是面向对象可视化的结构程序模块，在每个模块的内部也是由程序控制流组成。常见的控制结构如下：

1．顺序结构顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。VisualFoxPro系统中的大多数命令都可以作为顺序结构中的语句。

2．分支结构分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。要点13.

3．循环结构

循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。

要点14.

分支结构形式有如下三种：

1．简单的条件语句单向分支语句，即根据用户设置的条件表达式的值，决定某一操作是否执行。（1）语句格式：IF〈条件表达式〉〈命令行序列〉ENDIF（2）语句功能：该语句首先计算〈条件表达式〉的值，当〈条件表达式〉的值为真时，执行〈命令行序列〉；否则，执行ENDIF后面的第一条命令。例2.412.5.1选择结构

要点15.【例】求一元二次方程AX2＋BX＋C＝0的实根。程序文件名为PROG7.PRG。SETTALKOFFCLEARINPUTTOAINPUTTOBINPUTTOCZ＝B^2-4*A*CIFZ>=0X1=(-B+SQRT(Z))/(2*A)X2=(-B-SQRT(Z))/(2*A)?X1,X2ENDIFSETTALKONRETURN16.

2．一般形式的条件语句语句格式：IF〈条件表达式〉〈命令行序列1〉ELSE〈命令行序列2〉ENDIF（2）语句功能：该语句首先计算〈条件表达式〉的值，当〈条件表达式〉的值为真时，执行〈命令行序列1〉中的命令；否则，执行〈命令行序列2〉中的命令；执行完〈命令行序列1〉或〈命令行序列2〉后都将执行ENDIF后面的第一条命令。要点17.【例】编写一密码校验程序（假设密码为ABC）。程序文件名为PROG10.PRG。SETTALKOFFCLEARACCEPT“请输入您的密码：”TOAAAIFAAA=”ABC”CLEAR?”欢迎使用本系统！”ELSE?”密码错误！”WAITQUITENDIFSETTALKON18.

3．多分支语句语句格式：DOCASECASE〈条件表达式1〉<命令行序列1〉CASE〈条件表达式2〉<命令行序列2〉……CASE〈条件表达式N〉〈命令行序列N〉］［OTHERWISE〈命令行序列N+1〉］ENDCASE要点19.【例】假设收入（P）与税率（R）的关系如下表，编程求税金。程序文件名为PROG12.PRG。

0 P＜800R=0.05 800≤P＜20000.08 2000≤P＜50000.1 P≥5000SETTALKOFFCLEARINPUT“请输入收入：”TOPDOCASECASEP<800R=0CASEP<2000R=0.0520.CASEP<5000R=0.08OTHERWISER=0.1ENDCASETAX=P*R?”税金为：”,TAXSETTALKONRETURN21.

4．使用选择语句应注意的几点

（1）IF……ENDIF和DOCASE……ENDCASE必须配对使用，DOCASE与第一个CASE〈条件表达式〉之间不应有任何命令。（2）〈条件表达式〉可以是各种表达式或函数的组合，其值必须是逻辑值。（3）〈命令行序列〉可以由一个或多个命令组成，可以是条件控制语句组成的嵌套结构。（4）DOCASE……ENDCASE命令，每次最多只能执行一个〈命令行序列〉。在多个CASE项的〈条件表达式〉值为真时，只执行第一个〈条件表达式〉值为真的〈命令行序列〉，然后执行ENDCASE的后面的第一条命令。要点22.2.5.2循环结构

1．DOWHILE循环语句【格式1】DOWHILE<条件表达式><语句序列>ENDDO

要点一个循环结构一般应具备如下的条件：（1）循环的初始条件：一般为给循环控制变量赋初值；（2）循环头：循环语句的起始，设置、判断循环条件；（3）循环尾：循环语句的结尾；（4）循环体：位于循环头和循环尾之间、循环控制重复执行的语句序列23.【格式2】DOWHILE<条件表达式><语句序列1>[LOOP]<语句序列2>[EXIT]<语句序列3>ENDDOLOOP语句：强行返回到循环开始语句。EXIT语句：强行跳出循环，接着执行ENDDO后的语句24.【例2.44】编程求1＋2＋3＋……＋100之和。程序文件名为PROG16.PRG。SETTALKOFFCLEARS=0I=1DOWHILEI<=100S=S+II=I+1ENDDO?”1＋2＋3＋……＋100＝”,SSETTALKONRETURN25.

2．FOR循环语句【格式】FOR<循环变量>=<初值>TO<终值>[STEP<步长>]<循环体>ENDFOR|NEXT要点26.使用FOR循环语句的有关说明：①省略STEP<步长>，则〈步长〉为默认值1；②〈初值〉、〈终值〉和〈步长〉都可以是数值表达式，但这些表达式仅在循环语句开始执行时计算一次。循环语句执行过程中，初值、终值和步长是不会改变的，并由此确定循环的次数；③可以在循环体内改变循环变量的值，但会改变循环执行次数；④EXIT和LOOP命令可以出现在循环体内。执行LOOP命令时，结束本次循环，循环变量增加一个步长值，返回FOR循环头判断循环条件是否成立。执行EXIT命令时,程序跳出循环，执行循环尾后面的语句

27.【例2.47】从键盘输入10个数，编程找出其中的最大值和最小值。程序文件名为PROG23.PRG。SETTALKOFFCLEARINPUT“请从键盘输入一个数：”TOASTOREATOMAX,MINFORI=2TO10INPUT“请从键盘输入一个数：”TOAIFMAX<AMAX=AENDIFIFMIN>AMIN=AENDIFENDFOR?“最大值为：”,MAX?“最小值为：”,MINSETTALKONRETURN28.【例6-30】输出STUDEN