End Sub
第20页/共49页
6.2 函数过程的定义与调用
• 【例6-6】 编写计算阶乘的函数过程,当用户单击窗体时,利用下列近似公式计算 (直到最后一项小于10-7为止)。
Private Sub Form_Click() 调用函数Fact的程序代码如下:
Dim n!
Private Function Fact(x!)
c > a + b Then MsgBox "输入的三条边
不能构成一个三角形!" Else Call area(a, b, c, w) txtMj.Text = Str(w) End If
End Sub
第11页/共49页
6.1 子过程的定义与调用
• 2. 把过程名作为一个语句来用 语法: 过程名 [实参1[,实参2……]] 它与Call语句的不同点是:去掉了Call关键字和实参列表的括号。 如上例中可以改成:area a,b,c,w
(3)在函数体内,函数名可以当变量使用,函数
第14页/共49页
6.2 函数过程的定义与调用
• (4)如果函数体内没有给函数名赋值,则返回对应类型的缺省值, 数值函数返回0,字符串函数返回空字符串,变体型函数返回Empty。
• (5)As类型:是指函数返回值的类型,若省略,则函数返回变体类 型值(Variant)。
• 6.3.2 变量的作用域 • 1. 局部变量 在过程内部(如Command1_Click)使用Dim或者Static关键字来声明的变量,只在声明它们的 过程中才能被访问或改变该变量的值,别的过程不可访问。所以可以在不同的过程中声明相同名字的 局部变量而互不影响。
第26页/共49页
6.3 变量、过程的作用域