VFP程序设计基础(完整版)

教学目标及重点难点
教学目标
掌握程序的基本概念及简单程序的编写 掌握分支语句的使用方法 掌握循环语句的使用方法 能灵活应用程序结构编程解决实际问题
重点难点
分支结构
IF…ELSE…ENDIF DO CASE…ENDCASE
循环结构
FOR…ENDFOR DO WHILE…ENDDO SCAN..ENDSACN
功能
命令等待用户从键盘输入字符串 命令只能接收字符串，输入字符串不需要加 定界符，否则，系统会把定界符作为字符串 的一部分 不输入任何内容按回车键，则把空串赋给指 定的内存变量
格式输入语句
格式
@ <行号>,<列号> Say <提示> GET <变量名 > … 可以是多个语句 READ
功能
VFP等待用户输入一个或多个值
9.3.3 循环结构
根据条件或计数要求重复执行一段代码 基于"计数"的循环：FOR – ENDFOR 不知重复次数的循环：DO WHILE – ENDDO 数据表记录循环：SCAN – ENDSCAN
FOR – ENDFOR语句
语法 FOR < 循环变量 > = < 初值 > TO < 终值 > [STEP < 步长>] <语句序列> ENDFOR|NEXT 功能
求二元一次方程的根
输入二元一次方程系数a,b,c，计算二元一 次方程根 计算公式如下：
分支语句嵌套
IF <条件 条件> 条件 IF <条件 条件> 条件 <语句序列 语句序列1> 语句序列 ENDIF ELSE IF <条件 条件> 条件 <语句序列 语句序列2> 语句序列 ELSE <语句序列 语句序列3> 语句序列 ENDIF ENDIF
重复执行<语句序列>，直到<循环变量>的值大于<终 值> 执行次数=ABS(循环终止值-循环起始值)/步长+1
执行过程
计算1+2+3+…+100 的和
S=0 FOR i=1 TO 100 S=S+i NEXT ? "1+2+3+…+100=",S
WORKHELPER 办公助手提供
输入半径，求圆的面积
R=0 &&指定变量为数据类型和初值 @ 10,10 SAY "请输入圆的半径:" GET R READ S=3.1415926*R*R @ 12,10 SAY "圆的面积为："+str(s)
9.2.4 输出语句
格式
ACCEPT [<字符表达式>] TO <内存变量>
WORKHELPER 办公助手提供
9.2 简单的输入输出命令
9.2.1 INPUT命令 格式
INPUT [<字符表达式>] TO <内存变量>
功能
命令等待用户从键盘输入数据后按回车键确认 字符表达式为提示信息 输入的数据可以是常量、变量、表达式，但不能不 输入数据直接按回车 输入不同的数据类型数据时时加定界符，如’李 明’、.T.、.F.、{^2005-10-28}
求圆周长和圆面积程序
当输入半径大于零时，计算圆周长和圆面积，否则显示"半径值不 能小于等于零"的提示信息。 CLEAR SET TALK OFF INPUT "半径=" TO R IF R>0 L=2*PI()*R S=PI()*R*R ? " 圆周长=",L ? "圆面积=",S ELSE ?" 半径值不能小于等于零" ENDIF SET TALK On
菜单方式
文件→新建→程序 打开→编辑已有程序
程序文件的保存
指定程序文件的存放位置和文件名（*.prg） 保存
"文件"菜单→"保存" Ctrl+W键保存文件
放弃本次修改
"文件"菜单→ "还原" Esc键
程序文件的执行
命令方式
命令格式：DO <命令文件名> 命令功能：将指定的命令文件调入内存并从 第一条命令语句开始执行。
菜单方式
"程序"菜单→"运行" 从文件列表框中选择要执行的命令文件，并 单击"运行"命令按钮。
几个特殊命令
当程序文件被执行时，文件中包含的命令将被 依次执行，直到所有的命令被执行完毕 几个特殊命令
（1）CANCEL：终止程序运行，清除所有的私有变 量，返回命令窗口； （2）DO <程序>：转去执行另一个程序； （3）RETURN：结束当前程序的执行，返回到调用 它的上级程序，若无上级程序则返回到命令窗口； （4）QUIT：退出Visual FoxPro系统，返回到操作 系统
输入姓名查询学生信息
输入三角形三边长a,b,c，计算周长和面积 周长计算公式
L=a+b+c
面积计算公式
WORKHELPER 办公助手提供
9.3.2 分支结构
IF…ENDIF语句 语法 IF <条件> <语句序列> ENDIF 语句功能
判断给定条件是否成立 成立，则执行语句序列
分支结构IF…ELSE…ENDIF语句
9.2.2 ACCEPT命令
格式
ACCEPT [<字符表达式>] TO <内存变量>
功能
命令等待用户从键盘输入字符串 命令只能接收字符串，输入字符串不需要加 定界符，否则，系统会把定界符作为字符串 的一部分 不输入任何内容按回车键，则把空串赋给指 定的内存变量
输入半径，求圆的面积
Set talk Off &&关闭对话模式 Set echo off &&关闭结果回显 Set step off &&关闭单步跟踪 Clear &&清屏 ACCEPT "请输入圆的半径R＝" TO R S=3.1415926*VAL(R)*VAL(R) ? "圆的面积为S="+Str(s) Return Set step on Set echo on Set TALK ON格式
DO CASE…ENDCASE语句
DO CASE CASE <条件1> <语句序列1> CASE <条件2> <语句序列2> …… CASE <条件n> <语句序列n> [OTHERWISE <语句序列>] ENDCASE
输入成绩，判断成绩等级
SET TALK OFF CLEAR INPUT "请输入成绩：" to StudScore 请输入成绩： 请输入成绩 Do Case case StudScore>=90 StudLevel="优秀 优秀" 优秀 case StudScore>=80 StudLevel="良好 良好" 良好 case StudScore>=70 StudLevel="中等 中等" 中等 case StudScore>=60 StudLevel="及格 及格" 及格 Otherwise StudLevel="不及格 不及格" 不及格 endcase ?"成绩等级为 成绩等级为:"+StudLevel 成绩等级为 Return SET TALK ON
功能
命令等待用户从键盘输入字符串 命令只能接收字符串，输入字符串不需要加 定界符，否则，系统会把定界符作为字符串 的一部分 不输入任何内容按回车键，则把空串赋给指 定的内存变量
9.3 结构化程序
格式
ACCEPT [<字符表达式>] TO <内存变量>
功能
命令等待用户从键盘输入字符串 命令只能接收字符串，输入字符串不需要加定界符， 否则，系统会把定界符作为字符串的一部分 不输入任何内容按回车键，则把空串赋给指定的内 存变量
第九讲 VFP程序设计基础
鲁 宁 学时： 节 学时：2节
教学内容
9.1 程序概念 9.2 简单的输入输出命令 9.3 程序结构
9.3.1 顺序结构 9.3.2 分支结构
IF…ELSE…ENDIF DO CASE…ENDCASE
9.3.3 循环结构
FOR…ENDFOR DO WHILE…ENDDO SCAN..ENDSACN
Set talk Off Clear INPUT "请输入边长 请输入边长a=" to a 请输入边长 INPUT "请输入边长 请输入边长b=" to b 请输入边长 INPUT "请输入边长 请输入边长c=" to c 请输入边长 L=a+b+c D=(a+b+c)/2 S=sqrt(d*(d-a)*(d-b)*(d-c)) ? "三角形的周长 三角形的周长L="+str(L) 三角形的周长 ? "三角形的面积 三角形的面积S="+str(S) 三角形的面积 SET TALK ON
ACCEPT [<字符表达式>] TO <内存变量>
功能
命令等待用户从键盘输入字符串 命令只能接收字符串，输入字符串不需要加定界符，否则，系统会把定界符作 为字符串的一部分 不输入任何内容按回车键，则把空串赋给指定的内存变量
9.2.3 WAIT命令