可选参数函数的实现问题？

Question

具体地说就是，函数怎么知道，那个可选参数到底传乐没有？

Answer 1

Sub F_A( Optional strIn as String)If IsMissing(strIn) Then

Answer 2

public function A(byval v1 as string,optional v2 as string)
          if trim(v2)=""    '没有传进来
     else
     endif
end functionv2就是可选参数，有没有传进来，要自己去判断的，或者先给定一个默认值
public function A(byval v1 as string,optional v2 as string=“”)

Answer 3

IsMissing 函数
      返回 Boolean 值，指出一个可选的 Variant 参数是否已经传递给过程。语法IsMissing(argname)必要的 argname 参数包含一个可选的 Variant 过程参数名。说明使用 IsMissing 函数来检测在调用一个程序时是否提供了可选 Variant 参数。如果对特定参数没有传递值过去，则 IsMissing 返回 True；否则返回 False。如果 IsMissing 对某个参数返回 True，则在其它代码中使用这个丢失的参数将产生一个用户自定义的错误。如果对 ParamArray 参数使用 IsMissing，则函数总是返回 False。为了检测空的 ParamArray，可试看一下数组的上界是否小于它的下界。注意   IsMissing 对简单数据类型（例如 Integer或Double）不起作用，因为与Variants不同，它们没有“丢失”标志位的前提。正由于此，对于可选参数类型，可以指定缺省值。如果调用过程时，参数被忽略，则该参数将具有该缺省值，如下列示例中所示：Sub MySub(Optional MyVar As String = "specialvalue")
    If MyVar = "specialvalue" Then
       ' MyVar 被忽略。
    Else
    ...
End Sub在许多情况下，如果用户从函数调用中忽略，则可以通过使缺省值等于希望 MyVar 所包含的值来完全忽略 If MyVar 测试。这将使您的代码更简洁有效。

Answer 4

IsMissing 函数示例
本示例使用 IsMissing 函数检查是否把可选参数传送给用户自定义过程。请注意，除了 Variant 类型以外，其它皆可当作 Optional 参数的缺省值及类型。Dim ReturnValue
' 下列语句调用用户自定义函数。
ReturnValue = ReturnTwice()   ' 返回 Null。
ReturnValue = ReturnTwice(2)   ' 返回 4。' 函数过程定义。
Function ReturnTwice(Optional A)
   If IsMissing(A) Then
      ' 如果参数丢失，则返回 Null。
      ReturnTwice = Null
   Else
      ' 如果参数出现，则返回两倍的值。
      ReturnTwice = A * 2
   End If
End Funciton