文档介绍：第六章程序设计基础
第一节程序和程序文件
一、程序的概念
VFP 的程序指将若干条VFP 的命令语
句，保存在一个扩展名为 PRG勺文本文件中，
当用户在命令窗口或其它方式下执行这一
文件时，就相当于一次执行的多条 VFP命
CLOSE DATA ALL
SET SAFE ON
SET TALK ON
RETURN
三、简单的输入命令命令
格式 :INPUT [ 字符表达式 ] TO < 内存变量 >
功能 : 当系统执行到本命令时 , 会等待用户
从键盘输入数据 , 用户可以输入任意合法的
表达式。当用户以回车结束输入时 , 系统将
表达式的值存入指定的内存变量。
命令
格式 :ACCEPT [字符表达式] TO < 内存变量 >
功能：与INPUT基本相同，但会将用户输入的
一切内容都当作字符型常量保存在指定的
内存变量中。
命令
格式 :WAIT [ 字符表达式 ] [TO < 内存变量 >]
[WINDOW [AT 4f>,< 列刁][TIMEOUT <N>] 功能：与ACCEP命令相似，保存字符型数据的输入，但只能接受一位字符的输入。
说明 :
(1) 如果 <字符表达式>为空串，则不显示任
何提示。如果此项省略则显示系统的默认提
示“按任意键继续…”
(2)< 内存变量 >如果省略，则本命令相当于
暂停命令
(3)WINDOW选项如果存在，则提示信息会显示在指定窗口
(4)TIMEOUT可以指定系统的等待时间
例 : 编写程序 , 要求由用户输入圆半径 , 计算机返回该圆的面积
*
SET TALK OFF
CLEAR
INPUT [ 请输入圆半径 :] TO R
PI()*RA2
SET TALK ON
RETURN
例 : 编写程序 , 由用户输入表名称 , 计算机查
询该表的全部信息 *
SET TALK OFF
CLEAR
ACCEPT [请输入要查询的表名称:] TO BM
SELE * FROM &BM
SET TLAK ON
CLOS DATA ALL
RETURN
例 : 编写程序 , 由用户输入考生姓名 , 计算机
在表中查询考生的信息进行显示 *
SET TALK OFF
CLEAR
ACCEPT '请输入考生的姓名:' TO XM
SELE * FROM DJKS WHERE生名=XM CLOS DATA ALL
SET TALK ON
RETURN
例 : 编写程序 , 由用户输入结论信息 , 计算机
在表中查询符合的信息进行显示 , 并将结果
保存在以结论命名的表中（如 : 优秀 .DBF）
*
SET TALK OFF
CLEAR
ACCEPT '请输入结论:' TO JL
SELE * FROM DJKS WHERE言论=JL
SELE * FROM DJKS WHERE 结论 =JL INTO
TABLE &JL
CLOS DATA ALL
SET TALK ON
RETURN
第二节程序的基本结构
在标准化程序设计中，程序一般分为三
种基本结构 : 顺序结构、选择结构和循环结
构。
一、顺序结构的程序设计
顺序结构是最简单的程序结构，它按命
令在程序文件中的先后次序依次执行。
二、分支选择结构程序设计
・・・ELSE・・ENDIF分支
格式 : IF < 条件 >
<语句序列1>
[ELSE
< 语句序列 2>]
ENDIF
功能 : 当条件成立时, 计算机将执行<语句序
列1>,当条件不成立，将判断是否有ELSE选
项存在 , 如存在 , 则执行 <语句序列 2>, 反之 , 什么都不执行。
例 : 编写程序 , 由用户输入考生姓名 , 计算机返回该考生的相关信息
*
SET TALK OFF
CLOS DATA ALL
CLEAR
USE DJKS
ACCEPT" 请输入要查询的考生姓名 :" TOXM
LOCA FOR 姓名 =XM
IF FOUND()
DISP FOR 姓名 =XM
ELSE
" 查无此人 !"
ENDIF
USE
SET TALK ON
RETURN
CASE・・ ENDCASE支
格式 : DO CASE
CASE <条件 1>
语句序列1>
CASE <条件 2>
语句序列2>
…
CASE <条件 n>
语句序列n>
[OTHERWISE < 语句序列>]
ENDCASE
功能：当系统执行到DOCASE吾句时,会顺序对各个CASE1的条件彳出判断,并执行第一个满足条件的CASE后的语句序列。如