第二章：VF程序设计基础.ppt

第二章：VF程序设计基础,考核知识点,常量、变量和表达式常用函数：字符处理函数，数值计算函数，日期时间函数，数据类型转换函数和测试函数。程序与程序文件：程序的概念，程序的基本结构，多模块程序设计。,重要考点:,常量和变量的概念、类型及特点；表达式的类型；函数的使用：trim,left,right,substr,at,like,date,str,val,isnull,empty,vartype,eof,bof,iif程序与程序文件、程序的选择结构、程序的循环结构、多模块程序设计。,考点一：常量,常量用以表示一个具体、不变的值。不同类型常量的书写格式不同。分为：数值型：代码N，用来表示一个数量的大小。无定界符。如：0，20，-3.14，1.25E-2货币型：代码Y，用来表示货币值，定界符：$。字符型：代码C，就是一串字符，定界符：“”,BOF()测试指针是否指到了表文件的开始;,考点十,3.条件测试IIF(Lexp,exp1,exp2)若逻辑表达式为真,则返回exp1的值,否则返回exp2的值,X=100Y=300?IIF(X100,X-50,X+50)?IIF(Y100,Y-50,Y+50),函数部分练习题：,填空题：1.将数值型转换成字符型的函数是（）。2.将字符型转换成数值型的函数是（）。3.求当前系统时间的函数是（），当前系统时间的返回值的数值类型是（）。4.求当前年份的函数是（），他的返回值的数值类型是（）,5.?len(alltrim(“计算机等级”)的结果是:6.表示”1962年10月27日”的日期型常量应该写为:7.下列符号中,不常作为日期型常量分隔符的是:A.斜杠(/)B.连字符(-)C.句点(.)D.脱字符()8.在下面的数据类型中,默认值为.F.的是:A.数值型B.字符型C.逻辑性D.日期型9.在VF中,内存变量的数据类型不包括的是:A.数值型B.货币型C.备注型D.逻辑型,10.在下列函数中,函数值为数值型的是:A.AT(“中国”,”中国计算机”)B.CTOD(“04/30/2004”)C.BOF()D.SUBSTR(DTOC(DATE(),7)11.函数STUFF(“计算机”,5,4,”信息报”)的返回值:A.计算机信息报B.计算信息报C.计算机信息D.机信息报12.已知X=4=18?已成年else?未成年endif,例3:,Input“a=“toaIfa=10s=0EndifS=1?s,Input“a=”toaIfa=10s=0ElseS=1Endif?s,例4：计算运费,货物重量不超过50公斤时,每公斤0.50元,重量超过50公斤时超过部分每公斤加收0.40元,编制计算运费的程序.,INPU重量=TOXY=0.5*XIFX50Y=Y+0.4*(X-50)ENDIF?运费=,Y,INPU重量=TOXIFX50Y=25+0.9*(X-50)ELSEY=0.5*XENDIF?运费=,Y,解法1,解法2,解法3,INPU重量=TOXIFX50Y=25+0.9*(X-50)EndifIfx=50Y=0.5*XENDIF?运费=,Y,例5：根据用户输入的考试成绩，判断并显示相应的成绩等级。,60以下不及格；60-80合格；80-90-优良；90以上优秀。,ClearInput输入考试成绩tochjIfchj60dj=不及格Elseifchj80dj=合格elseifchj90dj=优良elsedj=优秀endifendifEndif?成绩等级：+dj,ClearInput输入考试成绩tochjIfchj60dj=不及格Elseifchj90dj=通过elsedj=优秀endifEndif?成绩等级：+djreturn,注意：if和endif必须成对出现；条件语句可以嵌套，但是不能出现交叉。,2.分支语句docase,DOCASECASE条件1语句序列1CASE条件2语句序列2OTHERWISE语句序列n+1ENDCASE,说明,执行docase时，依次判断case后面的条件是否成立，如果某个case的条件成立，就执行该case和下一个case之间的语句序列，然后执行endcase后的语句。如果所有的条件都不成立，则执行otherwise与endcase之间的语句。,例1：根据用户输入的考试成绩，判断并显示相应的成绩等级。,60以下不及格；60-90合格；90以上优秀.,Input“输入考试成绩”tosDocasecases90?“优秀”endcase,例2：计算分段函数的值2x-1(x=10),ClearInput“输入x的值”toxDocaseCasex0f=2*x-1Casex=85?“计算机等级是”+“优秀”endcase,求程序的计算结果,A=10B=20C=40IFABIFCAC=A+BELSEC=A-BENDIFENDIF?C,1.do-while循环,DOWHILELOOPEXITENDDOLOOP无条件循环EXIT无条件退出,考点十四：循环结构,例1：,s=0i=1dowhilei=3)”tonF=0i=2Dowhilei=n-1ifmod(n,i)=0f=1exitendifEnddo,FOR变量=初值TO终值STEP步长语句序列ENDFOR|NEXT变量,2.FOR循环,*循环体中不应包含改变循环变量值的命令,否则循环次数将改变,该语句通常用于实现循环次数已确定的情况。执行该语句时，首先将初值赋给循环变量，然后判断条件是否成立，若循环条件成立，则执行循环，然后循环变量增加一个步长值再次判断循环条件是否成立，若循环条件不成立，则结束该循环语句。,功能注释：步长默认值为1;初值、终值和步长的值一旦确定，不再改变；步长为正数，初值小于终值；为负数，初值大于终值；循环次数的计算：int(终值初值)/步长)+1用exit可以退出循环，循环不再执行；用loop可以结束本次循环，再到循环的开始处继续执行循环。,例1：,ClearDimensionA(6)Fork=1to6A(k)=20-2*kEndfor?A(1),A(2),A(3),A(4),A(5),A(6),练习题,1.分别用FOR循环和DOWHILE循环计算1+2+3+30的值？2.用FOR循环输出1100之间所有不能被7整除的数？（提示：使用LOOP）,练习题答案,S=0FORI=1TO30S=S+IENDFOR?S,S=0I=0DOWHILEI=1A(K)=A(K)-A(K+1)K=K-1ENDDO?A(1),A(3),(5),例3：从键盘上输入10个数，然后找出其中最大值和最小值。思路：假定已经找出n-1个数中的最大值ma（或最小值mi），现在再读入第n个数a,那么a和ma（或mi）中的较大者（或较小者）就是n个数中的最大值（或最小值）。,clearinput请输入入一个数:toastoratoma,mifori=2to10input请输入一个数:toaifmaami=aendifendfor?最大值:,ma?最小值:,mi,3.SCAN循环,SCAN范围FOR条件语句序列ENDSCAN*特别适合对表记录进行某种处理,例1：,删除所有性别为男的记录Use学生Scanfor性别=“男”deleteendscan,自治区考题：,多项选择题以下是循环结构的有：A.DOWHILEB.forendforC.SCANENDSCAND.DOCASEE.IFENDIFF.INPUT,例2：统计职工表中性别的人数，并删除相关记录,s=0scanfor性别=男dispwaits=s+1endscan?男生人数是:,s,2.6多模块程序设计,应用程序一般是多模块程序,包含多个程序模块.模块是一个相对独立的程序段.它可以被其它模块调用，也可以去调用其他模块。通常，把被其它模块调用的模块称为子程序，把调用其他模块而没有被其他模块调用的程序称为主程序。将一个程序划分为一个个功能相对简单、单一的模块程序，不仅便于程序的开发，也利于程序的阅读和维护。,显示实例：主程序：PP内容：setproceduretop1dop1,子程序：P1内容：procedurep1a=3b=5?a,b,a+bendproc,考点十五：模块的定义和调用,定义模块procedure|functionreturnEndproc|endfunc注释：1）proce用来定义过程，function定义函数。函数和过程有一些差别。2）过程名必须以字母或下划线开头，可包含字母、数字和下划线。3）执行时碰到return，则返回主程序。,2.调用模块格式1：do过程名或do函数名格式2:过程名()或函数名()注意：如果主程序和子程序在两个文件中，则调用前先要用setprocedureto文件名命令打开过程文件示例如前所示,考点十六：参数传递,模块程序可以接收调用程序传递来的参数，并根据接收到的参数控制流程或对接收到的参数进行处理，从而大大提高了程序的灵活性。传递参数的命令：格式1：do过程名|函数名with实参1，实参2格式2：过程名(实参1，实参2)或函数名(实参1，实参2)2.接收参数parameters形参1,形参2注释：实参可以是常量，变量或表达式。调用模块时，系统会自动把实参传递给对应的形参。形参的数目要大于或等于实参的数目。,例：主程序：PP内容：input“请输入一个加数“toxinput“请输入一个加数“toysetproceduretop1dop1withx,y,子程序：P1内容：procedurep1paramea,ba=3b=5?a,b,a+bendproc,3.参数传递时可以按引用传递，也可以按值传递。引用传递：当形参的值发生改变时，实参的值也一起改变；值传递：当形参的值发生改变时，实参的值不会改变；采用do命令调用时，若实参是常量或表达式，则是值传递；若是变量，则是引用传递。采用过程名(实参)调用时，都是值传递方式。请观察以下几个程序执行的结果：,例1：主程序：PP_1内容：input“请输入一个加数“toxinput“请输入一个加数“toysetproceduretop1_1dop1_1withx,y?”x和y的值分别是：”,x,y,子程序：P1_1内容：procedurep1_1paramea,ba=1.25b=2?”a,b的值是：“,a,bendproc,例2：主程序：PP_2内容：input“请输入一个加数“toxinput“请输入一个加数“toysetproceduretop1_2dop1_2with(x),y?”x和y的值分别是：”,x,y,子程序：P1_2内容：procedurep1_2paramea,ba=1.25b=2?”a,b的值是：“,a,bendproc,例3：主程序：PP_3内容：input“请输入一个加数“toxinput“请输入一个加数“toysetproceduretop1_3p1_3(x,y)?”x和y的值分别是：”,x,y,子程序：P1_3内容：procedurep1_3paramea,ba=1.25b=2?”a,b的值是：“,a,bendproc,例4：主程序：PP_4内容：input“请输入一个加数“toxinput“请输入一个加数“toysetproceduretop1_3p1_4(x,(y)?”x和y的值分别是：”,x,y,子程序：P1_4内容：procedurep1_4paramea,ba=1.25b=2?”a,b的值是：“,a,bendproc,4.也可以用setudfparmsto命令改变传递方式（它只对括号调用的格式有效，对do格式无效）Setudfparmstovalue设置为按值传递Setudfparmstoreference设置为按值传递,例5：主程序：PP_5内容：input“请输入一个加数“toxinput“请输入一个加数“toysetudfptoreferencesetproceduretop1_3p1_5(x,(y)?”x和y的值分别是：”,x,y,子程序：P1_5内容：procedurep1_5paramea,ba=1.25b=2?”a,b的值是：“,a,bendproc,考点十七：变量的作用域,1.公共变