VB自定义函数

c = Int(((n * 180 / pi - a) * 60 - b) * 60)
hudu = a & "度" & b & "分" & c & "秒" '返回值
End Function
调用角度互化函数
Private Sub Coபைடு நூலகம்mand1_Click() dim angel as double Dim radian as double radian=inputbox(“输入弧度值”，
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过程完成所指定的操作，通常要在过程中 为函数赋值。
“输入”) 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
VB自定义函数
函数过程体
[Private|Public] [Static] Function <函数过程名>([<形参 表>]) [As <类型>]
<语句系列> [<函数名>=<表达式>]
函数过程体
[Exit Function]
[<语句系列>]
[<函数名>=<表达式>]
End Function
VB自定义函数
弧度转角度自定义函数
Function hudu (n As Double) '弧度化角度函数
Dim a As Double Dim b As Double
参数列表 函数名“hudu”
Dim c As Double
a = Int(n * 180 / pi)
b = Int((n * 180 / pi - a) * 60)