51Testing软件测试论坛

标题: 如何自定义一个Function，给此过程写多个参数。但调用的时候可以省略部分参数。 [打印本页]

作者: user603 时间: 2012-11-6 16:12
标题: 如何自定义一个Function，给此过程写多个参数。但调用的时候可以省略部分参数。
这种过程怎么写啊？
看到很多系统自带的函数，有参数列表，但调用函数此有些参数可选。

作者: user603 时间: 2012-11-6 16:27
回复 1# user603

作者: WANDY 时间: 2012-11-8 10:21
optional 参数=默认值使用这个。VBS没试过，这个是VBA上的方法。如果不行的话，最后一个参数用数组或Dictionary。

作者: ws812395 时间: 2012-11-12 17:54
回复 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 时间: 2012-11-21 17:05
VBScript语言不支持函数重载，所以不行。特殊情况是动态加载javascript时通过javascript自定义函数多个同名函数。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)