今天被问到一个问题:写一个函数,但是这个函数的参数个数是可变的,该怎么写?我记得c中是有可变参数的写法的,java中也有,由于对vbs不是很熟,只是了解九牛之一毛,于是想当然认为vbs也有。google一把,发现vbs真的没有这个功能。没办法,没有标准的方法,咱就模拟一个,所谓曲径通幽,过程虽然曲折,但是达到目的就行,下面就是用byref和数组模拟的一个可变参数函数:
function test(ByRef paralist)
For Each param In paralist
MsgBox param
Next
End Function
Dim arr(1)
arr(0) = "a"
arr(1) = "b"
test(arr)
这个方法简单明了,容易操作