[VFP结构化程序设计2.pptVIP

任何复杂的程序都由3种基本控制结构组成。它们是顺序结构、选择结构和循环结构。 9.2 顺序结构程序 顺序结构是最简单、最基本的一种程序结构。在顺序结构程序中，各命令按照各自出现的先后顺序，依次执行。 9.2.1 程序文件中的辅助命令 1、程序注释命令 格式1：NOTE|* [注释] →开头代码注释行 格式2： [注释] →命令行后代码注释行 功能：对程序进行说明，对运行结果不会产生任何影响。 说明：在会话状态开通时，Visual FoxPro在执行命令时会向用户提供大量的反馈信息。程序调试时，一般置“会话”于开通状态，而在执行程序时则通常要求置“会话”于断开状态。 (4)置缺省驱动器和目录命令 格式： SET DEFAULT TO [盘符:][路径] 说明：用于设置进行输入输出操作时的缺省驱动器和缺省目录 例9.3 在学生表中，从键盘上输入任意一个学生的学号查询学生的姓名、性别、出生日期、数学、外语成绩。 * FILENAME E9_3.PRG CLEAR SET TALK OFF USE 学生 ACCEPT 请输入待查学生的学号: TO xh LOCATE FOR 学号=xh DISP 学号,姓名,性别, 出生日期,数学,外语 USE SET TALK ON RETURN 2．任意数据输入命令 格式： INPUT [字符型表达式] TO 内存变量 功能说明： ①提示信息选项同ACCEPT命令。 ②INPUT命令可以接收字符型、数值型、日期型及逻辑型数据。字符串的输入必须用定界符括起来，输入数值或表达式，不加任何定界符；输入日期型数据，除使用日期型的格式外，还要用大括号{}将其括起来。本命令以回车作为结束符。 ③INPUT命令不允许在没有输入任何内容的情况下直接按回车。 例9.4 输入圆半径计算圆面积。 3. 单个字符接收命令 格式： WAIT [提示信息] [TO 内存变量] [WINDOW [NOWAIT]] [TIMEOUT 数值表达式] 功能：暂停程序执行，等待用户键入任何一个字符后继续。 4. 三种键盘输入命令的比较 说明： ① SAY子句用于显示提示信息，GET子句用于为变量输入新值。 ② GET子句中的变量必须有确定的初值。初值决定了该变量的类型和宽度。 ③ 激活CET变量是指使该变量进入编辑状态，让光标自动跳到该变量值所在位置上等待编辑修改。 例：9.7 从键盘上任意输入两个数据，要求用格式化语句完成。 * FILENAME E9_7.PRG SET TALK OFF CLEAR A=0 表示变量A仅仅可以输入整数 B=0.00 表示变量B仅仅可以输入实数，小数位为两位 @4，10 SAY “请输入第一个整数：” GET A @6，10 SAY “请输入第二个实数：” GET B READ C=A+B @8,10 SAY STR(A)+”+”+ALLT(STR(B,10,2))+”=”+ALLT(STR(C,10,2)) SET TALK ON RETURN 例9.8 从键盘上输入任意两个数据，请按照从大到小的顺序输出 * FILENAME E9_8.PRG SET TALK OFF CLEAR INPUT “请输入第一个数据：” TO A INPUT “请输入第二个数据：” TO B IF AB 满足条件两个数据发生交换，否则不执行条件语句 C=A A=B B=C ENDIF ?A,B SET TALK ON RETURN ACCEPT “输入要查询学生的学号：” TO XH CJ=“该生数学成绩低于60分” 变量CJ用于存放是否及格的信息 USE 学生表 LOCATE FOR 学号=XH IF 数学=60 CJ=“该生数学成绩60分以上” ENDIF ?CJ USE （演示：利用MODI COMM命令生成一个.PRG文件，用DO命令执行） 格式： IF 条件表达式 语句行序列l ELSE 语句行序列2 ENDIF 功能说明：若条件为真，执行命令序列1， 然后执行ENDIF的后继命令。如果条件为 假，且有ELSE子句，执行命令序列2，然 后执行ENDIF的后续命令，若无ELSE子句， 则直接转到ENDIF之后。 例9.9 从键盘接收一个字符，如果是小写字母，将其以大写字母后输出，其他字符直接输出。 ACCE