本帖最后由 hwc2ycy 于 2013-12-4 09:08 编辑
函数的参数 与之前SUB过程的参数声明一样:Optional,ParamArray,ByRef、ByVAl。 在调用Function时,参数的写法与过程相同:一是参数变量按声明的顺序写,二是用命名法。
关于函数调用
为了使用函数的返回值,必须指定函数给变量(或者将函数的返回值做为表达式的一部分),并且用括号将参数包围起来(无参数情况下,随意都可)。
示例:无参数
Sub test() Dim Username AsString Username =getName MsgBoxUCase(getName) 'MsgBoxUCase(getName()) 'Username =getName() '无参数情况下,括号写与不写,没有影响 End Sub
Function getName() As String '返回当前用户名 getName =Application.Username End Function
示例:有参数
Sub teset() Dim i i = MsgBox("请任意单击一个按钮", vbInformation + vbYesNoCancel) 'i = MsgBox"请任意单击一个按钮", vbInformation +vbYesNoCancel '上面一行如果去掉注释会提示编译错误:缺少结束语句
MsgBox "请任意单击一个按钮", vbInformation + vbYesNoCancel '这样便会忽略掉返回值
'MsgBox("请任意单击一个按钮", vbInformation + vbYesNoCancel) '上面的注释如果取消,会提示缺少=号。 End Sub |