VBA-参数可选与不定项参数

1'使用 Optional为可选参数
Sub iArgs(a As String, Optional b As String = "CHINA")
'参数a是必须的，
'参数b可选，调用本sub时，可以不用b参数，这时b有默认值"CHINA"
'. . .
End Sub

2'IsMissing判断variant类型变量是否为空

Sub sum(a As Integer, b As Integer, Optional c)
  Debug.Print "IsMissing(c):" & IsMissing(c)

  If IsMissing(c) Then c = 1000
  Debug.Print "和为:" & (a + b + c)
End Sub

Sub main()
  sum62 1, 2, 3 '输出 6
  sum62 1, 2  '输出1003
End Sub

3'ParamArray为不定元素个数的数组

Sub AnyNumberArgs(strName As String, ParamArray intScores() As Variant)
'如果不确定参数的个数，可以放入数组，用不定数组参数解决
Dim intI As Integer
Debug.Print strName; " Scores"
' 用 UBound 函数确定数组的上限。
For intI = 0 To UBound(intScores())
Debug.Print " "; intScores(intI)
Next intI
End Sub