VF程设计基础课件.ppt

1、在VF中按数据存储类型分为字符型、货币型、日期型、日期时间型、逻辑型、整型、数值型等 VF中有6种类型的常量： 数值型常量 字符型常量 逻辑型常量货币型常量 日期型常量日期时间型常量,Visual FoxPro基础知识- 常量,Visual FoxPro基础知识- 变量,字段变量 简单的内存变量 内存变量 数组 区别：简单内存变量不用定义直接使用， 数组必须先定义再使用。,变量,格式1：= 格式2：STORE TO 功能: 格式1将表达式的值赋给变量。 格式2将表达式的值赋给变量表中的所有变量。,1、 赋值语句,例：把 2 赋给变量 X和变量 Y 方法1：Store 2 to x,y 方法2：

2、x=2 y=2 ）storeto一次可以为多个变量赋值 ）一次只能给一个变量赋值,区别,DIMENSION | DECLARE (,) 功能：定义一维或多维数组 说明： 1)数组定义后系统自动为每一个元素赋逻辑假.F.。 2)数组有一个下标称为一维数组，有二个下标称为二维数组。 3)数组的最小下标为1。 4)数组的类型可以通过使用加以改变，同一数组的元素类型可以不同。,2、 数组,5)当在赋值、输入命令中只用数组名时，表示数组的所有元素有同一个值。 6)数组名不能与简单变量重名。 7)由于数组各元素在内存中是连续存放的，二维数组可作为一维数组来使用。 8)数组中的每一个元素是简单变量，因为简单

3、变量所有的功能数组元素都具备，简单变量使用的场合数组元素都是用。,定义数组： 格式1：dimension (数组下标) 例： dimension a(4)，dimension b(2,3) 格式2：declare (数组下标) 例： declare a(4),declare b(2,3),例 一维数组的应用。 dimension a(5), b(5) a=10 a(5)=23 b(1)=2*a(1) b(3)=中国 b(4)=2005-10-6 b(5)=$123.2 ?a(1), a(2), a(3), a(4), a(5) ?b(1), b(2), b(3), b(4), b(5),Vis

4、ual FoxPro基础知识-表达式,定义：由常量、变量和函数通过特定的运算符连接起来的式子 数值表达式 字符表达式 日期时间表达式 关系表达式 逻辑表达式,1算术运算符： （1） （） （2） *或（乘方） （3） *、/、%（求余） （4） +、 优先级逐级递减,注,六 运算符,2、字符运算符 +：前后两个字符串首尾连接. - ：连接前后两个字符串，并将前字符 串的尾部空格移到合并后的新字符 串尾部. 字符运算符优先级相同,注,、日期时间运算符： +，- 例1：2005-08-13+5 例2：2005-08-13-10 例3：2005-08-13-2005-07-13,08/18/05,0

5、8/03/05,31,4、关系运算符： （1） (4) = (5)= (6)= = (7) 、#或！= (8)$（子串包含测试） 注：所有关系运算符的优先级一样 格式： 运算结果：逻辑型,5、逻辑运算符 非： .NOT.（取反） 与： .AND.（两边同时为真才为真） 或： .OR. （两边有一个为真就为真） 注：1)逻辑运算符两边都是逻辑表达式 2)优先级顺序为.NOT. .AND. .OR.,Visual FoxPro-常用函数,一、数值函数 二、字符函数 三、日期和时间函数 四、数据类型转换函数 五、测试函数,Visual FoxPro程序设计,一 程序设计开始常用的指令,Clear (

6、清屏幕) Set talk off：关闭响应 Clear Memory(清除内存变量),清除内存变量的指令,Clear Memory Relese All Release Release all Llke|Except,二 程序设计结束常用的指令,Set talk on：关闭响应 Return：结束程序 或 Cancel:结束程序,三 输入语句,WAIT语句： 格式：WAIT TO 说明：一次只能接收一个字符。,三 输入语句,ACCEPT语句： 格式：ACCEPT TO 说明：只接收字符串，而且不能使用定界符； 适合用于输入字符串类型的数据。,三 输入语句,INPUT语句： 格式：INPUT

7、TO 说明： 可接收字符型、数值型、日期型、逻辑型数据； 可从输入的变量名中接收数据； 输入相应数据时必须使用定界符；,四 输出语句,格式：? | ? 说明： 1)输出项可为变量、常量、表达式。 2)输出项目表中的各项是用逗号分隔的，命令执行时遇到逗号就空一格。 3)?是表示在下一行输出各输出项，?是在当前行当前列输出各输出项。,显示内存变量,格式 DISPLAY/LIST MEMORY LIKETO PRINTER/TO FILE 功能 显示内存变量的当前内容, 同时可选择打印或者将这这些内容送到一个文本文件中.,例:显示已存的内存变量,在命令窗口依次输入执行以下命令,观察结果 m=123.

8、456 n=“中国.重庆 listmemory like * to file e:bl.txt 执行完毕后,打开e:,可以看到,里面多了一个b1.txt.,五 程序的书写规则,一个程序是由若干行组成， 每行由回车键结束 1）命令行：一个命令可以写在一行也可以分多行书写，分行书写时应该在行尾加续行符“;”,五 程序的书写规则,2）命令的注释：注释符有&，*，NOTE 三种 格式1： & 格式2： * 格式3： NOTE 功能：程序注释 说明： 格式1为行尾注释，即可写在命令行的尾部。 格式2与格式3为行首注释，即以*和NOTE开始的行都为注释,六 控制结构及程序设计,1顺序结构： 顺序结构程序的

9、执行：按照语句排列先后顺序，一条接一条地执行，它是程序中最基本的结构。,六 控制结构及程序设计,2选择结构： 语句格式： IF ELSE ENDIF,说明： IF和ENDIF语句必须成对出现； 本语句结构可以嵌套，但不能出现交叉；,选择结构,选择结构,例1 输入三角形的三边，利用海伦公式求该三角形的面积。 海伦公式：,SET TALK OFF CLEAR INPUT “请输入三角形的第一边：” TO a INPUT “请输入三角形的第二边：” TO b INPUT “请输入三角形的第三边：” TO c IF a+bc and a+cb and b+ca p=(a+b+c)/2 s=SQRT(p

10、*(p-a)*(p-b)*(p-c) ? “三角形面积为：”, s ELSE ? “三角形的三边长度有误，两边之和不大于第三边！” ENDIF SET TALK On RETURN,六 控制结构及程序设计,说明： 不管有几个CASE条 件成立，只有最先成 立的那个CASE条件 对应的命令序列被执 行； 如果所有CASE条 件都不成立，且没有 OTHERWISE子句， 则直接跳出本结构；,多分支语句,例2 有一个函数: x (x1)y= 2x-1 (1x10) 3x-11 (x10)写一个程序，输入x，输出y值。,例2 有一个函数: x (x1)y= 2x-1 (1x10) 3x-11 (x10

11、)写一个程序，输入x，输出y值。,六 控制结构及程序设计,3循环结构 ：条件循环 语句格式： DO WHILE ENDDO,六控制结构及程序设计,3循环结构 ：条件循环,说明： 如果第一次判断条件时条件为假，则循环体将一次都不会被执行； 如果循环体包含LOOP命令，那么遇到LOOP时，就结束循环体的本次循环，后面的语句将被忽略，程序进入下一次循环； 如果循环体包含EXIT语句，那么遇到EXIT时，就结束整个循环。,八 控制结构及程序设计,3循环结构 ：步长循环 语句格式： FOR = TO STEP ENDFOR,说明： 如果缺省，其步长为1； 可以在循环体内改变循环变量的值，但这会影响循环体

12、的执行次数；,题1 输入一个整数，然后计算各位数字平方之和。,SET TALK OFF CLEAR INPUT x= TO x &假如用户输入：5678 s=0 DO WHILE x!=0 s=s+MOD(x,10)*2 x=int(x/10) ENDDO ? s=,s RETURN,题2、请编写程序，它的功能是：求出1到100之间能被7或13整除，但不能同时被7和13整除的所有整数并将它们放在a所指的数组中，通过n返回这些数的个数。,set talk off clear j=0 dimension a(50) for i=1 to 100 do case case i%7=0 if i%13

13、!=0 j=j+1 a(j)=i endif case i%13=0 if i%7!=0 j=j+1 a(j)=i endif,otherwise loop endcase endfor ?1到100之间能被7或13整除，但不能同时被7和13整除的所有整数的个数:,j for i=1 to j ?a(i) endfor SET TALK ON CANCEL,模块的定义与调用,主程序的概念：调用其它模块而没有被其它模块调用的模块称为主程序。 子模块的概念：被其它模块调用的模块称为子模块。,模块的定义与调用,.1 过程文件的定义格式,PROCEDURE PARAMETERS RETURN ENDP

14、ROC,模块的定义与调用,.2用户自定义函数的格式,FUNCTION PARAMETERS RETURN ENDFUNC,模块使用注意事项：,过程结束语句ENDPROC|ENDFUNC可以缺省。如果缺省，过程将结束于下一个过程的开始处； 当程序遇到RETURN指令时，控制将转回到调用程序（或命令窗口），并返回表达式的值； 如果缺省RETURN命令，则整个程序文件结束时自动执行一条隐含RETURN语句； 如果RETURN语句不带任何参数，则返回逻辑.T.,参数传递：,格式：PARAMETERS 形参变量1， 形参变量2, &如：PARAMETERS x,y 功能：定义本模块的私有变量，并接收上层

15、程序传来的参数。,参数传递：,关于参数传递语句的几点说明： 参数传递语句必须是过程或自定义函数的第一条语句； 参数语句中定义的参数，最好与调用程序的调用命令中的参数一一对应，或多于调用命令参数，不得少于调用命令中参数，否则将出现错误； 如：调用命令：DO abc WITH x,y,100 & 3个实际参数（简称为“实参”） 参数定义：PARAMETERS a1,a2,a3,a4 & 4个形式参数（简称为“形参”）,调用语句的参数传递格式,调用格式： DO 过程名 WITH 参数1，参数2， 过程名( 参数1，参数2， ) 说明：参数可以是常量，也可以是变量 如：DO abc WITH 100

16、&(常量) DO abc WITH x &(变量),题3 设计一个计算圆柱体面积的子程序，并要求在主程序中带参数调用它,*主程序： clear volume=0 radius=0 high=0 Input 请输入圆柱体的半径： to radius Input 请输入圆柱体的高： to high DO p1 WITH radius,high,volume ? volume=,volume RETURN,*子程序： PROCEDURE p1 PARAMETERS R,H,V V=pi()*R*R*H RETURN,题目6：编写程序，实现根据输入的三个边长（整型值），判断能否构成三角形； 构成的是等

17、边三角形，还是等腰三角形。 若能构成等边三角形函数返回3， 若能构成等腰三角形函数返回2， 若能构成一般三角形函数返回1， 若不能构成三角形函数返回0。,题目7：（对字符串排序处理）有5个英文单词，分别为：Word，Excel，Powerpoint，Type，Angle，要求设计出如下程序： （1）在键盘上输入数N（本例输入5），把英文单词放入名为X大小为N的数组中 （2）显示出X数组中的英文单词 （3）对数组中的英文单词从小到大排序 （4）显示出排序后X数组中英文单词,set talk off clear INPUT 请输入数组的个数： to N DIMENSION A(N) for I=1 TO N ACCEPT 请输入一串字符： to A(I) ENDFOR