RosettaCodeData/Task/Variadic-function/Visual-Basic/variadic-function.vb

6 lines
98 B
VB.net
Raw Normal View History

2013-04-11 01:07:29 -07:00
Sub varargs(ParamArray a())
For n = 0 To UBound(a)
Debug.Print a(n&)
Next
End Sub