第八讲：函数和过程.pptVIP

第8讲 过程;8.1 子过程 8.2 函数过程 8.3 参数传递 8.4 过程与变量的作用域 8.5 鼠标事件和键盘事件;8.1 子过程;2．利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有现有过程之外，键入Sub子过程名即可。定义一般形式如下： [Static][Public|Private]Sub 子过程名[（参数列表）] [局部变量或常数定义] [语句序列] [Exit Sub] [语句序列] End Sub 下面是一个子过程的例子： Sub sum（x%，y%，s%） s = x + y End Sub ;8.1.2 过程的调用 要执行一个过程，必须调用该过程。 子过程的调用有两种方式，一种是利用Call语句加以调用，另一种是把过程名作为一个语句来直接调用。 1．用Call语句调用Sub过程 格式：Call 过程名[（参数列表）] 例如： Call sum（a，b，c） 2．把过程名作为一个语句来使用 格式： 过程名[参数列表] 与第一种调用方法相比，这种调用方式省略了关键字Call，去掉了“参数列表”的括号。 例如： sum a，b，c ; 【例8.2】编一个求n!的子过程，然后调用它计算7！+11！-10！。 程序如下： Sub jch（n%，p） Dim i% p = 1 For i = 1 To n p = p * i Next i End Sub ; Private Sub Form_Click（） Dim a，b，c，d Call jch（7，a） Call jch（11，b） Call jch（10，c） d = a + b－c Print 7!+11!-10!=；d End Sub ;8.2 函数过程;2．利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有现有过程之外，键入Function函数名即可。定义形式如下： [Static][Public|Private] Function 函数名（[参数列表]）[As类型] [局部变量或常数定义] [语句序列] [Exit Function] [语句序列] 函数名=表达式 End Function ;8.2.2 函数的调用 调用函数过程可以由函数名带回一个值给调用程序，被调用的函数必须作为表达式或表达式中的一部分，再与其它的语法成分一起配合使用。因此，与子过程的调用方式不同，函数不能作为单独的语句加以调用。 最简单的情况就是在赋值语句中调用函数过程，其形式为： 变量名=函数过程名（[参数列表]） ;【例8.3】用函数过程实现对例8-2的求解。 程序如下： Function jch（n%） Dim i% jch = 1 For i = 1 To n jch = jch * i Next i End Function ; Private Sub Form_Click（） Dim d d = jch（7）+ jch（11）－jch（10） Print 7!+11!－1