Question

vb自定义函数可选参数如何设置

Public Sub AddItem(ByVal Item As String, ByVal Index As Variant)
Combo1.AddItem Item, Index
End Sub
这个函数，如何让index成为可选参数？

Answer 1

　　vb自定义函数可选参数的设置方法及注意事项：

　　1、可选参数可用Optional关键字标示；

　　2、可选参数需赋予默认值；

　　3、如未赋予默认值，那么需要在函数里可以通过ismissing(b)来判断该参数时候有值传入 ；

　　4、Optional参数(可选参数)必须放在后面，即先必选参数再可选参数。

　　范例如下：

function multi(a as integer,b as integer,optional third)
rem 定义multi函数，参数a、b为整形，参数third可可选参数
dim n as integer 
n = a * b
if not ismissing (third) then  '判断可选参数third是否有值传入 
 n = n * third
end if
multi = n
end function

private sub command1_click()
dim a as integer,b as integer
dim x as integer
a = 2 : b = 3
x = multi (a , b , 2)
print x
end sub

Answer 2

定义的时候加上Optional关键字，就可以了
要注意的是，可选参数后面如果还有其他的参数，则必须都是可选参数。
另外，定义可选参数，需要定义默认值。如果调用时，没有指定这个可选参数的值，则使用默认值
Public Sub AddItem(ByVal Item As String, Optional ByVal Index As integer=0)
Combo1.AddItem Item, Index
End Sub

Answer 3

Public Sub AddItem(ByVal Item As String,optional ByVal Index As Variant)
if IsMissing(index) then
Combo1.AddItem Item
else
Combo1.AddItem Item, Index
end if
end sub