VB自定义函数优秀课件.pptVIP

VB自定义函数 函数过程体 [Private|Public] [Static] Function [ ] [As ] [ ] [Exit Function] [ ] [ ] End Function VB自定义函数 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过程完成所指定的操作，通常要在过程中为函数赋值。 弧度转角度自定义函数 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 调用角度互化函数 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 * * 函数过程体 函数名“hudu” 参数列表 *