第2章VF程序设计基础

1、 Vf程序设计基础(数据类型：数据有不同类型，不同地方用的数据类型是不一样，C,N,D(8),L(1),I(4),M(4)注意有些字段的宽度是系统规定的)21常量与变量 P481、常量（P48）值不变字符型(C)：1、三种定界符，单引号、双引号、中括号 （英文的标点符号） ，“”， 必须成对出现，两边一致 2、空串与包含空格的字符串不同 与 3、定界符本身也是字符串内容时，需用另外一种定界符为该字符串定界 数值型(N)：1、注意科学记数法 5.878E12等于5.878*1012整型 I 宽度系统定义4个字节（不含小数）日期型(D)：称定界符，称脱字符，分隔符有3种（/,-,.）用8个字节表示

2、（宽度）1、严格的日期格式：2006/09/01 2、日期格式的设置命令SET CENTURY ON|OFF 年份用4位|2位 （2010年9月11） SET MARK TO 用什么分隔符, -, .如：SET MARK TO - SET DATE TO YMD 按年月日的格式 Y：年 M：月 D：日 （默认显示是“月/日/年”）逻辑型(L)：1、用一个字节表示 2、真、假值（.T.和.F.或.Y.和.N.）3、.T.F.为真2、变量(P52)值可以随时更改，变量有内存变量（及数组变量）和字段变量1 命名规则：名字组成可以是字符（包括汉字）、下划线、数字要点：但不能以数字开头，只能以字符(英文

3、、中文)或下划线开头。 合法：A12，AB，_AB 非法：1A，2B2 变量赋值“=“：单个变量赋值 （“=”也可以是关系（比较）运算符）STORE TO ：多个变量赋相同值A=56 STORE 80 TO D，B，C内存变量的数据类型由其值决定 A=12 B=ABC3、输出变量的值：？，？ A=12 ? A4、内存变量其他命令显示（DISP MEMO 或LIST MEMO）LIKE 模糊匹配，*、？表示任意一串或一个（通配符）清除 CLEAR MEMO 例：LIST MEMO LIKE A* 显示以字母A开头的内存变量数组：一般先定义，后使用 P52二维数组F(A,B) F:数组名，A、B是

4、下标，A、B的最小值是 1，共有A*B个元素，每个元素初值都为.F.1、创建或定义数组 DIME F（2，3）或DECLARE F（2，3） 定义一维数组 DIME F(9) 定义二维数组 DIME F(2,3)2.2表达式 P55 常量、变量、函数通过特定的运算符连接起来 P56 特别注意：数据类型匹配数字表达式：同数学的算术表达式，运算符，（）、*、+ 结果：数值 注意：（）运算字符表达式：+（完全连接），-（不完全连接）？ABC -ABC 结果：字符日期表达式： 日期-日期，日期+N,日期-N 结果：日期或数值要点：日期+日期是非法 关系表达式： 运算符号P58 结果：逻辑型数值、货币、

5、日期数据比较(先比较“年”，再比较“月”，最后比较“天”)字串包含测试：A、B是字符型变量，A$B，A是B的子串，则为真，否则为假。 字符排序：工具选项数据排序序列中设置ASCII码：? MAX(2,12,05), MAX(2,12,05)拼音: ? MIN(章,柳,陈)， 字符串精确比较与EXACT设置P59=：精确比较（绝对等于）SET EXACT ON|OFF：是|否严格 OFF是默认设置1、“=”：2、“=”： (1)SET EXAC OFF(2)SET EXAC ON逻辑表达式： .T.F. 为真 结果：逻辑型优先级(高低)：非（NOT），与（AND），或（OR）与： 且， 两边必须

6、都为真结果才是.T. ,其他都是.F. 。或： 或者， 两边的表达式结果都为.F.时才是.F.,其他都是.T.运算符优先级：算术字符日期关系逻辑 2.3 函数 P61数值函数 P61-621、绝对值函数和符号函数 ABS() SIGN()2、平方根函数 SQRT()4、取整函数 INT() 5、四舍五入函数 ROUND(, )6、余数函数 MOD(, )字符函数 P62-631、字符串长度函数 LEN() ? len(space(10)-space(10)2、大小写转换函数upper()、lower()3、空格字符生成函数 SAPCE（）4、删除前后空格函数 ALLTRIM()A= abcde

7、fg ? len(a)? len(allt(a)5、取子串函数 SUBSTR、LEFT、RIGHT A=计算机科学技术 ? SUBSTR(A,7,4) -科学 ? LEFT(A,6)- 计算机 ? RIGHT(A,4)- 技术6、计算字串出现次数函数 OCCURS（，） ? OCCU(计,计算机是计算的机器)*7、求子串位置函数AT（）结果：数值型 ? AT(is,this is book,1)-3 ? AT(is,this is book,2)-6 ? AT(人民,中华人民共和国)-58、子串替换函数STUFF（） ? STUFF(GOOD BYE,6,3,MORNING)9、字符替换函数

8、CHRTRAN（） ? CHRTRAN(ABACAD,ACD,X12)11、日期时间函数 P65年份、月份、天函数 ? year(2005/06/28) A=2008/06/28? year(a),MONTH(A),DAY(A) -数值型数据数据类型转换函数 P6612、数值转换字符 STR（数值表达式，） 数字字符 A=-123.456? STR(A,9,2),STR(A,6,2),STR(A)字符转换数值 VAL（字符表达式） 字符数值 A=-3212B12 ? VAL(A)13、字符转换成日期 CTOD（）*日期转换成字符 DTOC（） A=DATE() ? DTOC(A) &转换后输出

9、的格式MM/DD/YYYY ? DTOC(A,1) &带参数1，则转换后输出的格式是YYYYMMDD，没有分隔符 ? LEFT(DTOC(A,1),4) -201014、宏替换函数 &，替换出字符型变量的内容 P67 A=10+90 ? a ? &a ,&a+500X=50Y=100Z=”x+y”? 50+&z*15、测试函数 P68-701）值域测试函数 BETWEEN ? BETWEEN(50,50,200) 2）空值测试函数 ISNULL .null.相当于不确定3）“空值”测试函数 EMPTY（） 示例操作4）数据类型测试函数 VARTYPE（） ? VARTYPE(123)-n &返

10、回数据类型是数值? vartype(.null.)-X &“空值”的返回值是X*16、表文件头BOF()、尾EOF()、记录号RECNO()、记录个数RECCOUNT()测试函数 例：数据表ABC 有20条记录 USE ABC ? BOF() -.F. SKIP -1 ? BOF() -.T. ? RECNO() - 当前记录号的值是1 GO BOTTOM ? EOF() -.F. Skip ? eof() -.T. ? recno() -注意，当前记录号的值是21 17、条件测试函数? IIF(LEN(SPACE(5)5,1,-1) -?2.4程序与程序文件 P711、注释 &续行(分号)

11、;2、程序文件的建立与修改命令 P72MODI COMM 建立以.prg为扩展名的命令文件 运行：DO 文件名 3、简单的输入、输出命令命令输入是否保存数据类型否回车其他INPUT保存N，C，L，D C是字符型数据加定界符ACCE保存C是字符型数据不加定界符WAIT否保存C否字符型数据不加定界符例：input 请输入一个数 to x2.5程序的基本结构 P75结构化程序三种基本结构：顺序结构、选择结构、循环(重复)结构 （笔试要点）一、顺序结构：依次运行程序中的语句二、选择结构：IF-ENDIF 语句和DO CASE-ENDCASE 语句 SET TALK OFF SET TALK OFF C

12、LEAR CLEAR INPU输入一个正整数 to x INPU输入一个正整数 to xIF X=300 do case ? A case x=300ELSE ? A IF X=200 CASE X=200 ?B ? B ELSE CASE X=100 IF X=100 ? C ? C OTHERWISE ELSE ? D ? D ENDCASE ENDIF ENDIFENDIF改成DO CASE 语句怎么实现？三、循环结构1、条件循环DO WHILEENDDO 语句，注意循环体中的LOOP和EXITi=1DO WHILE i=5 ? i i=i-1ENDDO 循环语句 DO WHILE NO

13、T EOF() USE BMK DO WHILE NOT EOF() DISP &显示当前记录 SKIP &指针下移 ENDDO2、FOR -ENDFOR 语句（记数循环），注意循环体中的LOOP和EXIT3、SCANENDSCAN 语句（扫描循环） P81格式：SCAN FOR 条件 ENDSCAN执行该语句时，记录指针自动、依次在指定范围内满足条件的记录上移动，对每一条记录执行循环体内的命令2.6 多模块程序设计 P82为什么要用到模块设计：将大的应用程序划分为一个个功能单一的模块程序，便于开发、阅读和维护模块：可以是命令文件、过程主程序过程有什么作用？&主程序 set talk off

14、inpu请输入一个自然数： to a ? JSJC(a)过程SET TALK ON &下面是过程proc JSJCpara ns=1for x=1 to n s=s*xendforreturn s&过程返回 S的值过程作用：重复调用，精简主程序,便于开发、阅读和维护过程的定义：PROC 过程名 命令序列 ENDPROC过程可以放在主程序的后面过程调用格式格式1 DO 过程名格式2 过程名（）参 数 传 递 P84下面程序ABC.PRG：&主程序开始CLEARSTORE 100 TO X1,X2P4(X1,X2)? “调用过程后X1,X2的值是：”,X1,X2&主程序结束&过程开始PROC P4

15、PARA A,BSTORE A+1 TO ASTORE B+1 TO BENDPROC&过程结束1、过程调用有两种格式：、DO 过程名 WITH 实参1，实参2 、过程名（实参1，实参2） （SET UDFP TO value） （SET UDFP TO REFE）2、认识形参（形式参数）,实参（实际参数）,形参数目不能少于实参3、参数传递有：按值传递：SET UDFP TO value 形参变量值的改变不影响实参,即过程可以 修改形参的值，但主程序中实参的原值保持不变。 X1A X2B按引用传递：SET UDFP TO REFE 形参变量值改变时，实参值也随之改变,即过程可以修改形参的值，所

16、作修改也随之反映到主程序中的实参变量上。 X1AX1 X2BX24、注意 、使用格式1调用过程，无论SET UDFP 如何设置，参数都将按引用传递。 、用一对圆括号将一个变量括起来使其变成一般形式的表达式，所以不管什么情况，总是按值传递 当实参是数组名时，若传递方式是按值传递，则传递数组的第一个元素值给形参，若传递方式是按引用传递，则传递整个数组。例1Set talk offclearstore 100 to x1,x2set udfp to valuedo p4 with x1,(x2)?第一次,x1,x2store 100 to x1,x2p4(x1,(x2)?第二次,x1,x2set u

17、dfp to refedo p4 with x1,(x2)?第三次,x1,x2store 100 to x1,x2p4(x1,(x2)?第四次,x1,x2proc p4para x1,x2store x1+1 to x1store x2+1 to x2endproc例2 传递整个数组实例set talk offcleardime s(10)for i=1 to 10 s(i)=iendfordo p5 with s?s(1),s(2),s(3),s(4),s(5)?s(6),s(7),s(8),s(9),s(10)returnproc p5para xfor i=1 to 5 t=x(i) x(i)=x(11-i) x(11-i)=tendforreturnendproc变量的作用域 P86 1）全局变量，用PUBLIC 声明的变量，在任何模块都可以使用的，一直有效。（除非用CLEAR MEMO 命令清除） 命令窗口中直接使用的变量是全局变量 2）私有变量，在程序中直接使用的（没有任何声明），作用域是建立它的模块及其下属模块私有变量所在的程序关闭，程序运行结束，自动清除。 3）局部变量，只能在建立它的本层模块中使用（上、下层都不能使用），用LOCA