《Visual FoxPro6.0中文版教程 教学课件 ppt 作者 姚翠友 徐世英 第7章》由会员分享，可在线阅读，更多相关《Visual FoxPro6.0中文版教程 教学课件 ppt 作者 姚翠友 徐世英 第7章（39页珍藏版）》请在金锄头文库上搜索。
1、第七章 结构化程序设计7.1程序基本操作 程序：为完成某项任务所需执行的命令序列，这些命令按照一定的机构有机地组合在一起，并以文件形式存储在磁盘上，因此也称为命令文件。例：USE 学生表 GO 5 DISPLAY USE7.1.1 程序的建立1、菜单方式2、命令方式格式：MODIFY COMMAND 说明：扩展名.PRG7.1.2 程序的运行1、菜单方式2、命令方式格式：DO 说明：1）文件名中扩展名的默认值为.PRG2）按下ESC键可使正在运行的程序强行中断。7.1.3 程序的修改1菜单方式：“文件”菜单打开2命令方式：MODIFY COMMAND 说明：1）编辑完毕后，按下Ctrl+W或C
2、trl+END存盘退出； 2）按下ESC键，放弃本次修改。7.2 简单的输入输出命令7.2.1 交互输入命令1、键入字符串命令格式：ACCEPT TO 说明：1）键入的字符串可以不使用定界符2）不键入任何字符串而只按回车键，内存变量的值将只是一个空字符串3）提示信息，显示在屏幕上示例：编写可以打开任一数据表文件的通用命令： ACCEPT “请输入要打开的表文件名：” TO BM USE &BM LIST USE2输入单字符命令格式：WAIT TO NOWAIT TIMEOUT说明：1）：可选项，默认为PRESS ANY KEY TO CONTINUE2）TO ：可选项，按回车键，只将一个空字符
3、存入内存变量示例1：使用WAIT命令编写VFP程序。SET TALK OFFCLEARUSE 学生表LISTUSEWAITUSE 分数LISTUSESET TALK ONRETURN 示例2：试编写一个VFP程序，能够根据键入的系别代号（单字符）在不同系的档案表文件中查找某一职工的情况。*L2.PRGSET TALK OFF CLEAR WAIT “请输入系的代号：” TO DHXH=“DH”+DHUSE &XHACCEPT “请输入职工姓名：” TO XMLOCATE FOR 姓名=XM?“职工姓名：”+姓名?“性别：”+性别?“年龄：”+STR(年龄,2)WAIT?“职称：”+职称?“任教
4、课程：”+任教课程?“教研室：”+教研室WAITSET TALK ONRETURN3键入表达式命令格式：INPUT TO 说明：1）：可选项2）的数据类型取决于键入数据的类型，不得为M型。3）键入的内容：表达式、字符型或逻辑型常量定界符、无效表达式或只按回车键显示错误信息示例：试运行下述交互输入命令。 INPUT “请输入学生姓名：” TO XM INPUT “请输入其班级：” TO BJ7.2.2 常用的输出命令格式： SAY 7.2.3 其他命令1注释命令格式I：NOTE 格式II：*格式III：&说明：1）非执行语句2）注释内容最后一个字符是分号(;)，系统默认下一行内容仍为注释内容。
5、2清除命令格式I：CLEAR格式II：CLEAR ALL：关闭所有文件，清除所有内存变量格式III：CLEAR TYPEAHEAD：清除键盘缓冲区3运行中断和结束命令格式I：QUIT格式II：CANCEL格式III：RETURN TO MASTER7.3 程序的基本结构三种程序结构：顺序结构、分支结构和循环结构7.3.1 顺序结构1顺序结构程序：直接程序或简单程序，自始至终按照程序中命令语句的先后顺序逐条执行。2举例例1：在“学生表”中查看“李尚清”的基本情况。 SET TALK OFF CLEAR USE 学生表 LOCATE FOR 姓名=”李尚清” DISP USE SET TALK O
6、N例2：编写一程序，根据用户输入的半径值，计算出相应的圆的周长。 SET TALK OFF CLEAR INPUT “请输入圆的半径：” TO R L=2*3.1416*R 10,10 SAY “圆的周长是：”+STR(L,6,3) SET TALK ON RETURN7.3.2 分支结构分支结构程序：按照一定条件由判断语句或选择语句构成的双重或多重走向的程序。一、两分支结构1、简单分支格式：IF 语 句 行条件表达式语句行序列ENDIF后面的语句YN ENDIF注意：IF和ENDIF必须成对出现例：在“学生表”中查看“李尚清”的基本情况。 SET TALK OFF CLEAR USE 学生表
7、 LOCATE FOR 姓名=”李尚清” IF FOUND() DISP ENDIF USE SET TALK ON语 句 行条件语句行序列1语句行序列2ENDIF后面的语句2、选择分支格式：IF ELSE ENDIF例1：求解一元二次方程AX2+BX+C=0，系数A，B，C的值由用户通过键盘输入，当方程有实根时，屏幕显示出两根的值；当方程无实根时，屏幕显示出“方程无实根！” SET TALK OFF CLEAR INPUT “A=” TO A INPUT “B=” TO B INPUT “C=” TO C D=B*B-4*A*C IF D=0 X1=(-B+SQRT(D)/(2*A) X2=
8、(-B-SQRT(D)/(2*A) ?“方程的两根是：”+STR(X1,2)+SPACE(4)+STR(X2,2) ELSE ?”方程无实根！” ENDIF SET TALK ON RETURN例2：在表文件“分数.DBF”中查找学号为99020203的学生成绩，若其成绩满60分则显示其学号、课程号和成绩；否则显示此人的学号、课程号并通知其补考。*L6.PRGSET TALK OFFUSE 分数.DBFCLEARLOCATE FOR 学号=“99020203” IF 成绩=60 ?“学号：”+学号 ?“课程号：”+课程号 ?“成绩：”+STR(成绩,6,2) ELSE ?“学号为”+学号+“的
9、学生应参加补考的课程号为：”+课程号ENDIF USESET TALK ON3、判断语句嵌套 IF语句多重嵌套示意结构如下： IF ELSE IF ELSE IF ELSE ENDIF3 ENDIF2 ENDIF1 注意：（1）IF、ELSE(可不选)、ENDIF一一 对应、互相匹配（2）允许简单判断和选择判断语句自我嵌套或相互嵌套，但层次必须清楚，不得交叉（3）最好采用缩格（锯齿形）的书写方式例：根据键入X的值，计算下面分段函数的值，并显示结果。X2+4X-1 (X0)3X2-2X+1 (010)Y= 程序如下：SET TALK OFFCLEARINPUT “X=” TO XIF X0 IF
10、 X10 Y=X*X+1 ELSE Y=3*X*X-2*X+1 ENDIFELSE Y=X*X+4*X-1ENDIF?”分段函数值为：”+STR(Y,10,2)SET TALK ONRETURN二、多分支结构格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE注释内容例：用DO CASE语句修改上面计算分段函数的例子。SET TALK OFFCLEARINPUT “X=” TO XDO CASE CASE X0.AND.X10 Y=X*X+1ENDCASE?”分段函数值为：”+STR(Y,10,2)SET TALK ONRETURN7.3.3循环结构循环结构程序：按照一定条件重复进行某种特定操作的程序称为循环结构程序。一、当型循环结构格式：DO WHILE LOOP EXIT ENDDOENDDO后面的语句语句行序列条件表达式循环体内各语句修改条件表达式YN说明：1）组成：循环起始语句、循环体、循环终端语句2）LOOP3）EXIT注意：在循环体内要设置修改循环条件的语句，避免死循环。 示例：X=1 S=0 DO WHILE X=1 S=S+X X=X+1 ENDDO例1：编程求和S=1+2+3+100。 SET TALK OFF CLEAR STOR
