【例82】编一个求n!的子过程,然后调用它计算7! 11!-10! 程序如下: Sub jch (n%, p&) Dim 1% p=1 For i= 1 To n p=p=i Next i End sub 请单属标左键换页
【例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 ich (7, a) Call jch(11, b) Call jch (10,c) ds a+b-c Print"7!+11!-10!=";d 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数过程 函数过程是自定义过程的另一种形式。VB提供了 许多内部函数,如sin(),Sqr()等,在编写程序时, 只需写出函数名和相应的参数,就可得到函数值。另 外,VB还允许用户自己定义函数过程。同内部函数 样,函数过程也有一个返回值 821函数的定义 函数过程的定义方法也有以下两种。 1.利用“工具”菜单下的“添加过程”命令定义 请单属标左键换页
8.2 函数过程 函数过程是自定义过程的另一种形式。VB提供了 许多内部函数，如Sin（），Sqr（）等，在编写程序时， 只需写出函数名和相应的参数，就可得到函数值。另 外，VB还允许用户自己定义函数过程。同内部函数一 样，函数过程也有一个返回值。 8.2.1 函数的定义 函数过程的定义方法也有以下两种。 1．利用“工具”菜单下的“添加过程”命令定义
利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有 现有过程之外,键入 Function函数名即可。定义形式如 Static][Pub|c| Private] Function函数名(参数列 表])[As类型] [局部变量或常数定义] [语句序列] [Exit Function] [语句序列] 函数名=表达式 End function 请单属标左键换页
2．利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有 现有过程之外，键入Function函数名即可。定义形式如 下： [Static][Public|Private] Function 函数名（[参数列 表]）[As类型] [局部变量或常数定义] [语句序列] [Exit Function] [语句序列] 函数名=表达式 End Function
822函数的调用 调用函数过程可以由函数名带回一个值给调用程 序,被调用的函数必须作为表达式或表达式中的一部 分,再与其它的语法成分一起配合使用。因此,与子 过程的调用方式不同,函数不能作为单独的语句加以 调用 最简单的情况就是在赋值语句中调用函数过程, 其形式为: 变量名=函数过程名([参数列表]) 请单属标左键换页
8.2.2 函数的调用 调用函数过程可以由函数名带回一个值给调用程 序，被调用的函数必须作为表达式或表达式中的一部 分，再与其它的语法成分一起配合使用。因此，与子 过程的调用方式不同，函数不能作为单独的语句加以 调用。 最简单的情况就是在赋值语句中调用函数过程， 其形式为： 变量名=函数过程名（[参数列表]）