湖南师范大学计算机教学部——数据库技术及应用课程
8
VFP程序设计
程序的前 文 程序的设 置部份
INPUT“圆半径
提供数据 运算处理 输出结果 程序的主体部份
R=”TO R
S=3.1415926*R *R ?“圆面积S=”， S
程序的关闭部份
程序的退出部份
9
湖南师范大学计算机教学部——数据库技术及应用课程
7
VFP程序设计
三、 Visual FoxPro程序的构成
* 程序名： AREA.PRG * 功能： 求圆的面积 程序的前 * 设计人 张大民 文 *设计日期 1998年3月 SET TALK OFF 程序的设 SET COLOR TO GR+/B+ 置部份 CLEAR INPUT“圆半径R=”TO R S=3.1415926*R*R 程序的主体部份 ?“圆面积S=”，S CLEAR ALL 程序的关闭部份 SET TALK ON RETURN 程序的退出部份
湖南师范大学计算机教学部——数据库技术及应用课程 26
VFP程序设计
SET TALK OFF CLEAR 方 S=1 法 FOR I= 1 TO 800 二 S=S*I IF S>720 EXIT ENDIF ENDFOR ?”最后一个乘数是” FONT '魏碑体',28 STYLE 'B',I FONT “”,28 ? "连乘数的积S=“FONT “”,28,S FONT “”,28 SET TALK ON RETURN
VFP程序设计
? ? „1+2+3+ …+100=‟,S WAIT “请按任一键继续…” WINDOW; TIMEOUT 15 CASE CHOICE=3 EXIT ENDCASE ENDDO SET TALK ON RETURN
湖南师范大学计算机教学部——数据库技术及应用课程 33
VFP程序设计
死循环：一种永远也跳不出循环体的循环。
湖南师范大学计算机教学部——数据库技术及应用课程
6
VFP程序设计
！！！注意：
程序的每一行只能书写一条语句，并且一行
最多只能有255个字符（包括空格）。如果一条语 句一行写不完，可以用“；”续行，每一个语句 用回车键结束。
湖南师范大学计算机教学部——数据库技术及应用课程
一、迭加(累加)法
S=0
累加 统计
P=0
S=S+X
P=P+1
湖南师范大学计算机教学部——数据库技术及应用课程 18
VFP程序设计
和积综合计算
1、有限个符合条件的整数的和积计算；
2、有特殊规律的分数的和的计算；
3、逆积式的计算。
这类计算要注意两个要点：一是用来表 示计算结果的初始化值。二是计算的过程是 否正确。这类问题出现在填空题和改错题中 的可能性非常大。主要考核程序设计的基本 功。
开始 输入A、B、C、D的值
A=85
B=70
计算平均成绩
C=60
D=50
PJF=（A*12+B*16+C*6+D*5）/（12+16+6+5） 输出平均成绩PJF
输出平均成绩
结束
湖南师范大学计算机教学部——数据库技术及应用课程 13
结束
VFP程序设计 开始
输入X的值 N Y 输出X 是
输入一个数给X X>0 否
GET S FONT „仿宋体’,30 ;
E 'I'
SET TALK ON
RETURN
湖南师范大学计算机教学部——数据库技术及应用课程 23
VFP程序设计
循环控制条件恒为真，要使用EXIT语句 结束循环
在这种循环结构中，控制条件恒为真，只能 结构中的EXIT语句来退出循环。
◆例2： 求连乘数1*2*3*4*5 …，当积大于720时
【例3.15】求和：
1 1 1 1 1 1 S 1 2 3 4 5 6 n
S=0
，当n=100时的S值
FOR n=1 TO 100
Y
?S
n%3=1
三、算法的表示——流程图
例2 求一个班学生的平均成绩。设A等（85）12人，B等 （70分）16人，C等（60分）6人，D等（50分）5人。 例3 输入一个数x ，如果它的值为正，则打印x的值。
例4 输入10个数，把其中的正数打印出来。
湖南师范大学计算机教学部——数据库技术及应用课程 12
开始
VFP程序设计
VFP程序设计
二、 Visual FoxPro程序文件的执行
1、命令窗口方式： DO <要执行的程序文件名>
2、菜单窗口方式 3 、直接单击工具栏中的红色惊叹号。 4、右击程序编辑窗口标题栏，弹出快捷菜单， 选择执行命令。
湖南师范大学计算机教学部——数据库技术及应用课程 17
VFP程序设计
※ 典型算法 ※
湖南师范大学计算机教学部——数据库技术及应用课程
3
VFP程序设计
使用计算机解决实际问题，通常是先要对问题进行分 析并建立数学模型，然后考虑数据的组织方式和算法，并 用某一种程序设计语言编写程序，最后调试程序，使之运 行后能产生预期的结果。这个过程称为程序设计。
其中，把Visual FoxPro提供的命令、函数和控 制语句有机的组成一个计算机可执行的序列，这 个序列的设计、编码和调试的过程——编写调试 程序。
湖南师范大学计算机教学部——数据库技术及应用课程 21
VFP程序设计
方 法 二
SET TALK OFF CLEAR S=0 FOR I=1 TO 100 S=S+I ENDFOR
湖南师范大学计算机教学部——数据库技术及应用课程 22
VFP程序设计
@10,10 SAY " 1-100的和S=";
FONT '仿宋体',30 STYLE 'I';
VFP程序设计
计算机处理一个实际问题的主要过程
确定处理方案 （算法设计）
分析问题
确定操作 步骤
编写程序
上机运行 程序
整理结果
湖南师范大学计算机教学部——数据库技术及应用课程 11
二、算法的概念 VFP程序设计
在上述六个步骤中，第1、2步一般与实际问题的 专业有关，第3——6步则是程序人员的职责。其中 最关键的是第3步，即“算法设计”，只要算法是正 确的，写程序就不会有太多困难。所谓“算法”， 粗略地说，是为解决一个特定问题而采取的确定的、 有限的步骤。
湖南师范大学计算机教学部——数据库技术及应用课程
5
VFP程序设计
① 顺序结构 ② 分支选择结构（选择结构）
③循环结构 1.当型循环结构：当条件成立时反复执行，直到条件 不成立； 2.直到型循环结构：先执行，再判断条件是否成立， 若为假（不成立），继续执行，直到条件为真（成立）
③ 用循环结构编程时，要注意出现死循环。
湖南师范大学计算机教学部——数据库技术及应用课程 27
VFP程序设计
◆例3
已知 S1=1，S2=1+2，S3=1+2+3，…， Sn= 1+2+3，…+n,编写一程序求
S1+ S2+ …+S100的和。
MODI COMM EX738．PRG
湖南师范大学计算机教学部——数据库技术及应用课程 28
VFP程序设计
X>0
输出X
结束
湖南师范大学计算机教学部——数据库技术及应用课程 14
开始
VFP程序设计
N=1 N 当N<=10
N=1
N<=10 Y
输入X的值
输入一个数给X
N
是 输出X
X>0
否
X>0 Y
输出X
N=N+1
N=N+1
结束 湖南师范大学计算机教学部——数据库技术及应用课程 15
VFP程序设计
◆程序的建立与运行
依靠包含在IF … ENDIF或DO CASE … ENDCASE
退出程序。
MODI COMM EX122.PRG
湖南师范大学计算机教学部——数据库技术及应用课程 24
VFP程序设计
SET TALK OFF CLEAR I=1 S=1 DO WHILE .T. S=S*I I=I+1 IF S>720 EXIT ENDIF ENDDO I=I-1 &&最后一个乘数
2
湖南师范大学计算机教学部——数据库技术及应用课程
VFP程序设计
◆ Visual FoxPo程序设计的概念
一、什么是程序 Visual FoxPro提供了一种程序执行方式，这种
方式就是预选把需要执行的多条命令按一定的结构组
成一个有机序列以文件的形式存储在磁盘上，这个文 件就称为程序文件或命令文件。
SET TALK OFF CLEAR N=1 S=0 DO WHILE N<=100 I=1 SUB=0 DO WHILE I<=N SUB=SUB+I
湖南师范大学计算机教学部——数据库技术及应用课程 29
VFP程序设计
I=I+1 ENDDO S=S+SUB N=N+1 ENDDO ? „S1+S2+ …+S100=‟,S SET TALK ON RETURN
方 法 一
湖南师范大学计算机教学部——数据库技术及应用课程 25
VFP程序设计
@10,10 SAY "连乘数的积S="; FONT '魏碑体',28 STYLE 'B'; GET S FONT „魏碑体’,28; STYLE 'B' FUNCTION 'B' @14,10 SAY “最后一个乘数是”; FONT '魏碑体',28 STYLE 'B'; GET I FONT „魏碑体’,28; STYLE 'B' FUNCTION 'B' SET TALK ON RETURN