传递不定个数的参数
 如果要传递不定个数的参数给过程,则须把参数表中最后一个参数声明为一个带关键字“ParamArray”的变体数组。例如:
Sub MySub(ParamArray P()) '参数定义为一个数组
以下可能的调用:
MySub"ABC"
MySub 1,3,9,988,776,234
MySub 123,"abc",Date()
可用以下的方法来读每个参数:
For i=0 To UBound(P)
  'P(i)为第i个参数
Next