如下函数，如何让index成为可选参数？

Question

Public Sub AddItem(ByVal Item As String, ByVal Index As Variant)Combo1.AddItem Item, IndexEnd Sub

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 * bif not ismissing (third) then  '判断可选参数third是否有值传入  n = n * thirdend ifmulti = nend function private sub command1_click()dim a as integer,b as integerdim x as integera = 2 : b = 3x = multi (a , b , 2)print xend 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