VB自定义函数VB自定义函数.ppt

VB自定义函数 函数过程体 [Private|Public] [Static] Function 函数过程名([形参表]) [As 类型] 语句系列 [函数名=表达式] [Exit Function] [语句系列] [函数名=表达式] End Function 函数过程体 3) 函数过程名 函数过程名的命名规则与变量名相同 ，长度不超过40个字符， 同样，一个过程名只能有唯一的名字在同一模块中， 同一名称不能既作Function函数过程名又作Sub过程名。As 类型指定Function过程返回值的类型，可以是Integer，Long，Single，Double，Currency，String或Boolean。如果没有As子句，缺省的类型为Variant。 VB自定义函数 4) 语句系列 是函数的过程体，语句系列中可以用一个或多个Exit Function语句从函数中退出。 5) 形参表 6) 表达式 表达式的值是函数返回的结果。在程序中，通过赋值语句将值赋给函数名，该值就是Function过程返回的值。如果在Function过程中省略了“函数名=表达式”，则该过程返回一个默认值：数值函数过程返回0，字符串函数过程返回空字符串。因此，为了能使一个Function过程完成所指定的操作，通常要在过程中为函数赋值。 VB自定义函数 弧度转角度自定义函数 Function hudu (n As Double) 弧度化角度函数 Dim a As Double Dim b As Double Dim c As Double a = Int(n * 180 / pi) b = Int((n * 180 / pi - a) * 60) c = Int(((n * 180 / pi - a) * 60 - b) * 60) hudu = a 度 b 分 c 秒 返回值 End Function 函数名“hudu” 参数列表 调用角度互化函数 Private Sub Command1_Click() dim angel as double Dim radian as double radian=inputbox(“输入弧度值”，“输入”) Angel=hudu(radian) ?angel End sub VB自定义过程 Private Sub Form_Click() Dim A As Single, B As Single此处还可以这样调用Recarea A,B A = Val(InputBox(请输入矩形长度?)) B = Val(InputBox(请输入矩形宽度?)) Call Recarea(A, B） End Sub Sub Recarea(Rlen As Single, Rwid As Single) Dim Area As Single Area = Rlen * Rwid MsgBox 总面积是 Area 输出矩形面积 End Sub