如何自定义一个Function，给此过程写多个参数。但调用的时候可以省略部分参数。

user603

这种过程怎么写啊？
看到很多系统自带的函数，有参数列表，但调用函数此有些参数可选。

user603

回复 1# user603


   

WANDY

optional 参数=默认值 使用这个。VBS没试过，这个是VBA上的方法。如果不行的话，最后一个参数用数组或Dictionary。

ws812395

回复 1# user603


    Function hanshu(A)
Dim sum,avg
avg=0
sum=0
ArrayVbs = Split(A,"|")
For i=0 To  UBound(ArrayVbs)
  sum=sum+ArrayVbs(i)
  avg=sum/UBound(ArrayVbs)
Next
MsgBox "和是："&sum
MsgBox "平均数是："&avg
End Function

Call hanshu("1|3|5|7|9")

jack_loo

VBScript语言不支持函数重载，所以不行。特殊情况是动态加载javascript时通过javascript自定义函数多个同名函数。