-----------------------
Sub iArgs(a As String, Optional b As String = "CHINA")
'參數a是必須的,
'參數b可選,調用本sub時,可以不用b參數,這時b有默認值"CHINA"
'. . .
End Sub
--------------------------
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