FOXPRO程序设计(1).ppt

《FOXPRO程序设计(1).ppt》由会员分享，可在线阅读，更多相关《FOXPRO程序设计(1).ppt（115页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual FoxPro程序设计讲师：冯伟讲师：冯伟E-mail:1目录第1章 概述第2章 表的操作第3章 数据库的基本操作第4章 查询与视图第5章 程序设计基础第6章 表单第7章 菜单与工具栏第8章 报表第9章 项目管理器第10章 程序设计实例21.2.3 VFP启动与主界面 1.VFP的功能VFP是一个可视化数据库编程的开发工具，它可以建立表、数据库，对数据库中的表建立联系并进行可视化管理。项目管理器是对多种文档、多种程序进行统一集中管理与维护的工具。VFP运用自身的向导、设计器、生成器等实现可视化编程。VFP运用交互式与自动化工作方式，方便了不同层次、不同应用用户的需求。VFP支持多媒

2、体、网络编程，它能高效、快捷地开发出令人满意的应用软件。3l处理器：主频为233MHz的奔腾2以上的微机l内存储器：64MB以上内存l外存储器：典型安装需85MB的硬盘空间，最大安装需90MB硬盘空间l显卡：支持800600像素或更高分辨率显示器l操作系统：Win95/98/me/2000/xp/NT 4.0或更高版本的操作系统2.VFP系统环境41、将VFP系统光盘插入CD-ROM驱动器中2、通过【我的电脑】找到setup.exe文件，双击该文件以后按照安装向导的进一步提示完成安装即可 3VFP的安装51）单击开始-程序-Microsoft Visual Studio 6.0-Microso

3、ft Visual FoxPro 6.02）双击桌面上的VFP快捷方式图标4VFP的启动65.VFP的退出1）按Alt+F42）在命令窗口中输入QUIT，然后回车3）从文件菜单-退出4）双击左上角的控制图标5）单击左上角控制图标-关闭7 VFP的主窗口包括：标题栏、菜单栏、工具栏、状态栏、命令窗口和工作区几个组成部分。标题栏 菜单栏常用工具栏命令窗口状态栏工作区6.VFP的主窗口8VFP工作方式主要分为两类：一类为交互工作方式，这包括在命令窗口执行和用菜单或工具栏按钮执行命令。另一类为自动化工作方式。它包括用编写的程序、各种生成器等自动生成程序后进行执行。在解决某一个问题时，两种工作方式哪一种

4、或两种方式结合使用都可以得到同一结果。这两种工作方式为不同层次的用户、不同软件开发的用户提供了方便的使用方式，用户可以根据自身的实际情况进行选择使用。7.VFP工作方式91.3 数据与数据运算 VFP重要的作用就是对数据进行高效的处理。在VFP中按数据存储类型分为整型、浮点型、字符型、日期型等多种。按数据形式分为常量、变量、函数、表达式等；10表表1.1 1.1 数据类型数据类型数据类型取值范围说明字符型任意字符，最大长度为254任意文本货币型 -922337203685477.5808922337203685477.5807货币量日期型 0001-01-019999-12-31年月日表示日期

5、日期时间型 0001-01-01 00:00:00 a 9999-12-31 11:59:59 p年月日、时间表示日期和时间11逻辑型.t.Y.y.F.f.N.n.布尔值整型-21474836472147483647整数数值型-0.9999999999E+190.9999999999E+20整数或小数浮点型-0.9999999999E+190.9999999999E+20整数或小数双精度B+/-4.94065645841247E-324+/-8.9884656743115E307双精度浮点数12通用型受可用空间限制OLE对象引用备注型受可用空间限制数据块引用13所谓的常量就是在程序执行中其值不

6、变的量。VFP中有6种类型的常量：数值型常量字符型常量逻辑型常量货币型常量日期型常量日期时间型常量1.3.1 常量14（1）整数：由数字组成，如0，-2，3。（2）实数：十进制表示形式：它由数字、正负号、小数点组成。如0.23，-3.14等。指数表示形式：它由数字、小数点与E或e组成。如1.23103可表示为1.23E3,如-1.2310-2可表示为-1.23e-2。E前要有数字，E后要有整数。1数值型常量15l字符型常量是用定界符(双引号“”、单引号、方括号)括起来的一系列有效字符，也称为字符串。如“中国”、“微机”、PC、abc、计算机、123、“3.14159”等。l字符串的最大长度为2

7、54个字符。l若字符串中含有定界符，则必须用另一种定界符括起来。例如 “学生爱好计算机”Im a student.2字符型常量字符型常量163.逻辑型常量逻辑常量只有真和假两种值。逻辑真：.t.T.Y.y.逻辑假：.f.F.N.n.17 货币型常量以$符号开头，并四舍五入到小数点后4位例如：$100.12345，计算结果为$100.1235 4.货币型常量货币型常量185.日期型、日期时间型常量日期型常量：必须用花括号括起来（1）通用格式:mm/dd/yyyy，例如08/08/2008或8/8/08，空白的日期可表示为、/，需执行SET STRICTDATE TO 0命令；（2）严格格式：yy

8、yy-mm-dd，若要设置严格的日期格式，例如2008-8-8，需执行SET STRICTDATE TO 1命令。19日期型和日期时间型的命令SET CENTURY ON/OFF用于设置显示日期型数据时是否显示世纪SET MARK TO“分隔符”用于设置显示日期型数据时使用的分隔符SET DATE TO“”用于设置日期显示的格式 20日期时间型常量：（1）通用格式:mm/dd/yyyy hh:mm:ssa|p 如9/15/99 8:45（2）严格格式：yyyy-mm-dd hh:mm:ssa|p，如2008-8-8 8:8:8 p21l变量是它的值可以改变的量。l变量可分为两大类，一类为字段变

9、量、另一类为内存变量。l变量是有名的。l标识符是用来标识变量、函数、表、数据库、文件等名子，即标识符就是一个名子。1.3.2 变量变量22l由数字、字母、下划线组成。l以字母、下划线开头。l长度一般为1128个字符，但对于数组名、自由表名、自由表中的字段名、索引标识符名最多为10个字符。l避免使用VFP保留字。l汉字与字母同等待遇(一个汉字占两个字符)。标识符的组成规则：标识符的组成规则：23l内存变量有N、C、Y、D、T、L六种类型。lVFP规定内存变量的类型可以改变，即同一变量可以赋予不同类型的值。l当内存变量与字段变量重名时，在访问内存变量时，VFP规定在内存变量名前加M-或M.，否则系

10、统默认是访问字段变量。l在visual foxpro中，一个变量使用之前不需要事先声明或定义。当用STORE命令给变量赋值时，如果变量不存在，系统将自动建立这个变量。24(1)赋值命令格式1：=格式2：STORE TO 功能:格式1将表达式的值赋给变量。格式2将表达式的值赋给变量表中的所有变量。说明：1)表达式是运算符与操作对象连接起来的式子，表达式可为变量、常量、也可为表达式。2)变量表中的各变量用逗号分隔。1.简单变量与相关命令25(2)输出命令格式：?|?功能：显示输出项目表中的各输出项。说明：1)输出项可为变量、常量、表达式。2)输出项目表中的各项是用逗号分隔的，命令执行时遇到逗号就空

11、一格。3)?是表示在下一行输出各输出项，?是在当前行当前列输出各输出项。26例1.4 内存变量的应用a=1b=.t.c=2005-10-12d=Ae=2005-10-12 12:30:28 astore 10 to f,gh=$123.23?a,b,c,d,e,f,ga=中国b=哈尔滨c=123?a,b?c=,c?a,b27l数组是按一定顺序排列的数据集合。l数组中的每一个数据称为一个元素。l数组中每一个元素的序号称为下标。l数组中的所有元素在内存中是连续存放的。2数组28格式：DIMENSION|DECLARE(,)功能：定义一维或多维数组说明：1)数组定义后系统自动为每一个元素赋逻辑假.F

12、.。2)数组有一个下标称为一维数组，有二个下标称为二维数组。3)数组的最小下标为1。4)数组的类型可以通过使用加以改变，同一数组的元素类型可以不同。数组的定义295)当在赋值、输入命令中只用数组名时，表示数组的所有元素有同一个值。6)数组名不能与简单变量重名。7)由于数组各元素在内存中是连续存放的，二维数组可作为一维数组来使用。8)数组与后面章节中的表可相互传递数据。9)数组中的每一个元素是简单变量，因为简单变量所有的功能数组元素都具备，简单变量使用的场合数组元素都是用。30例1.5 一维数组的应用。dimension china(5)china(1)=“同学们好！”china(2)=“欢迎同

13、学到江西财大新余站学习。”china(3)=“如果同学们想深入了解我们学校，”china(4)=“可以登录我们学校网站。”china(5)=“网址：http:/”31(1)内存变量的显示格式：LIST|DISPLAY MEMORY LIKE TO PRINT|TO FILE 功能：显示内存变量的名、作用域、类型、值。说明：1)like子句是显示与通配符相匹配的内存变量信息。通配符有?与*，?表示一个任意字符，*表示多个任意字符。2)to print子句是将显示内存变量的信息同时从打印机输出。3)to file 子句是将显示内存变量的信息同时存入由文件名指定的文件中。4)list不管显示的信息有

14、多少，都一次显示完。5)display显示的信息多于一屏时，分屏显示。每显示一屏就暂停下来，待用户按任意键后继续显示。3内存变量的显示与释放内存变量的显示与释放32格式1：CLEAR MEMORY格式2：RELEASE 格式3：RELEASE ALL EXTENDED格式4：RELEASE ALL LIKE|EXCEPT 功能：格式1释放所有内存变量。格式2释放由内存变量表指定的内存变量。格式3释放所有内存变量，无任何选项释放所有内存变量，在程序中要选extended，否则不能释放公共变量。格式4当选like 时，释放与相匹配的内存变量；当选except 时，释放与不相匹配的内存变量。(2)内

15、存变量的释放33例1.7 内存变量的显示与应用store“http:/”to china,chinese,hellolist memory like c*display memory like ch?adisplay memory like h*display memory like c*to file“d:123.txt”release all extended c*release all like ch?a clear memory list memory like c*display memory like h*341.3.3 运算符与表达式 VFP的运算符主要有六种:算术运算符字符串运

16、算符关系运算符逻辑运算符日期与日期时间运算符宏替换运算符351、算术运算符与表达式算术运算符要求它的的操作数必须为数值。由算术运算符与操作数连接的式子为算术表达式，算术表达式的运算结果为数值。表1.2 算术运算符与表达式优先级运算符含义表达式结果1（）括号（2+3）*2102*/%乘除取余3*210/210%36513+-加减2+32-35-136例1.8 算术运算符与表达式的应用x=2y=3?(x+2)*y%6-x37 字符串运算符用于多个字符串相连接。它的操作数是字符串。由字符串运算符连接起来的式子为字符串表达式。2、字符串运算符38表1.3 字符串运算符与表达式 运算符含义表达式结果+将

17、两个字符串连接起来组成一个新字符串“中国 ”+”北京”“中国 北京”-将两个字符串连接成一个新串。若第一个字符串尾部有空格，就将此空格移到新串的尾部“中国 ”-“北京”“中国北京 ”39例1.9 字符串运算符与表达式的应用a=黑龙江 b=哈尔滨 c=东方学院?a+b+c?a-b-c403、关系运算符与表达式 关系运算符用于操作数之间进行关系比较，它的操作数是同类型的。由关系运算符连接起来的式子为关系表达式。关系表达式的结果是逻辑值。若关系成立，结果为真，否则为假。41表1.4 关系运算符与表达式运算符含义表达式结果大于34.F.=大于等于10=6“abc”=“123”.T.T.小于24.T.=

18、小于等于3=6.T.=等于：串比较时串首相同就得真“ABC”=“AB”.T.=完全相等：串比较时两串完全相等得真“ABC”=“ABC”.T.,#,!=不等于2!=3.T.$包含：左串为右串的子串时为真“ab”$”abcde”.T.42设置字符排序顺序 SET COLLATE TO MACHINE 设置成机器排序，默认是使用ASC进行排 序，其中空格是第一位，大写字母排在小写字母前面 SET COLLATE TO PINYIN 设置成拼音排序，以拼音的第一个字母进行排列，小写字母在大写字母前面 SET COLLATE TO stroke 设置成比划排序，以比划多少顺序43设置字符串的精确比较l我

19、们知道，当两个字符串进行比较时如果使用“=”进行比较，两个字符串必须一致，包括空格都必须一样，但如果使用“=”进行比较时，只要两个字符串的首部一致即可。那是因为系统默认将“=”设置成字符串的模糊比较。使用：SET EXACT ON/OFF命令即可更改，将“=”设置成精确比较。44例1.10 关系运算符与表达式的应用clearx=2y=3?x+3=2,x!=y,x4.T.2AND与：AND两边操作对象全委真，结果才为真102 AND 53.T.3OR或：OR两边操作有一个为真，结果就为真102 OR 310.T.46ABA.AND.BA.OR.B.NOT.A.T.T.T.T.F.T.F.F.T.

20、F.F.T.F.T.T.F.F.F.F.T.逻辑运算真值表逻辑运算真值表47例1.11 逻辑表达式的应用a=中国黑龙江b=黑龙江c=3?b$a and c348 日期、日期时间运算符可以对操作对象进行加、减运算。用这种运算符连接起来的式子为日期、日期时间表达式。5 日期、日期时间运算符与表达式日期、日期时间运算符与表达式49表1.6 日期时间运算符与表达式运算符含义表达式结果+日期与天数相加形成新的日期2005-10-2+102005-10-12-日期与天数相减形成新的日期；日期与日期相减得两个日期相差的天数2005-10-20-102005-10-20-2005-10-102005-10-1

21、010+日期时间与秒相加形成新的日期时间2005-10-20 10:20:30 am+102005-10-20 10:20:40 am-日期时间与秒相减形成新的日期时间；日期时间与日期时间相减得秒2005-10-20 10:20:30 am-102005-10-20 10:20:30 am-2005-10-20 10:20:10 am2005-10-20 10:20:20 am2050例1.12 日期、日期时间运算符及表达式的应用。a=2005-11-20b=10?a+b,b+a,2005-12-20+10,a-10c=2005-11-20 10:30:30 ad=2005-11-20 10:

22、20:10 a?c+10,10+d,c-10,c-d511.3.4 常用函数 函数是一段程序代码，用来进行一些特定的运算或操作，支持和完善命令的功能，帮助用户完成各种操作与管理。按函数提供方式，可分为系统函数和用户自定义函数。按函数运算、处理对象和结果的数据类型，可分为数值型函数、字符型函数、逻辑型函数、日期时间型函数、数据转换函数等。521、系统函数的形式函数名(自变量)2、函数的返回值函数经过运算所得结果称为函数的返回值3、常用函数的分类通常将常用的函数分为数值函数、字符处理函数、日期和时间函数、数据类型转换函数、测试函数五种。534、常用函数l数值函数l字符函数l日期和时间函数l数据类型

23、转换函数l测试函数54(1)数值函数1）绝对值函数格式：ABS()功能：求数值表达式的绝对值例1.14 ABS的应用x=-2?abs(x),abs(10+x),abs(2+x),abs(2*x)552)符号函数格式：SIGN(数值表达式)功能：返回数值表达式的值的符号，当数值表达式的值为正、负、0时函数分别为1，-1，0例1.15 SIGN的应用x=3?sign(x),sign(-1),sign(x-3)563)圆周率函数格式：PI()功能：返回圆周率。例1.16 PI()的应用s=pi()*10*10?“s=”,s574)求平方根函数格式：SQRT()功能：返回数值表达式值得平方根，数值表达

24、式的值不能为负。例1.17 SQRT()的应用x=-4y=2.22?sqrt(abs(-4),sqrt(10+y)585)求整数函数格式：INT()功能：INT()返回数值表达式的整数值例1.18 求整数函数的应用x=3.9?int(x),int(-x)59lCeiling()功能:返回大于或等于指定数值表达式的最小整数lFloor()功能:返回小于或等于指定数值表达式的最大整数例：?Ceiling(100.54)?floor(100.54)606)四舍五入函数格式：ROUND(,)功能：对数值表达式1四舍五入，保留数值表达式2的值所制定的位数例1.19 ROUND()函数的应用x=123.4

25、56?round(x,2),round(x,1),round(x,0),round(x,-1)617)求余函数格式：MOD(,)功能：返回数值表达式1除以数值表达式2的余数，且余数的符号与除数相同。若数值表达式1与数值表达式2同号，函数值为两数的余数。若异号，函数值为两数的余数再加上除数的值。例1.20 MOD()应用x=10?mod(x,4),mod(x,-4),mod(-x,4),mod(-x,-4)628)求最大值函数格式：MAX(,)功能：求数值表达式1，数值表达式2，数值表达式3中的最大值9)求最小值函数格式：MIN(,)功能：求数值表达式1，数值表达式2，数值表达式3中的最小值例1

26、.21 MAX()的应用x=10?max(2,10,-2,20,9,x)63(2)字符函数1)求字符串长度函数格式：LEN()功能：返回字符表达式的长度例1.23 len()的应用x=“中国哈尔滨”y=“china”?len(x),len(y)642)大小写转换函数格式：LOWER()UPPER()功能：LOWER()是将字符表达式中的大写字母转为小写字母UPPER()是将字符表达式中的小写字母转为大写字母例1.24 lower()，upper()的应用x=“123study hard”?lower(x),upper(x)653)空格字符串生成函数格式：space()功能：返回由数值表达式值指

27、定数目的空格例1.25 space()的应用x=“We”y=“are”z=“students.”?x+space(2)+y+space(2)+z664)删除前导尾部空格函数格式：TRIM()LTRIM()ALLTRIM()功能：TRIM()将字符表达式的值的尾部空格去掉LTRIM()将字符表达式的值的前导空格去掉ALLTRIM()将字符表达式的值的前导与尾部空格同时去掉例1.26 TRIM()，LTRIM()，ALLTRIM()的应用a=“中国”b=“首都 “c=“北京 “d=a+b+c?a,b,c,d?trim(a)+ltrim(b)+alltrim(c)675)子串函数格式：LEFT(,)

28、RIGHT(,)SUBSTR(,)功能：LEFT()从字符表达式的左端开始取N个字符。RIGHT()从字符表达式的右端开始取N个字符。SUBSTR()从字符表达式的第N1个位置开始取N2字符。若N2省略，取到最后一个字符。例1.27 LEFT()，RIGHT()，SUBSTR()的应用x=“中国北京首都”?left(x,4)+right(x,4)+substr(x,5,4)68l求子串位置的函数OCCURS（,）功能：求第一个字符串表达式在第二个字符串表达式当中出现的次数例：a=“china”b=?OCCURS(“c”,a)?OCCURS(“w”,b)?OCCURS(a,b)696)求子串位置

29、函数格式：AT(,)ATC(,)功能：AT()若字符表达式1为字符表达式2的子串时，则返回字符表达式1的首字符在字符表达式2中的位置。否则返回0。数值表达式3是字符表达式1在字符表达式2中第几次出现，默认值为1。ATC()在比较时不区分字母的大小写例1.28 AT()的应用x=“This is computer.The computer is our friend.”?at(“is”,x),at(“is”,x,3),at(“The”,x)70l7)子串替换函数格式：STUFF(,)功能：用字符表达式2替换字符表达式1中由起始位置和指定长度的字符串的值，如果字符表达式2为空，则字符串表达式1中的

30、起始位置和指定长度的子串将被删除例：?STUFF(“我们的网址”,1,10,”)?STUFF(“我们的网址是什么?”,13,6,”)?STUFF(“是我们的网址”,15,12,”)71l8)字符替换函数格式：CHRTRAN(,)功能：如果字符串1中有和字符串2中相同的字符，那么将用字符串3替换字符串1中和字符串2中相同的那些字符，替换的长度必须和字符串2的长度一致,如果第字符串3是空串，那么第字符串1和字符串2中相同的部分将被删除例：?CHRTRAN(“hello,world”,”world”,”everyboby”)?CHRTRAN(“word”,”d”,”k”)？CHRTRAN（“1234

31、56”,”5”,”）72(3)日期和时间函数1)日期函数 格式：DATE()功能：返回当前系统日期2)时间函数 格式：TIME()功能：返回当前系统时间3)日期时间函数格式：DATETIME()功能：返回当前系统日期与时间4)求天数函数格式：DAY(|)功能：返回天数5)年份函数格式：YEAR(|)功能：返回年份736)月份函数格式：MONTH(|)功能：返回月份7)小时函数格式：HOUR()功能：返回小时8)分函数格式：MINUTE()功能：返回分钟9)秒函数格式：SEC()功能：返回秒数74例1.29 日期和时间函数的应用x=2005-10-2 01:30:28 am?date(),tim

32、e(),datetime(),day(datetime()?year(x),month(x),hour(x),minute(x),sec(x)753)将字符串转为日期或时间函数格式：CTOD()CTOT()功能：CTOD()将字符表达式转为日期型数据CTOT()将字符表达式转为日期时间型数据例1.32 CTOD()与CTOT()的应用?ctod(“10/2/2005”),ctot(“10/2/2005 10:30:51 am”)764)日期时间转为字符型数据格式：DTOC(|,1)TTOC(,1)功能：DTOC()将日期表达式或日期时间表达式转为字符型数据，若选1则字符格式YYYYMMDD共8

33、个字符。TTOC()将日期时间表达式转为字符型数据，若选1则字符格式YYYYMMDD-HHMMSS共14个字符例1.33 DTOC()与TTOC()的应用?dtoc(date(),ttoc(datetime()77(5)测试函数1)值域测试函数格式：BETWEEN(,)功能：若表达式1值大于等于表达式2且小于等于表达式3时，函数返回.T.，否则返回.F.。若表达式2，表达式3有一个为NULL，则函数返回NULL。例1.34 BETWEEN()的应用x=100?between(x,10,200),between(x,1,20),between(x,NULL,300)782)空值测试函数格式：IS

34、NULL()功能：若表达式值为NULL，函数返回.T.，否则返回.F.。例1.35 ISNULL()的应用x=nully=3?isnull(x),isnull(y)793)“空”值测试函数格式：EMPTY()功能：若表达式值为空，函数返回.T.，否则返回.F.。说明：数值型、双精度、货币、浮点、整型为0就认为空。字符型空串、空格、制表、回车、换行认为空。备注型无内容认为空。逻辑型为.F.，日期、日期时间型为空时，认为空。如CTOD(“”)，CTOT(“”)都认为空804)数据类型测试函数格式：VARTYPE()功能：返回表达式的类型，用大写字母表示类型。C为字符型或备注行，N为数值型、整型、浮

35、点型、双精度型。Y为货币型，L为逻辑型，O为对象型，G为通用型，D为日期型，T为日期时间型，X为NULL值，U为未定义81例1.36 VARTYPE()应用a=“abc”b=2c=null?vartype(a),vartype(b),vartype825、程序与程序文件 前面讲过，VF的工作方式分为两种：交互式和自动执行。自动执行就是程序化工作方式。程序就是能够完成一定任务的命令的有序集合。这组命令被存放在称为程序文件或命令文件的文本文件中。当运行程序时，系统会按照一定的次序自动执行包含在程序文件中的命令。83l编写程序，计算圆的周长和面积ClearInput“请输入圆的半径:”to rp=2

36、*pi()*rA=pi()*r*r?”周长=”,p?”面积=”,a?”程序结束”Return84程序文件的建立与执行1、程序文件的建立(1)通过菜单栏和工具栏新建程序(2)通过项目管理器新建程序2、程序文件的修改(1)通过项目管理器修改程序(2)打开程序进行修改(3)通过命令进行修改MODIFY COMMAND 853、执行程序文件(1)通过菜单栏或工具栏执行(2)通过命令方式执行DO 程序文件被执行时，文件中包含的命令将依次被执行，直到所有的命令被执行，或者执行到以下命令:CANCAL:终止程序运行，清楚所有私有变量，返回命令窗口DO：转去执行另一个程序RETURN：结束当前程序的执行，返回

37、到调用它的上级程序，若无上级程序则返回到命令窗口QUIT：退出VF系统，返回到操作系统86简单的输入输出命令格式：INPUT TO 功能：暂停执行命令，等待用户从键盘输入数据格式：ACCEPT TO 功能:暂停执行命令,等待用户从键盘输入字符串87格式：WAIT TO WINDOW AT,NOWAIT CLEAR|NOCLEAR TIMEOUT 功能：暂停执行程序，直到用户按任意键或单击鼠标。886、程序的基本结构l选择结构1、条件语句IF格式：IF Else endif89例:clearInput“输入年龄大小:”to ageIf age16?”可以入学”Else?”不可以入学”Endifr

38、eturn90l2、多分支语句格式：Do caseCase Case Case otherwise endcase91例：幼儿园中3岁以下的只能上小班，3岁和4岁可以上中班,5岁到7岁可以上大班，超过7岁就不能入园，用do case语句编写上述分支ClearInput“输入年龄:”to ageDo casecase age=3 and age=5 and age=7?”可以上大班”Otherwise?”不能读幼儿园”endcase92作业l分别用IF语句和DO CASE语句判断学生成绩，如果成绩在60分以下，则显示不及格，如果成绩在60到90之间，则显示及格，如果成绩大于90分则显示优秀93l

39、循环语句Do while语句格式：Do while Enddo功能：执行该语句时，先判断do while处的循环条件是否为真，如果为真则执行do while与enddo之间的命令序列,当执行到enddo时，返回到do while再次判断条件是否为真，如果为假，则执行enddo后面的语句。94l例：求屏幕上输出的数之内的整数和ClearInput“请输入一个整数:”to fwS=0i=0Do while i=3):”to nF=0i=2Do while inIf mod(n,i)0i=i+1LoopElseF=1ExitEndifEnddoIf f=0?n+”是素数”Else?n+”不是素数”E

40、ndifreturn98lFOR语句格式:For=to step 功能：执行该语句时，首先将初值赋给循环变量，然后判断循环条件是否成立。若循环条件成立，然后循环变量增加一个步长值，并再次判断循环条件是否成立，以确定是否再次执行循环体。若循环条件不成立，则结束该循环语句，执行ENDFOR下面的语句。99l例：计算从1到100以内的偶数之和ClearS=0For i=0 to 100 step 2S=s+iEndfor?“100以内的偶数之和为：”,sreturn 1007、多模块程序设计l1、模块及其定义过程定义格式:Procedure|function return endproc|endfu

41、nc101l2、模块的调用模块调用格式(1):Do|模块调用格式(2):|()102l例：过程的调用*主程序Clear?“主程序开始”Do f1Do f2?”主程序结束”Procedure f1?“第一个过程被调用”EndprocProcedure f2?”第二个过程被调用”Endprocreturn103l例：返回值的调用*主程序Clear?“主程序开始”a1=f1()a2=f2()S=a1+a2?”返回结果的和为：”,s?”主程序结束”Procedure f1return 100EndprocProcedure f2return 200Endprocreturn104l打开子程序的命令格式

42、:Set procedure to,additive功能：打开要调用的子程序文件或过程文件,如果加上additive命令则原先打开的子程序文件或过程文件并不会被关闭105l例：用主程序调用子程序p1.prg当中的f1这个过程*主程序文件clear?”主程序开始”Set procedure to p1.prgDo f1.prg?”主程序结束”return*子程序文件Procedure f1?“子程序被调用”Endprocreturn106l2、参数传递模块程序可以接收调用程序传递过来的参数，并能够根据接收到的参数控制程序流程或对接收过来的参数进行处理。107l接收参数的命令：PARAMETERS

43、,，LPARAMETERS,，PARAMETERS命令声明的变量被看作是模块程序中的私有变量，LPARAMETERS被看作是模块程序中的局部变量，除此之外，两个程序没有其它区别。108l调用模块程序的格式:格式一：DO|WITH,格式二:|(,)实参可以是常量、变量或表达式,调用模块程序时，系统会自动将实参传递给对应的形参。形参的数目不能少于实参的数目，否则系统会产生运行错误。如果形参的数目多余实参的数目，多余的形参的默认值为.F.109l 上述的格式一调用模块程序时，如果实参是常量或表达式，系统会自动计算出结果传递给形参变量。这种情形称为按值传递。如果实参是变量，那么传递的不是变量的值，而是

44、变量的地址。这时形参和实参实际上是同一个变量（他们的名字也许不一样），在模块程序中，如果形参变量的值改变，实参变量的值也会改变，这种情形称为按引用传递。l 采用格式二调用程序模块时，默认情况下都是采用按值传递的方式。如果实参是变量，可以通过命令重新设置参数传递的方式110l参数传递方式的命令SET UDFPARMS TO VALUE|REFERENCESET VALUE:按值传递。形参变量的改变不会影响实参变量的取值SET REFERENCE:按引用传递。形参变量改变时，实参变量的值也随之改变111l例：按引用传递ClearStore 100 to a1Do p1 with a1?”实参变量的

45、值为:”,a1Procedure p1Parameters b1Store b1+100 to b1?”形参变量的值为:”,b1endproc112l例：按值传递ClearStore 100 to a1P1(a1)?”实参变量的值为:”,a1Procedure p1Parameters b1Store b1+100 to b1?”形参变量的值为:”,b1113l例：按引用传递和按值传递Clear?”主程序开始”Store 100 to a1,b1Set udfparms to referenceP1(a1,(b1)?”主程序a1的值为:”,a1?”主程序b1的值为:”,b1?”主程序结束”Procedure p1Parameters c1,d1Store c1+100 to c1Store d1+100 to d1?”过程中c1变量的值为:”,c1?”过程中d1变量的值为:”,d1endproc1143、变量的作用域公共变量(全局变量)在任何模块中都可以使用的变量Public 私有变量在程序中直接使用，并没有通过PUBLIC和LOCAL命令事先声明的变量，而由系统自动隐含生成的变量都是私有变量，私有变量的作用域局部变量局部变量只能在建立它的模块中使用，而不能在上层或下层模块中调用。当建立它的模块程序运行结束时，局部变量自动释放。Local 115