Question

VB6.0自定义函数中的参数问题

VB6.0自定义函数的时候，怎么定义一个可有可无的参数？就好像Mid(Str，n1,n2)函数一样，最后的那个n2就可以不需要设定，没有赋值的时候，Mid函数返回另一种值，这就是一个可有可无的参数。自定义的函数怎么弄？
比如，定义了一个myName(a,b,c,d)函数，以后在调用的时候，c的值可以不需要设定，写为myName(a,b,,d)就可以，而不提示出错。
谢谢 tianqing20wen ！虽然讲解地不详细，但是还是提供了线索。原来“Optional”就是用来定义一个参数是否可选。我在网上又搜了一下“Optional”，之后知道了：
比如定义函数Fuction abc(Optional a ,Optional b)
1、如果要判断可选参数a是否赋值，用IsMissing()函数，若IsMissing(a)=Ture，则未赋值；
2、如果调用时设置为 abc(,3) ，即b=3、未对a赋值，则 IsMissing(a)=Ture；设置为 abc(3) ，即a=3、未未对b赋值；设置为 abc()，即未对a赋值且未对b赋值。
3、如果定义函数Fuction abc(Optional a As String ,Optional b As Integer)，即a定义为字符型变量，b定义为整形变量，如果调用函数abc，且未给a或b赋值，那么a自动得到值为空字符串，b得到值为0，IsMissing(a)=False，IsMissing(a)=False。因为a、b都被限定了类型的缘故。

好了，又补充了这些东西，是为了今后遇到了相同问题的朋友看到这个问答后能得到更多的东西。

Answer 1

Public Sub A(Optional A As Integer = 1, Optional B As Double = 2)
MsgBox "A=" & A
MsgBox "B=" & B
End Sub
Private Sub Form_Click()
Call A(, 23)
End Sub

Answer 2

点赞！感谢提问并分享！