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

多模块程序设计 授课教师：易学良 例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