国家计算机二级vf多模块程序设计.ppt

多模块程序设计 授课教师：易学良 例2： CLEAR SET UDFPARMS TO VALUE STORE 500 TO X1,X2 DO P4 WITH X1,(X2) ?第一次:,x1,x2 STORE 500 TO x1,x2 P4(X1,(X2)) ?第二次:,x1,x2 SET UDFPARMS TO REFERENCE STORE 500 TO X1,X2 DO P4 WITH X1,(X2) ?第三次:,x1,x2 STORE 500 TO x1,x2 P4(X1,(X2)) ?第四次:,x1,x2 *过程P4 PROCEDURE P4 PARAMETERS X1,X2 STORE X1+1 TO X1 STORE X2+1 TO X2 ENDPROC 例3：计算矩形面积 clear input 矩形长： to l input 矩形宽： to w s=0 do area with l,w,s ?矩形面积为：,s return procedure area parameters c,k,m m=c*k return 例4：求 C(m,n)=m!/(n!(m-n)!) clear input m= to m input n= to n c=fac(m)/ (fac(n)*fac(m-n)) ?c return function fac para x p=1 for k=2 to x p=p*k next return p 例5：定义一个求3个数中最大数的自定义函数，并利用该函数求5个数中最大数。 input a= to a input b= to b input c= to c input d= to d input e= to e max=getmax(a,b,c) max=getmax(max,d,e) ?max return function getmax para x,y,z if xy m=x else m=y endif if zm m=z endif return m 例7： clear public x private y,k x=1 y=2 do sub6 ?x=,x,y=,y 显示3 2 k=3 do sub7 ?y=,y,k=,k 显示10 5 procedure sub6 local y y=3 x=x*y y=x+y return procedure sub7 k=k+y y=k*y return * * １模块的定义和调用 1．模块的定义 定义： 模块可以是命令文件，也可以是过程。 过程定义的语法格式： PROCEDURE | FUNCTION过程名 命令序列 [RETURN[表达式]] [ENDPROC︱ENDFUNC] 打开过程文件的命令格式： SET PROCEDURE TO[过程文件1[过程文件2，…]] [ADDITIVE] 关闭过程文件的命令格式： RELEASE PROCEDURE TO[过程文件1[，过程文件2，…] ２．模块调用 格式1： DO 文件名︱过程名 格式２： 文件名︱过程名（） 说明： 如果模块是程序文件的代码，模块调用就用文件名。 如果模块不是程序文件的代码，模块调用就用过程名。 格式2的模块调用既可以作命令使用，也可以当作函数出现在表达式中。 格式2中的文件名不能含有扩展名。 例1：使用程序文件、过程、过程文件 2 参数传递 1．PARAMETERS和LPARMETERS语句传递参数 格式： PARMETERS形参变量1[，形参变量2，…] LPARMETERS [形参变量11[，形参变量2，…] 2．调用模块程序 格式1： DO 文件名︱过程名 WITH 实参1 [，实参2，…] 格式2： 文件名︱过程名 ( [实参1 ，实参量2，…] ) 3．参数传递方式 按“引用”传递 TO REFERENCE：按引用传递。 按“值”传递 TO VALUE：按值传递。 采用1调用模块程序时，如果实参是常量或一般形式的表达式，系统会计算出实参的值，并把它们赋给相应的形参变量，称为按值传递。如果实参是变量，则传递的将不是变量的值，而是变量的地址。 采用2调用模块程序时，默认情况下是以按“值”方式传递参数。如果实参是变量，可以利用SET UDFPARMS命令重新设置参数传递的方式。 如果给实参变量加上()，则强制使用值传递。 还可以在程序之间传递数组。 当实参是数组元素时，总是采用按值方式传递元素值。 当实参是数组名是，如果按“值”方式传递数组元素值时，则传递数组的第一个元素值给形参变量。 如果按“引用”方式传递数组元素值时，则传递的将是整个数组。 3 变量的作用域 1．变量的作用域 定义： 指变量在什么范