建立一个类模块
定义如下:
这是不返回值的
public sub 函数名(byval 参数 as 类型,......)
Option Base 1
Dim fun(17, 4) As Single
Dim su As Integer
end sub
返回值的
public function 函数名(byval 参数 as 类型,......) as 函数返回值类型
Option Base 1
Dim fun(17, 4) As Single
Dim su As Integer
end function