例:编写一个函数过程,求n!的值 Public function fac(n As Integer) As Integer Fori= l To n 与.Form1 k=k兴i 输入:6 Next i 输出:873 算 fac= k End function Private Sub Command1_ Click Text2Text =fac(Val(Text1. Text)) End sub visualBasic 71
Visual Basic 程序设计 Public Function fac(n As Integer) As Integer k = 1 For i = 1 To n k = k * i Next i fac = k End Function 例：编写一个函数过程，求n！的值 Private Sub Command1_Click() Text2.Text = fac(Val(Text1.Text)) End Sub
621函数过程的定义及调用 3.数的调用 格式如下 格式1:变量=过程名([实参表]) 格式2:CALL过程名(实参) 格式3:过程名实参 说明:通常用第一种格式比较多,用后两种方法调用 函数时VB放弃函数的返回值。 visualBasic 71
Visual Basic 程序设计 3.函数的调用 格式如下： 格式1：变量 ＝ 过程名（[实参表]） 格式2：CALL 过程名（实参） 格式3：过程名 实参 说明：通常用第一种格式比较多，用后两种方法调用 函数时VB放弃函数的返回值。 6.2.1 函数过程的定义及调用
621函数过程的定义及调用 3.数的调用 与前面使用的标准函数的调用相同,出现在赋值号的右侧 格式:函数名([实参列表]) *H: Public Function area(x!, y!, z! )As Single C=0.5米(x+y+z) area=sar(c*(c-x)*(c-y)*(c-z)) End function tH: Private Sub Form Click a=5:b=4:c=3:d=3 a e=4:f=5:g=4 sl=area (a, b e S2 d s2=area(c, d, e) S3 End Sub VisualBasic d
Visual Basic 程序设计 6.2.1 函数过程的定义及调用 与前面使用的标准函数的调用相同，出现在赋值号的右侧 格式：函数名（[实参列表]） 注意： • 函数过程不能作为独立语句使用调用，必须与其他成 分结合使用 • 实参列表中的参数个数、位置和类型与形参一一对应 如： Public Function area(x!,y!,z!) As Single c=0.5*(x+y+z) area=sqr(c*(c-x)*(c-y)*(c-z)) End Function 3.函数的调用 如：Private Sub Form _ Click() a=5 : b=4 : c=3 : d=3 e=4 : f=5 : g=4 s1=area(a,b,c) s2=area(c,d,e) End Sub a b c g e d S1 S2 S3
工作流程关系: Private Sub Form Click a=5:b=4:c=3 s1=area (a, b, c) 注意:参数值和巫 教值的变化 print s1+s2+s3 End Sub Public Function area (x, y, z)As Single =0.5*(x+y+z) area=sqr(c米(c-x)*(c-y)米(c-z) End function visualBasic 71
Visual Basic 程序设计 • 工作流程关系： Public Function area (x,y,z) As Single c=0.5*(x+y+z) area=sqr(c*(c-x)*(c-y)*(c-z)) End Function Private Sub Form _ Click() a = 5:b = 4:c = 3 s1=area (a,b,c) …… print s1+s2+s3 End Sub ① ② ④ ⑤ ③ 注意：参数值和函 数值的变化