Ch04_外部过程.ppt

* 第4章 函数过程和SUB过程 主要介绍： 函数过程 SUB过程 参数传递规则 变量作用域 举例： 例1：输出数列： 1, 1,1, 1,2,1, 1,3,3,1, 1,4,6,4 1, 1,5,10,10,5,1, .., 的前55项。 使用公式 Cnk=n!/(k!*(n-k)!) 来计算。对于给定的n， k=1 to n。 前55项：n=1 to 10 将求阶乘编制成函数。 Private Function fact(ByVal k As Integer) As Long fact=1 For i% = 2 To k fact = fact * i% Next i% End Function 程序如下： Private Sub Form_click() Dim zh As Long, n as Integer, k as Integer For n = 0 To 9 For k = 0 To n zh = fact(n)/fact(k)/fact(n-k) Print Space(5 - Len(Str(zh))); Print Str(zh); Next k Print Next n End Sub 函数：写在通用对象声明部分 调用3次 函数过程的编写 函数过程用于计算/返回一个值。 格式： [Type] Function 函数名[(形参列表)] [As 类型声明] 函数体 End Function ⑴ 函数体为实现运算的若干语句，其中至少应有一个赋值语句为函数名赋值。 ⑵ 将调用、被调用过程之间要相互传递的数据作为形参（形式参数）。 可以是：Private / Public / Static 函数过程的调用 ⑵ 定义为Public（缺省属性）的任何过程，可以被当前工程中其它窗体中的过程调用。 调用格式为 窗体名.函数名(实参列表) ⑶ 一般应像使用VB内部函数一样来调用函数过程，调用后返回结果是一个函数值。（放在表达式中） ⑴ 定义为Private的任何过程，只能被当前窗体的过程调用。 调用格式为 函数名(实参列表) ⑷ 没有形参时，（）不能省略。 阅读下面程序 Function f(byVal x as integer) as integer f = x*x + 1 End function Private Sub Form_click() Dim i As Byte For i = 1 To 10 If i Mod 3 = 0 then print f(i) Next i End Sub 10 37 82 举例： 例4：打印1000～2000之间的素数。 编制函数，用于判断1个整数是否是素数。 例3：编制函数求x、y、z中的最大值。 例2：编制一个函数，求两点的距离。 问题： 什么是形参？ 什么是实参？ 编写函数总结： 3、确定形参（自变量）的个数、类型和传递方式。 2、确定函数的返回值的类型。 1、确定函数名。（不可与其他符号重名） 4、函数体中至少有一次对函数名赋值。 举例： 例5：计算数组a中最大值与数组b中最大值之差（数组元素个数均小于20）。 定义一个函数过程，其功能是在n个元素的数组中找最大值。 例6：试用“函数”对前面的“牛顿迭代法求根”的程序进行修改。 SUB过程的编写 SUB过程用于完成某个操作，过程名不能被赋值，不能用于返回一个值。 格式： [ Type] Sub Sub过程名[(形参列表)] SUB过程体 End sub 可以是：Private / Public / Static SUB过程的调用 ⑵ Public或Private属性对过程调用的影响，与函数过程相同 ⑴ 调用格式： Call Sub过程名(实参列表) 或 Sub过程名 实参列表 如：Call aaa(x, y, z) 或 aaa x, y, z