自定义函数(96-5、6)

1、张家口市职教中心教案科目：数据库应用技术VF6.0讲授 课题自定义函数课型新授教案 在舁 厅P96-5、6教学目标知识与技能目标过程与方法目标情感态度与 价值观目标教学 重点 难点 及解 决办 法教学重点教学难点解决办法教学手段运用学法 指导教师教法学生学法教师活动学生活 动课题导入讲授过程自定义函数一、自定义函数以前我们讲过许多函数，比如 STR(),VAL(),AT(),YEAR()等等， 这些函数都是VF系统定义的。函数都肩变量，然后通过运算返回函 数值。有些函数没有变量，如 TIME(),DATE(),PI()等。为了增加用户 编程的灵活性和通用性，除系统提供的函数外，我们自己还可以定

2、义 一些函数，用来实现杲些特殊功能，这一类函数我们称为自定义函数。1 .自定义函数的格式FUNCTION 函数名 PARAMETERS 形式参数表语句序列RETURN 表达式2 .自定义函数的建立也使用MODI COMM 命令建立，生成的文件也是 PRG文件。说明： 形式参数表,接受调用自定义函数时由 实际参数表传 来的数据。函数体的最后一条语句是 RETURN 表达式，由表达 式返回一个值给调用自定义函数的程序。用户自定义函数建立和修 改方法与子程序的建立和修改方法相同。用户自定义函数是一个独立 的文件，也称为函数过程，自定义函数名就是文件名。如果自定义函 数和系统函数重名，系统函数被优先调

3、用。3 .自定义函数的调用(1)用DO命令调用(2)用？调用(3) 用STORE命令调用。例题1.编写一个求圆的面积的函数 MJMODI COMM MJ && 函数也是PRG文件PARAMETERS RS=3.1416*R*RRETURN S面积函数的调用(1)?MJ(12)(2)用STORE命令调用该函数STORE MJ(12) TO NN?NN(3)用DO命令调用DO MJ WITH 12(4)程序中调用函数MODI COMM PPSET TALK OFFX=1DO WHILE X<=10?X,MJ(12)*?X,MJ(X)X=X+1ENDDOSET TALK ONR

4、ETURN例题2.编写求一元二次方程求根的函数MODI COMM QGPARAMETERS a,b,cCLEAR*input "请输入二次项系数 a： " to a*input "请输入一次项系数 b: " to b*input "请输入常数项系数c： " to cdelta=b*b-4*a*cIF delta<0ans1=-b/(2*a)+SQRT(-1*delta)/(2*a)ans2=-b/(2*a)-SQRT(-1*delta)/(2*a)?”方程有2个共腕虚根！"?"第一个根是：",ans

5、1,"i","第二个根是:",ans2,"i" ELSEans1=-b/(2*a)+SQRT(delta)/(2*a)ans2=-b/(2*a)-SQRT(delta)/(2*a)?"第一个根是：",ans1,"第二个由!是：",ans2ENDIFRETURN例题3.编写一个求阶乘的函数JCMODI COMM JCPARA NSTORE 1 TO P,LFOR L=1 TO NP=P*LENDFORRETURN P调用函数：？JC(10)例题4.分别使用自定义函数和过程两种方法，编写计算圆环面枳

6、的程序， 其中圆的半径从键盘输入。MODI COMM YHMJ&&自定义函数的写法CLEARINPUT ”请输入圆划、外(大)半径："TO drINPUT ”请输入圆划、内(小)半径："TO xr ?圆环面积(自定义函数方法):',yhmj_hs(dr,xr) FUNCTION yhmj_hs PARAMETERS wj,njs=PI()*wjA2-PI()*njA2 RETURN sMODI COMM YHMJCLEARINPUT "请输入圆划、外(大)半径："TO drINPUT "请输入圆划、内(小)半径："TO xrs=0&&以下是子程序方法调用DO yhmj_zc WITH dr,xr ?圆环面积(过程方法):',sRETURNPROCEDURE yhmj_zcPARAMETERS wj,nj s=PI()*wjA2-PI()*njA2 RETURN课堂练习： 练习1X=10Y=35Z=JH(X,Y) ?Z RETURN FUNCTION JH PARAMETERS A,S A=A-B RETURN A程序运行的结果为：练习2填空完成下列程序，求数绝对值的函数程序。INPUT'请输入一个数：'TO X?STR(X)+”它的绝对值是：&quo