VFP第6章2009

7
第6章 结构化程序设计
信息对话框函数 函数格式： MESSAGEBOX(<字符表达式1>[,<数值表达式>[,<字符表达式2>]]) 数值 对话框按钮 功能：供用户定义信息对话框，按下一次按
钮即返回一个数值。 <字符表达式1>用于指定在对话框中显示的 信息文本。 <字符表达式2>用于指定对话框标题栏的显 示文本。 <数值表达式>用于根据表中的内容设定对话 框中的按钮、图标和默认按钮，缺省该参数表示 取0。 函数返回值是一个数值，用户将根据操作 时点击的按钮来获得相应的返回值，编程时则根 据返回值来设置动作。
16:15
12
第6章 结构化程序设计
FOR循环语句格式
FOR <循环变量>=<初值> TO <终值> [STEP <步长值>] <语句序列1> 【例】编程输出如右侧图案。 [EXIT] clea 【例】编程输出如下图乘法口诀表。 [语句序列2] for i=1 to 4 [LOOP] ? space(4-i) [语句序列3] for j=1 to 2*i-1 ENDFOR|NEXT ?? "*" 【例】编程求s=1+2+3+…+100。 next note 打印乘法口诀表 next *p6-9 clear for i=1 to 3 clea for a=1 to space(i) ?9 s=0 ? for j=1to 6-(2*i-1) for i=1 to 100 for b=1 to a s=s+i p=a*b ?? "*" next ?? str(a,1)+"×"+str(b,1)+"="+str(p,2)+space(2) next next next ? "s=",s next retu retu retu
【例】编程计算S=1+2+3+…+100，并求1～100 之间奇数之和。
*p6-11.prg clea store 0 to i,s,t do while i<100 i=i+1 s=s+i if int(i/2)=i/2 loop endif t=t+i enddo ? "1+2+3+…+100=",s ? "1～100奇数和为：",t retu
Visual Foxpro程序设计
上海交通大学出版社
第6章 结构化程序设计
程序设计概念
使用计算机解决实际问题，首先要对问题进行分析并建立数学模型，然后考虑数 据的组织方式和算法，并用某一种程序设计语言编写程序，最后调试程序，使之运行 后能产生预期的结果。
算法
算法是解决问题的逻辑步骤，是对特定问题求解步骤的一种描述。只有通过算法 能够描述的问题，才能通过计算机求解。对同一个问题，可以有不同的解题方法和步 骤，也就有不同的算法。 计算机算法：用程序解决问题的逻辑步骤，是指令的有限序列。可分为科学计算 领域(处理数值数据)和数据处理领域(处理非数值领域)两大类。
Ans=messagebox(”是否确认删除文件？”,4+32+0,”删除文 件”)
16:15
第6章 结构化程序设计
6.2 程序的控制结构
A B 1.顺序结构 这是最简单的一种结构，语句或基本结构的执行按照它们出现的先后 顺序。 A块执行完毕后，再执行B块，该结构只有一个入口，只有一个出口。 A块、B块可以是一条语句，也可以是一个基本结构。 (建立p6-2.prg) 2.选择结构
0 1 2 3 4 5 16 32 图标 48 64 0 默认 256 按钮 512 返回数值 1 2 3 4 5 6 7 仅有“确定”按钮 “确定”和“取消”按钮 “放弃”、“重试”和“忽略”按 钮 “是”、“否”和“取消”按钮 “是”和“否”按钮 “重试”和“取消”按钮 “停止”图标 问号 惊叹号 信息(i)图标 第1个按钮 第2个按钮 第3个按钮 按下按钮 确定 取消 放弃 重试 忽略 是 否 8
16:15
3
第6章 结构化程序设计
◆用流程图表示：用一些符号来表示各种操作，形象直观、简单，易于理 解、修改和交流。
处理框 判断框 终点框
【例】用框图描述 如下函数的求解过程：
Y= 5 (x≥0) -5 (x<0)
start
Input x
X≥0 ? N y=-5
I/O框
流程线
准备框
◆用伪代码表示 Y 利用介于自然语言和计算机语言之间的文字和符号来 描述算法，它不用图形符号，这种表示方法书写方便，格 式紧凑，容易理解，也便于向计算机语言算法转换。 y=5 【例】用伪代码表示计算10!的算法： Begin(开始) 置t的初值为1(1→t) 置i的初值为2(2→i) 当(while) i<=10，执行(do) Begin 使t=t×I 使i=i+1 End 打印t 的值(print t) End(结束)
16:15
6
第6章 结构化程序设计
格式输出命令： 命令格式：@<行，列> say <表达式> 功能：在屏幕上按“行、列”指定位置上显示“say”子句的“表达式”的值。 格式输入命令： 命令格式：@<行，列> [say <表达式1>] [get <变量名>] [default <表达式2>] 功能：在屏幕上按“行、列”指定位置上显示“say”子句的“表达式1”的值，并 可修改“get”子句的变量值。 注意：“get”子句的变量必须用“read”命令来激活。 激活命令： 命令格式：read 功能：用于激活“get”子句中的变量。 【例】 set talk off clear use students appe blank @ 10,20 say “请输入学号” get xh1 default space(8) @ 11,20 say “请输入姓名” get xm1 default 16:15 space(8) read repl xh with xh1,xm with xm1 disp set talk on use
算法的基本特征
◆输入：有零个或多个数据的输入。 ◆输出：有一个或多个数据的输出。 ◆有穷性：一个算法应包含有限的操作步骤，而不能是无限的。 ◆确定性：算法中每一个步骤应当是确定的，不应是含糊、模棱两可的。 ◆可行性：算法中每一个步骤应当能有效地执行，并得到确定的结果。
16:15
2
第6章 结构化程序设计
16:15
分支语句格式：
真 B1
条件 假
(建立p6-3.prg)
9
第6章 结构化程序设计
【例】试编一程序，删除磁盘上任一文件。
*p4-4.prg clea accept ”请输入文件名(包括扩展名)：” to bm bm=allt(bm) If file(“&bm”) delete file &bm Else messagebox(”你要删除的文件不存在，是否输入有误!”) Endif retu
16:15
13
第6章 结构化程序设计
16:15
Output y end
4
第6章 结构化程序设计
6.1 程序文件
程序文件建立与修改: 通过菜单、项目管理器或在命令窗口中输入命令，打开编辑命令的文本编辑 窗口。 命令格式：MODIFY COMMAND <文件名> 功能：打开文本编辑窗口，用来建立或修改程序文件，文件名由用户指定， 缺省的扩展名为.PRG。 程序中每条命令都以回车键结尾，一行只能写一条命令。若命令需分行书写， 应在一行终了时键入续行符“；”，然后按回车键。 程序的运行命令: 通过菜单、项目管理器或在命令窗口中输入命令，可以运行程序。 命令格式： DO <文件名> DO命令默认运行.PRG程序(扩展名可省略)，如要运行其它程序，文件名中须 包括扩展名。 程序结尾的专用命令： RETURN &&结束程序执行并返回到调用它的上级环境中继续。允许缺省。 CANCEL &&终止程序的运行并清除程序的私有变量，返回到命令窗口。 QUIT &&退出VFP系统，返回到操作系统状态。
……
情况n 条件n Bn
N
其他 B
(建立p6-6.prg) 3. 循环结构 该结构的特点是根据条件，重复执行一个语句块。 当给定条件满足时，执行B块，执行B块后再返回测试 条件是否满足，如此循环反复执行B块，直到条件测试 不满足为止。 B块可以是单个语句，也可以是基本块。该结构只 有一个入口，只有一个出口。
16:15
条件
假
真
B块 [LOOP] [EXIT]
11
第6章 结构化程序设计
条件循环语句格式
DO WHILE <条件> <语句序列1> [EXIT] [语句序列2] [LOOP] [语句序列3] ENDDO 【例】编程逐行显示学生表中 入学成绩大于600分的学生学号、 姓名、性别和入学成绩。 clear use students go top do while not eof() if rxcj>600 ? xh,xm,xb,rxcj endif skip enddo use
算法的表示
◆用自然语言表示：自然语言可以是中文、英文、数学表达式等，通俗易懂但表达文 字可能过长，表示不太严格，对分支和循环结构表示很不方便。 【例】求数列1+2+…+m的值N，当N>10000时结束。算法可表示如下： ①N=0; ②m=0; ③m加1; ④N加m ⑤判断N是否大于10000，如果满足条件则结束，不满足条件则再从③开始继续执行。 【例】对于一个大于或等于n的正整数，判断它是不是一个素数，算法可表示如下： ①输入n的值; ②i=2; ③n被i除，得余数r; ④如果r=0,表示n能被i整除，则打印“n不是素数”，算法结束；否则执行⑤； ⑤i+1→i; ⑥如果i≤n-1，返回③；否则打印“n是素数”；算法结束(或如果i≤ n ,返回③；否 则打印“n是素数”；算法结束) 。